[Excel] Het grote Excel vragen topic #25

Ziet iemand de fout in dit script? Ik wil een voorwaardelijke opmaak voor meer dan 3 voorwaarden.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim c As Range
For Each c In Target.Cells
With c
Select Case .Value
Case Is = "rv"
.Font.ColorIndex = 2
.Interior.ColorIndex = 3
Case Is = "av"
.Font.ColorIndex = 2
.Interior.ColorIndex = 28
Case Is = "5110a"
.Interior.ColorIndex = 1
Case Is = "5122a"
.Font.ColorIndex = 2
.Interior.ColorIndex = 3
Case Is = "5123a"
.Font.ColorIndex = 5
.Interior.ColorIndex = 28
Case Is = "5124a"
.Interior.ColorIndex = 1
Case Is = "5125a"
.Font.ColorIndex = 2
.Interior.ColorIndex = 5
Case Is = "5126a"
.Font.ColorIndex = 2
.Interior.ColorIndex = 4
Case Is = "5128a"
.Interior.ColorIndex = 1
Case Is = "" 'cel leeg gemaakt
.Font.ColorIndex = 0
.Interior.ColorIndex = xlNone
Case Else
.Interior.ColorIndex = xlNone
End Select
End With
Next c
End Sub

Hoi,

Ik ben al een heel eind met de ORT, maar op werkdagen zoek ik nog naar een formule voor een tijdspanne.
Dus als de uren van de dienst voorkomen in de range tussen 22 uur en 6 uur 's ochtends dan die betreffende aantal uren berekenen. datum en tijd zijn inmiddels samengevoegd in 1 cel.

voorbeeld: een dienst begint om 22.45 uur en eindigt om 7 uur 's ochtends = 7.15 uur ORT (1.15+6)
een dienst begint om 21.00 uur en eindigt om 5 uur 's ochtends = 7 uur ORT (2+5)

Ik hoop dat je me kunt helpen

Hai, excel leek hier

Ik heb 2 tabbladen met data: ced_users & sheet1.

Op beide staan data met de volgende colommen: voornaam/achternaam/tweede voornaam/toestel/telefoon/e-mail.

Nu wil ik beide tabbladen vergelijken met elkaar. Dus ik wil een lijstje met namen die wel op a staan, maar niet op b en omgekeerd.

En eigenlijk wil ik het liefst ook weten hoe ik excel kan laten controleren of er op tabblad ced_users lege velden zijn en deze laten vullen met data van sheet1.

En nu heb ik eigenlijk maar 1 vraag: hoe pak ik dit aan?

excel 2007, engelse taal

Heb je hier iets aan? http://www.ehow.com/how_6(...)e-columns-excel.html

Ik loop vast als ik die code uit dat artikel moet ombouwen naar een code die ik wil gebruiken

quote:

Op woensdag 6 april 2011 15:15 schreef Goldfish80 het volgende:
Ziet iemand de fout in dit script? Ik wil een voorwaardelijke opmaak voor meer dan 3 voorwaarden.

[knip]

Moet dat per se met VB?

quote:

Op woensdag 6 april 2011 17:05 schreef Puala het volgende:
Ik loop vast als ik die code uit dat artikel moet ombouwen naar een code die ik wil gebruiken

Wat gaat er mis dan?

MBT ORT heb ik inmiddels het volgende in elkaar weten te zetten, afzonderlijk werken ze goed dus ik kan ze eventueel opnemen in 2 aparte kolommen voor de resultaten, maar weet iemand hoe ik deze 2 formules samen kan voegen zodat ik maar 1 kolom nodig heb ??

