IF AND regels

goede morgen,

ik had via een macro een opdracht gegeven om onderstaande formule uit te voeren. Dit is er maar een stukje van. De formule behelst veel meer voorwaarden maar allemaal in dezelfde context. Door de macro te draaien deed ie wel wat er gevraagd wordt maar enkel en alleen maar voor 1 cel.

Dan maar even naar VBA gegaan om te kijken of dit niet kon omgezet worden naar een hele kolom.

VIA EXCEL
=IF(AND(F2="CDG BE DL South";H2="CDG QSD Branded");"EMILY GENGOUX";IF(AND(F2="CDG BE DL North";H2="CDG QSD Custom");"INGRID DAEMS";

VIA VBA
Range("I2:I" & CELLS(rows.Count, "I").formular1c1 = _
"=IF(AND(RC[-3]=""CDG BE DL South"",RC[-1]=""CDG QSD Branded""),""EMILY GENGOUX"",FALSE)"

Helaas werkt het niet. Hopelijk kan 1 van jullie mij hieruit helpen? Alvast bedankt. Charline

Daar zou ik vanuit VBA geen formule voor gebruiken.
Plaats een voorbeeld document en vertel er bij welke gebeurtenis de VBA macro moet aftrappen.

DANK je wel voor uw snel antwoord maar helaas begrijp ik niet wat u bedoelt.

Range("I2:I" & CELLS(rows.Count, "I").

formular1c1 = _ Bedoelt u dat ik dit stukje tekst niet kan gebruiken? wat dan wel? de bedoeling is dat heel mijn kolom opgevuld wordt met deze voorwaarde.


"=IF(AND(RC[-3]=""CDG BE DL South"",RC[-1]=""CDG QSD Branded""),""EMILY GENGOUX"",FALSE)"

Als je doet wat ik vroeg wordt dat zo voor je geregeld.

IF THEN regels

Dit is de volledige macro:

Sub StastiekBijwerken()
'
' StastiekBijwerken Macro
'
' Keyboard Shortcut: Ctrl+a
'
Range("A1").Select 'ctrl+home

'Formule: Sales District vs Tabblad "ZIP Code"
Range("Q2:Q" & Cells(Rows.Count, "Q").End(xlUp).Row) = Application.WorksheetFunction.VLookup(Range("r2:R" & Cells(Rows.Count, "R").End(xlUp).Row), Worksheets("ZIP Code").Range("g:h"), 2, False)

'Kolom Q = "ZIP Code" ==> getal maken
Columns("Q:Q").Select
Selection.TextToColumns Destination:=Range("Q1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True

'Kolom Y = "Calendar/Qtr" ==> getal maken
Columns("Y:Y").Select
Selection.TextToColumns Destination:=Range("Y1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True

'Kolom Z = "Calendar/Yr" ==> getal maken
Columns("Z:Z").Select
Selection.TextToColumns Destination:=Range("Z1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True

'Kolom O = "Sold-To" ==> getal maken
Columns("O:O").Select
Selection.TextToColumns Destination:=Range("O1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True

'Kolom AF = "Quantity" ==> Format naar "Number"
Columns("AF:AF").Select
Selection.NumberFormat = "0"

'Kolom AG = "Invoice Total" ==> Format naar "Number"
Columns("AG:AG").Select
Selection.NumberFormat = "#,##0.00"

'Kolom AH = "List Price" ==> Format naar "Number"
Columns("AH:AH").Select
Selection.NumberFormat = "#,##0.00"

'Kolom AI = "Calculation 1" ==> Format naar "Number"
Columns("AI:AI").Select
Selection.NumberFormat = "#,##0.00"

'Formule: Sales District vs Tabblad "ZIP Code"
Range("F2:F" & Cells(Rows.Count, "F").End(xlUp).Row) = Application.WorksheetFunction.VLookup(Range("Q2:Q" & Cells(Rows.Count, "Q").End(xlUp).Row), Worksheets("ZIP Code").Range("A"), 4, False)

'Formule: Profit Center vs Commission Group
Range("D2" & Cells(Rows.Count, "D").End(xlUp).Row) = Application.WorksheetFunction.VLookup(Range("G2:G" & Cells(Rows.Count, "G").End(xlUp).Row), Worksheets("Rep").Range("W:Z"), 2, False)

'Formule: PC1 vs Commission Group
Range("E2:E" & Cells(Rows.Count, "E").End(xlUp).Row) = Application.WorksheetFunction.VLookup(Range("D2" & Cells(Rows.Count, "D").End(xlUp).Row), Worksheets("Rep").Range("X:Z"), 2, False)

'Formule: CG1 vs Profit Center
Range("H2:H" & Cells(Rows.Count, "H").End(xlUp).Row) = Application.WorksheetFunction.VLookup(Range("D2" & Cells(Rows.Count, "G").End(xlUp).Row), Worksheets("Rep").Range("X:Z"), 3, False)

'Kolom D ="Profit Center" ==> getal maken
Columns("D").Select
Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True

'Kolom G = "Commission Group" ==> getal maken
Columns("G:G").Select
Selection.TextToColumns Destination:=Range("G1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True

'Formule: Sold Customer vs Tabblad "Master Slave"
Range("P2" & Cells(Rows.Count, "P").End(xlUp).Row) = Application.WorksheetFunction.VLookup(Range("O2:O" & Cells(Rows.Count, "O").End(xlUp).Row), Worksheets("Customer Code").Range("a:B"), 2, False)


Range("I2:I").Select

=IF(AND(F2="CDG BE DL North";H2="CDG QSD Branded");"INGRID DAEMS";IF(AND(F2="CDG BE DL North";H2="CDG QSD Custom");"INGRID DAEMS";IF(AND(F2="CDG BE DL North";H2="CDG Other Comm");"INGRID DAEMS";IF(AND(F2="CDG BE DL South";H2="CDG QSD Branded");"EMILY GENGOUX";IF(AND(F2="CDG BE DL South";H2="CDG QSD Custom");"EMILY GENGOUX";IF(AND(F2="CDG BE DL South";H2="CDG Other Comm");"EMILY GENGOUX";IF(AND(F2="CDG BE DL South";H2="CDG BS");"ALAIN NICANOR";IF(AND(F2="CDG BE DL North";H2="CDG BS");"DIEDRIK FRATILA";IF(AND(F2="CDG BE DL North";H2="CDG Diabetes/hemo");"INGRID DAEMS";IF(AND(F2="CDG BE DL South";H2="CDG Diabetes/hemo");"EMILY GENGOUX";IF(AND(F2="CDG BE DL North";H2="CDG CID - AI");"WENDIE VANHEFFEN";IF(AND(F2="CDG BE DL North";H2="CDG IDD Serology");"WENDIE VANHEFFEN";IF(AND(F2="CDG BE DL South";H2="CDG CID - AI");"EMILY GENGOUX";IF(AND(H2="CDG BE DL South";H2="CDG IDD Serology");"EMILY GENGOUX";IF(AND(Q2>1119;Q2<1500);"EMILY GENGOUX";IF(AND(Q2>1499;Q2<2000);"WENDIE VANHEFFEN";IF(AND(Q2>2999;Q2<3500);"WENDIE V
ANHEFFEN";IF(AND(Q2>3999;Q2<6000);"EMILY GENGOUX";IF(AND(Q2>5999;Q2<6600);"WENDIE VANHEFFEN";IF(AND(Q2>6999;Q2<8800);"WENDIE VANHEFFEN";IF(AND(P2="SONIC";H2="CDG CID - AI");"WENDIE VANHEFFEN";IF(AND(P2="SONIC";H2="CDG IDD Serology");"WENDIE VANHEFFEN";IF(AND(P2="CERBA";H2="CDG CID - AI");"WENDIE VANHEFFEN";IF(AND(P2="CERBA";H2="CDG IDD Serology");"WENDIE VANHEFFEN";IF(AND(P2="SIEMENS";H2="CDG CID - AI");"WENDIE VANHEFFEN";IF(AND(P2="SIEMENS";H2="CDG IDD Serology");"WENDIE VANHEFFEN";IF(AND(P2="VLAAMSE UNIVERSITEIT BRUSSEL";H2="CDG CID - AI");"WENDIE VANHEFFEN";IF(AND(P2="VLAAMSE UNIVERSITEIT BRUSSEL";H2="CDG IDD Serology");"WENDIE VANHEFFEN";IF(AND(P2="UZ BRUSSEL";H2="CDG CID - AI");"WENDIE VANHEFFEN";IF(AND(P2="UZ BRUSSEL";H2="CDG IDD Serology");"WENDIE VANHEFFEN";IF(AND(P2="PPD";H2="CDG CID - AI");"WENDIE VANHEFFEN";IF(AND(P2="PPD";H2="CDG IDD Serology");"WENDIE VANHEFFEN";IF(AND(P2="SONIC";H2="CDG BS");"DIEDRIK FRATELI";IF(AND(P2="CERBA";H2="CDG BS");"DIEDRIK FRATELI";IF(AND(P2="SIEMENS";H2="CDG BS");"DIE
DRIK FRATELI";IF(AND(P2="VLAAMSE UNIVERSITEIT BRUSSEL";H2="CDG BS");"DIEDRIK FRATELI";IF(AND(P2="UZ BRUSSEL";H2="CDG BS");"DIEDRIK FRATELI";IF(AND(P2="PPD";H2="CDG BS");"DIEDRIK FRATELI";IF(AND(P2="MILITAIR HOSPITAL";H2="CDG BS");"DIEDRIK FRATELI";IF(AND(P2="SONIC";H2="CDG Diabetes/Hemo");"INGRID DAEMS";IF(AND(P2="SONIC";H2="CDG QSD Branded");"ingrid daems";IF(AND(P2="CERBA";H2="CDG Diabetes/Hemo");"INGRID DAEMS";IF(AND(P2="CERBA";H2="CDG QSD Branded");"INGRID DAEMS";IF(AND(P2="SIEMENS";H2="CDG Diabetes/Hem");"INGRID DAEMS";IF(AND(P2="SIEMENS";H2="CDG QSD Branded");"INGRID DAEMS";IF(AND(P2="VLAAMSE UNIVERSITEIT BRUSSEL";H2="CDG Diabetes/Hemo");"INGRID DAEMS";IF(AND(P2="VLAAMSE UNIVERSITEIT BRUSSEL";H2="CDG QSD Branded");"INGRID DAEMS";IF(AND(P2="UZ BRUSSEL";H2="CDG Diabetes/Hemo");"INGRID DAEMS";IF(AND(P2="UZ BRUSSEL";H2="CDG QSD Branded");"INGRID DAEMS";IF(AND(P2="PPD";H2="CDG Diabetes/Hemo");"INGRID DAEMS";IF(AND(P2="PPD";H2="CDG QSD Branded");"INGRID DAEMS";IF(P2="SYNLAB";"EMILY GENGOUX";IF(P2="MB NEXT";"
EMILY GENGOUX";IF(AND(C2="Luxembourg";H2="CDG IDD Serology");"EMILY GENGOUX";IF(AND(C2="Luxembourg";H2="CDG CID - AI");"EMILY GENGOUX";IF(AND(C2="Luxembourg";H2="CDG QSD Custom");"EMILY GENGOUX";IF(AND(C2="Luxembourg";H2="CDG QSD Branded");"EMILY GENGOUX";IF(AND(C2="Luxembourg";H2="CDG Diabetes/Hemo");"EMILY GENGOUX";FALSE))))))))))))))))))))))))))))))))))))))))))))))))))))))))))

Range("A1").Select


End Sub

Oei, er staan smileys in.... is zeker NIET de bedoeling. Maar uiteindelijk gaat het maar om het laatste gedeelte.

Dat is ook niet wat ik vroeg.

mijn oorspronkelijk vraag was om mij op weg te helpen hoe je zo een formule kan omzetten in vba. Een eerste stap is voor mij voldoende zodat ik het zelf verder kan verwerken. Ik vind het zeer vriendelijk dat de aanbieding er is om dit volledig te verwerken via een voorbeeld file. Maar die kan ik niet geven gezien de gevoeligheid van informatie.

Er wordt ook niet om het eigenlijke document gevraagd maar om een relevant voorbeeld.
Waar dus de waarden in zitten waar je met die functie op los wil.
Deze mogen uiteraard ook geanonimiseerd zijn.

ik hoop dat dit u verder helpt.Bekijk bijlage voorbeeld.xlsx

Ja, dat lijkt me voldoende.
Maar nu eerst lunch
En zeg maar jij hoor

goede morgen,

back in business
kan ik al een tipje van de sluier of ben je er nog steeds mee aan de slag?

Misschien kan ik de druk wat opvoeren...... mijn statistiek zou mooi ogen op het einde van de maand.
Indien het niet mogelijk is gebruik ik wel mijn oude
mvg

Ik kan er vanavond naar kijken.
Stay tuned

Ik mis in kolom I de functie die je er voor wilt gebruiken.

goedemorgen, in bijlage heb ik het voorbeeld even aangepast met de formule.
mvg
CharlineBekijk bijlage voorbeeld2.xlsx

Je macro zit er niet in.
Of wil je dat de macro voor alle regels ineens de juiste waarde in kolom I zet?
Dan kan je toch gewoon 1x dubbelklikken op de vulgreep van I2?

Er staat maar 1 naam in kolom J. Dat zou de juiste uitkomst moeten zijn?

ja uiteraard kan ik de kolom gewoon opvullen met de formule en uitlijnen naar beneden. Maar ik wil dit omzetten in een macro. Dat was de intiële vraag. Mijn baas is niet van plan om elke keer die formule te kopiëren.... niet dat ie lui is maar ja, baas is baas. Ik ben aan zoeken geweest om het hem makkelijker te maken. Mijn macro, welke ik je in voorgaande mails heb laten zien (in vba uitgeschreven) werkt. Enkel op de laatste formule blijft hij steken. En ook omdat ik niet weet hoe je deze formule kan omzetten naar vba, daarom dat ik iemand om hulp vraag. Dit is de formule welke ik graag omgezet zie naar vba, mocht dit een utopie zijn dan stop ik ermee om hulp te vragen. Dan zal ikzelf wel telkens de formule in de cel zetten en verwerken: :d

=IF(AND(F2="CDG BE DL North";H2="CDG QSD Branded");"INGRID DAEMS";IF(AND(F2="CDG BE DL North";H2="CDG QSD Custom");"INGRID DAEMS";IF(AND(F2="CDG BE DL North";H2="CDG Other Comm");"INGRID DAEMS";IF(AND(F2="CDG BE DL South";H2="CDG QSD Branded");"EMILY GENGOUX";IF(AND(F2="CDG BE DL South";H2="CDG QSD Custom");"EMILY GENGOUX";IF(AND(F2="CDG BE DL South";H2="CDG Other Comm");"EMILY GENGOUX";IF(AND(F2="CDG BE DL South";H2="CDG BS");"ALAIN NICANOR";IF(AND(F2="CDG BE DL North";H2="CDG BS");"DIEDRIK FRATILA";IF(AND(F2="CDG BE DL North";H2="CDG Diabetes/hemo");"INGRID DAEMS";IF(AND(F2="CDG BE DL South";H2="CDG Diabetes/hemo");"EMILY GENGOUX";IF(AND(F2="CDG BE DL North";H2="CDG CID - AI");"WENDIE VANHEFFEN";IF(AND(F2="CDG BE DL North";H2="CDG IDD Serology");"WENDIE VANHEFFEN";IF(AND(F2="CDG BE DL South";H2="CDG CID - AI");"EMILY GENGOUX";IF(AND(H2="CDG BE DL South";H2="CDG IDD Serology");"EMILY GENGOUX";IF(Q2<1119);"EMILY GENGOUX";IF(AND(Q2>=1119;Q2<1500);"EMILY GENGOUX";IF(AND(Q2>=1500;Q2<2000);"WENDIE VANHEFFEN";IF(AND(Q2>=3000;Q2=<3500);"WENDIE VANHEFFEN";IF(AND(Q2>=4000;Q2<6000);"EMILY GENGOUX";IF(AND(Q2>=6000;Q2<6600);"WENDIE VANHEFFEN";IF(AND(Q2>=6600;Q2<7000);"EMILY GENGOUX";IF(AND(P2="SONIC";H2="CDG CID - AI");"WENDIE VANHEFFEN";IF(AND(P2="SONIC";H2="CDG IDD Serology");"WENDIE VANHEFFEN";IF(AND(P2="CERBA";H2="CDG CID - AI");"WENDIE VANHEFFEN";IF(AND(P2="CERBA";H2="CDG IDD Serology");"WENDIE VANHEFFEN";IF(AND(P2="SIEMENS";H2="CDG CID - AI");"WENDIE VANHEFFEN";IF(AND(P2="SIEMENS";H2="CDG IDD Serology");"WENDIE VANHEFFEN";IF(AND(P2="VLAAMSE UNIVERSITEIT BRUSSEL";H2="CDG CID - AI");"WENDIE VANHEFFEN";IF(AND(P2="VLAAMSE UNIVERSITEIT BRUSSEL";H2="CDG IDD Serology");"WENDIE VANHEFFEN";IF(AND(P2="UZ BRUSSEL";H2="CDG CID - AI");"WENDIE VANHEFFEN";IF(AND(P2="UZ BRUSSEL";H2="CDG IDD Serology");"WENDIE VANHEFFEN";IF(AND(P2="PPD";H2="CDG CID - AI");"WENDIE VANHEFFEN";IF(AND(P2="PPD";H2="CDG IDD Serology");"WENDIE VANHEFFEN";IF(AND(P2="SONIC";H2="CDG BS");"DIEDRIK FRATILA";IF(AND(P2="CERBA";H2="CDG BS");"DIEDRIK FRATILA";IF(AND(P2="SIEMENS";H2="CDG BS");"DIEDRIK FRATILA";IF(AND(P2="VLAAMSE UNIVERSITEIT BRUSSEL";H2="CDG BS");"DIEDRIK FRATILA";IF(AND(P2="UZ BRUSSEL";H2="CDG BS");"DIEDRIK FRATILA";IF(AND(P2="PPD";H2="CDG BS");"DIEDRIK FRATILA";IF(AND(P2="MILITAIR HOSPITAL";H2="CDG BS");"DIEDRIK FRATILA";IF(AND(P2="SONIC";H2="CDG Diabetes/Hemo");"INGRID DAEMS";IF(AND(P2="SONIC";H2="CDG QSD Branded");"ingrid daems";IF(AND(P2="CERBA";H2="CDG Diabetes/Hemo");"INGRID DAEMS";IF(AND(P2="CERBA";H2="CDG QSD Branded");"INGRID DAEMS";IF(AND(P2="SIEMENS";H2="CDG Diabetes/Hem");"INGRID DAEMS";IF(AND(P2="SIEMENS";H2="CDG QSD Branded");"INGRID DAEMS";IF(AND(P2="VLAAMSE UNIVERSITEIT BRUSSEL";H2="CDG Diabetes/Hemo");"INGRID DAEMS";IF(AND(P2="VLAAMSE UNIVERSITEIT BRUSSEL";H2="CDG QSD Branded");"INGRID DAEMS";IF(AND(P2="UZ BRUSSEL";H2="CDG Diabetes/Hemo");"INGRID DAEMS";IF(AND(P2="UZ BRUSSEL";H2="CDG QSD Branded");"INGRID DAEMS";IF(AND(P2="PPD";H2="CDG Diabetes/Hemo");"INGRID DAEMS";IF(AND(P2="PPD";H2="CDG QSD Branded");"INGRID DAEMS";IF(P2="SYNLAB";"EMILY GENGOUX";IF(P2="MB NEXT";"EMILY GENGOUX";IF(AND(C2="Luxembourg";H2="CDG IDD Serology");"EMILY GENGOUX";IF(AND(C2="Luxembourg";H2="CDG CID - AI");"EMILY GENGOUX";IF(AND(C2="Luxembourg";H2="CDG QSD Custom");"EMILY GENGOUX";IF(AND(C2="Luxembourg";H2="CDG QSD Branded");"EMILY GENGOUX";IF(AND(C2="Luxembourg";H2="CDG Diabetes/Hemo");"EMILY GENGOUX";FALSE))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))