werken met als/of in vba

[Luc3d]

Ik gebruik een formule in excel om na te kijken of er in een van de opgegeven cellen het cijfer 12 voorkomt, om zo te bepalen of het resultaat een datum over 21 dagen of over 14 dagen betreft

=ALS(OF(D17=12;D18=12;D19=12;D20=12;D21=12;D22=12;D23=12;D24=12;D25=12);VANDAAG()+14;VANDAAG()+21)

Deze formule werkt ik mijn cel.
Maar ik zou deze graag via vba laten invoegen in de cel H5

daar probeer ik deze regel, maar die werkt niet

Range("H5").Formula = "=IF(OR(D17=12;D18=12;D19=12;D20=12;D21=12;D22=12;D23=12;D24=12;D25=12);TODAY()+14;TODAY()+21)"

Ik krijg dan "fout 1004 tijdens uitvoering"

Ik heb geen idee wat ik fout doe (ik gebruik office 2016)

 

[gast0660]

Wat doet deze?

Range("H5").FormulaR1C1 ="=IF(OR(R[12]C[-4]=12,R[13]C[-4]=12,R[14]C[-4]=12,R[15]C[-4]=12,R[16]C[-4]=12,R[17]C[-4]=12,R[18]C[-4]=12,R[19]C[-4]=12,R[20]C[-4]=12),TODAY()+14,TODAY()+21)"

 

[Haije]

probeer deze eens:

    Range("H5") = "=IF(OR(R[12]C[-4]=12,R[13]C[-4]=12,R[14]C[-4]=12,R[15]C[-4]=12,R[16]C[-4]=12,R[17]C[-4]=12,R[18]C[-4]=12,R[19]C[-4]=12,R[20]C[-4]=12),TODAY()+14,TODAY()+21)"

TIP: als je de formule in de cel hebt staan, selecteer dan de cel en neem een macro op.
Het enige dat je na het starten van de macrorecoder hoeft te doen is drukken op F2 en enter. Sop dan de macrorecoder

 

[gast0660]

@ Haije,

Sop dan de macrorecoder

Is dat een sopje met dreft?:d

 

[edmoor]

Is die macrorecorder na gebruik smerig?

 

[Luc3d]

gast0660

Hey gast0660, die werkt. Bedankt.

Alhoewel ik met die celverwijzing totaal verloren ben

 

[Haije]

@dotche. @edmoor,

we willen toch een schoon resultaat?:d

 

[edmoor]

@dotche. @edmoor,

we willen toch een schoon resultaat?:d

Dat zeker!


@luc3d:
Vervang in je eigen formule uit #1 de puntkomma's door een komma, dat is voldoende:

Range("H5").Formula = "=IF(OR(D17=12,D18=12,D19=12,D20=12,D21=12,D22=12,D23=12,D24=12,D25=12),TODAY()+14,TODAY()+21)"

 

[Luc3d]

@Edmoor

Dankjewel Edmoor,

Ok, dat werkt ook en zo begrijp ik de celverwijzigen wel.:love:

Opnieuw bedankt voor de hulp.
Fantastisch forum. Love it.

Groetjes

 

[edmoor]

Ik zou er trouwens dit van maken:

Range("H5").Formula = "=IF(SUM(D17:D25)>11,TODAY()+14,TODAY()+21)"

 

[VenA]

1 x TODAY() gebruiken kan ook

Range("H6") = "=TODAY()+IF(SUM(D17:D25)>11,14,21)"
Range("H7") = "=TODAY()+14+7*(SUM(D17:D25)<12)"