als dienst van ma tm vr voor 22 uur begint voor ORT 22-06
=ALS(EN(OF($AR11="ma";AR11="di";AR11="wo";AR11="do";AR11="vr");(OF($AU11="ma";AU11="di";AU11="wo";AU11="do";AU11="vr"));AX11<22;AY11>0;AR11<AU11);1-REST(BN$1;1))+ALS(EN(OF($AR11="ma";AR11="di";AR11="wo";AR11="do";AR11="vr");(OF($AU11="ma";AU11="di";AU11="wo";AU11="do";AU11="vr"));AX11<22;AY11>0;AY11<6;AR11<AU11);1-REST(24-E11;1);0)+ALS(EN(OF($AR11="ma";AR11="di";AR11="wo";AR11="do";AR11="vr");(OF($AU11="ma";AU11="di";AU11="wo";AU11="do";AU11="vr"));AX11<22;AY11>0;AY11>6;AR11<AU11);1-REST(24-$BN$2;1);0)

als dienst van ma tm vr na 22 uur begint voor ORT 22-06
=ALS(EN(OF($AR11="ma";AR11="di";AR11="wo";AR11="do";AR11="vr");OF($AU11="ma";AU11="di";AU11="wo";AU11="do";AU11="vr");AX11>22;AY11>0;AY11>6);1-REST(24-$BN$2;1);0)+ALS(EN(OF($AR11="ma";AR11="di";AR11="wo";AR11="do";AR11="vr");OF($AU11="ma";AU11="di";AU11="wo";AU11="do";AU11="vr");AX11>22;AY11>0;AY11<6);1-REST(24-E11;1);0)+
ALS(EN(OF($AR11="ma";AR11="di";AR11="wo";AR11="do";AR11="vr");(OF($AU10="ma";AU11="di";AU10="wo";AU11="do";AU11="vr"));AX11>22;AY11>0);1-REST(C11;1);0)

quote:

Op woensdag 6 april 2011 17:12 schreef qu63 het volgende:

[..]

Wat gaat er mis dan?

Ik weet niet wat ik hier in moet vullen: (cell to match,cells to match with,0)),"",cell to match)

Ik ga namelijk van tabblad 1 naar tabblad 2 en ik snap niet wat ik dan in moet vullen..

Goldfish
Je moet hem niet in Workbook_Sheetchange zetten maar in Worksheet_change

dus

Daarnaast kan je Case Is = "rv" ombouwen tot
etc

Het werkt hetzelfde en is korter.

En je kan dit deel
omzetten in
Let erop dat je aan het eind ook Next c weghaalt.
Je kan dan alleen niet meer meerdere cellen tegelijk iets in plaatsen, dus als dat je bedoeling was dan moet je het gewoon zo laten natuurlijk!

Succes.

PAYPROF:
Kan je herschrijven.
Stel in A1:A5 staat ma/di/wo/do/vr
Bevestigen met Ctrl-Shift-Enter
Dat ruimt dan al een heel stuk op
Wel even vertalen!!

Ik denk dat je ook een stuk kunt winnen door dit stukje:
AX11<22;AY11>0;AR11<AU11
buiten de formule haalt.
Maw je test al direct of dit waar is (er wordt 4x op getest!) en zo niet dan FALSE.

En nu doet mn hoofd pijn van je formule

Als je hem even herschrijft gewoon zo dat er A1, B1 etc staat dan kan ik het ook toepassen op een eigen sheet, dat werkt gemakkelijker.

quote:

Op woensdag 6 april 2011 17:09 schreef qu63 het volgende:

[..]

Moet dat per se met VB?

Ja, anders kun je maar 3 voorwaarden gebruiken.

PAYPROF:
Ik heb er nog eens naar gekeken maar om het in een formule te krijgen wordt erg ingewikkeld.
Je kunt daarom beter een functie definieren in visual basic die alle checks voor je doet. Gelukkig is het op vrijdag wel rustig dus heb ik het al voor je gedaan

Bovenstaande code plak je in een visual basic module. Vervolgens kun je in die spreadsheet de functie aanroepen door in een cel het volgende te typen =ORT(A2,B2) waarbij A2 de cel is met begin datum en tijd en B2 de cel met einddatum en tijd.

Het voordeel is dat je het visual basic deel kunt vergrendelen en aanpassingen in de functie een stuk eenvoudiger zijn. In de spreadsheet zie je vervolgens ook alleen een functie ORT staan en geen hele onoverichtelijke brei van IF's.

