Omzetten naar VBA

[fransol1]

Kan iemand deze formule naar vba zetten
=ALS(ISNB(VERT.ZOEKEN(J12;$AF$10:$AG$18;2;0));"";VERT.ZOEKEN(J12;$AF$10:$AG$18;2;ONWAAR()))

Al vast bedankt.

 

[edmoor]

Dat kan je zelf ook. Neem een macro op, druk in de cel waar die functie staat op F2 en dan op Enter.
Klaar is je macro.

 

[gast0660]

ActiveCell.FormulaR1C1 = "=IF(ISNA(VLOOKUP(R[11]C[9],R10C32:R18C33,2,0)),"""",VLOOKUP(R[11]C[9],R10C32:R18C33,2,FALSE()))"

 

[HSV]

Het is niet gezegd dat dat de juiste formule @gast0660.

Jij weet namelijk niet waar de formule staat.

 

[gast0660]

@HSV, klopt als een zwerende vinger,maar ActiveCell is vlug vervangen, lijkt mij.

 

[HSV]

Dit bedoel je?

Je zult het wel merken.

Sub Macro1()
'
' Macro1 Macro
'


'


     range("a1") = "=IF(ISNA(VLOOKUP(R[11]C[9],R10C32:R18C33,2,0)),"""",VLOOKUP(R[11]C[9],R10C32:R18C33,2,FALSE()))"
     range("a11") = "=IF(ISNA(VLOOKUP(R[11]C[9],R10C32:R18C33,2,0)),"""",VLOOKUP(R[11]C[9],R10C32:R18C33,2,FALSE()))"
End Sub