[ Bericht 1% gewijzigd door Deetch op 08-04-2011 10:41:58 ]

ok... dank je wel, maar de ORT moet ook nog eens opgesplitst worden per kolom omdat er verschillende percentages/bedragen aanhangen.

ma tm vrij 06-08 uur (aan het einde van een dienst) 3.24 euro
ma tm vrij 18-22 uur (niet perse aan het einde van de dienst) 3.24 euro
ma tm vrij 22-06 uur (niet perse aan het einde van de dienst 6.49 euro
Zaterdag 00-24 uur 6.49 euro
Zondagen 00-24 uur 10.54 euro

overigens krijg ik in de cel als resultaat #naam? te zien, moet ik in VB ook de functies naar het Nederlands vertalen misschien ? en waar je , hebt gebruikt moet ik ; neerzetten heb ik gemerkt, ook dat in VB aanpassen ?

Ik denk dat je alleen de weekday in het begin moet veranderen in weekdag. De rest van de functies zijn vba functies dus die hoef je niet te vertalen.

In de macro worden alle verschillende tijdblokken apart berekend (even goed zoeken in de code zoeken waar, wat en welke dat is) daar kun je dan ook nog een bedrag aan koppelen.

VB werkt gewoon met , daar hoef je dus geen ; van te maken.

Ik zie overigens wel dat ik het doordeweekse blok van 18-22 ben vergeten. Die kun je op vergelijkbare wijze toevoegen in het deel case 1 to 4 en case 5.

Probeer eerst zelf maar eens de code te doorgronden, dan kun je waarschijnlijk de meeste aanpassingen zelf wel doen.

Heb je perse verschillende kolommen nodig voor controle doeleinden of mag een totaal eind ORT-tijd en totaalbedrag ook?

Ik heb aparte kolommen nodig per bedrag aan ORT, dit moet namelijk weer verwerkt worden in de salarisadministratie op aparte codes. Het uitrekenen van het aantal uur * bedrag gebeurt in een aparte kolom voor facturatie doeleinden.

Ik zal eens gaan proberen de formule werkend te krijgen, eerste keer dat ik dit doe dus ff uitzoeken...

haha goed bezig hoor. Als ik jou was zou ik 5 ORT formules definieren.

ORT1: ma-vr als einde dienst tussen 6 en 8
ORT2: ma-vr 18-22
ORT3: ma-vr 22-6
ORT4: zat
ORT5: zon

Succes.

Ik heb een keuzelijst in de cellen C1 en C3. hier staan de waarden in die je ziet bij A8 t/m A11.
Ik wil het nu zo hebben als ik in C1 bijvoorbeeld 2 kies, dat je deze keuze niet meer hebt in de keuzelijst in Cel C3 en andersom.

Iemand enig idee hoe ik dit voor elkaar krijg?

Volgend vraagje. Bestaat er een max-functie in excel waarbij je conditional if's kunt toepassen?

Ik heb bijvoorbeeld de volgende rij cijfers: 1, 2, 3, 12. En ik wil het maximum van deze rij weten, dat niet hoger is dan 10. In dit geval is dat dus 3. Hoe doe je dat in Excel?

getallenrij in B1:B5. Grenswaarde in D1.

=MAX(IF(B1:B5<D1,B1:B5)) en bevestigen met ctrl+shift+enter

http://www.excelforum.com(...)rtain-threshold.html

[ Bericht 44% gewijzigd door Deetch op 11-04-2011 10:19:01 (bronverwijzing) ]

Sorry, ik kom niet uit die ORT in VB.
Om de weekdagen te bepalen werkt de functie niet met ',2' maar bij mij met '-1' dit heb ik aangepast in de module en nu krijg ik ipv #naam? nu #waarde!
Ik heb ook geprobeerd zelf een nieuwe functie te bouwen voor zaterdag ORT, maar
Ik snap het ook maar voor de helft en kom daar niet verder mee.

Dus als je me voor nu toch nog eens zou willen helpen, heel graag !

Weet je wellicht ook een goed boek die VB vanuit de basis uitlegt, dan ga ik dat ook eens aanschaffen...

quote:

Op maandag 11 april 2011 10:18 schreef Deetch het volgende:
getallenrij in B1:B5. Grenswaarde in D1.

=MAX(IF(B1:B5<D1,B1:B5)) en bevestigen met ctrl+shift+enter

http://www.excelforum.com(...)rtain-threshold.html

Thanks, ik was er al zelf opgekomen

Volgens mij is dit vrij simpel. maar ik kom er niet uit.

Heb een kolom met ca. 5000 rijen met datum en tijd (3/1/2011 12:00:05 AM) bijvoorbeeld.

Nu wil ik in de kolom ernaast alleen de datum en geen tijd zodat ik een pivot kan doen hoevaak iets per dag voorkomt. Iemand enig idee?

Edit: hebbes.

=DATE(YEAR(C2),MONTH(C2),DAY(C2))

Edit 2: toch niet, de tijd staat er nog steeds, alleen nu allemaal op 00:00, ook als ik de format op datum alleen zet.

[ Bericht 16% gewijzigd door static op 11-04-2011 18:50:57 ]

ik vermoed dat dit werkt:
=INTEGER(C2)

in het engels volgens mij =Int(C2)

quote:

Op maandag 11 april 2011 18:33 schreef static het volgende:
Volgens mij is dit vrij simpel. maar ik kom er niet uit.

Heb een kolom met ca. 5000 rijen met datum en tijd (3/1/2011 12:00:05 AM) bijvoorbeeld.

Nu wil ik in de kolom ernaast alleen de datum en geen tijd zodat ik een pivot kan doen hoevaak iets per dag voorkomt. Iemand enig idee?

Edit: hebbes.

=DATE(YEAR(C2),MONTH(C2),DAY(C2))

Edit 2: toch niet, de tijd staat er nog steeds, alleen nu allemaal op 00:00, ook als ik de format op datum alleen zet.

Pas de opmaak van de cel eens aan

Dat bedoelde ik met 'format op datum alleen zet'.

Hi,

Ik heb ondertussen een VB voor de ORT voor zaterdag gemaakt, ik krijg als waarde geen foutmelding meer, maar 0:00, kan iemand helpen om de daadwerkelijke uren te berekenen ?
uitgangspunten:
Als begindag = einddag en is zaterdag dan eindtijd - begintijd
Als begindag = zaterdag en einddag = geen zaterdag dan 24uur - begintijd
Als einddag = zaterdag en begindag = geen zaterdag dan eindtijd oppakken (of resttijd vanaf 24 uur 's nachts.)

Function ORT4(start, eind)
dagA = Application.WorksheetFunction.Weekday(start)
dagZ = Application.WorksheetFunction.Weekday(eind)
tijdA = Hour(start) + Minute(start) / 60
tijdZ = Hour(eind) + Minute(eind) / 60
'uitgangspunten'
'Zaterdag is hele dag ORT'
Select Case dagA
Case 6
If dagZ = dagA Then
ORT4 = eind - start
Else
If dagA = 6 Then
ORT4 = 24 - tijdA
Else
If dagZ = 6 Then
ORT4 = tijdZ
End If
End If
End If
End Select
End Function

begintijd eindtijd resultaat
5-02-11 7:00 5-02-11 15:00 0:00:00

Alvast bedankt!

Als je de weekday functie gebruikt en jhe wilt maandag als dag 1 hebben en zaterdag dus als dag 6 (case 6) moet je de functie Weekday(start,2) gebruiken anders is de nummering anders.
Als de de ,2 weglaat is zondag dag 1 en zaterdag dag 7.

Heb je mij voorbeelden die ik je heb ge-PM'd al bekeken? hieronder de zaterdag nogmaals.

quote:

Op maandag 11 april 2011 22:30 schreef static het volgende:
Dat bedoelde ik met 'format op datum alleen zet'.

Dan klopt er iets niet. Als ie alleen op datum staat moet je ook alleen de datum zien