Formule via macro

[verluc]

Heeft iemand enig idee waarom ik bij volgende macro een foutmelding 400 krijg ?

[H3] = ("=vert.zoeken(CADEUR=X;A7:D500;4")

Met dank.

 

[Thankyou]

Probeer hem zo eens:

"=VLOOKUP(CADEUR=X,A7:D500,4)"

 

[verluc]

Sorry, maar krijg nu de melding #NAAM? in H3

 

[Thankyou]

Ik ook, vermoedelijk door het rode gedeelte in de formule:

"=VLOOKUP([COLOR="#FF0000"]CADEUR[/COLOR]=X,A7:D500,4)"

Loop je formule dus nog eens door, ik heb alleen de vertaling voor je gedaan. Ik vermoed dat dit een bereiknaam is?

Succes,

 

[verluc]

Bedankt.Heb deze werkende gekregen, doch zit nog met de volgende formule die ik eveneens graag in een macro had
gezien voor de Range M7 tot laatste rij van kolom M
Met dank voor enige aanzet of hulp.

 

[verluc]

Sorry, formule vergeten bij te voegen :

=ALS(OF(RECHTS(A7;2)=".V";RECHTS(A7;3)=".TO");$H$3*B7*D7;$I$3*B7*D7)

Dank.

 

[sylvester-ponte]

hoi
neem een macro op terwijl je de formule invoert en naar beneden kopieert
ja kan hem daarna nog aanpassen

groet sylvester

 

[Warme bakkertje]

Sub Test()
    Range("M7") = "=IF(OR(RIGHT(R[6]C,2)="".V"",RIGHT(R[6]C,3)="".TO""),R3C8*R[6]C[1]*R[6]C[3],R3C9*R[6]C[1]*R[6]C[3])"
    Range("M7:M20").FillDown
End Sub

Vervang de M20 nog door de laatste regel, of moet deze op een of andere manier berekend worden ?

 

[verluc]

Kan de laatste rij niet bepaald worden door xlEndUp (als dat mogelijk !!!)
Inderdaad is deze laatste cel variabel.
Met dank

 

[jolivanes]

Warme bakkertje heeft mij ook verschillende malen geholpen dus nu is het mijn beurt.

Als het in relatie tot kolom A is dan

Sub Test()
LR = Cells(Rows.Count, 1).End(xlUp).Row
    Range("M7") = "=IF(OR(RIGHT(R[6]C,2)="".V"",RIGHT(R[6]C,3)="".TO""),R3C8*R[6]C[1]*R[6]C[3],R3C9*R[6]C[1]*R[6]C[3])"
    Range("M7", Range("M" & LR)).FillDown
End Sub

zou dit moeten werken.

 

[verluc]

Zeer bedankt voor Uw reactie.
Ik heb deze aangepast aan mijn actuele situatie maar krijg foutmelding 400
Hierbij de aangepaste macro:

Sub Test()
LR = Cells(Rows.Count, 1).End(xlUp).Row
    Range("M7") = "=IF(OR(RIGHT(R[7]C,2)="".V"",RIGHT(R[7]C,3)="".TO""),$H$3*B7-D7,$I$3*B7*D7)"
    Range("M7", Range("M" & LR)).FillDown
End Sub

Enig idee?

 

[verluc]

Hello,

Na enig puzzelwerk aan Uw macro en diverse testen (om te leren wat de diverse instructies inhouden), ben ik eruit gekomen
om deze macro te laten werken.
Mijn dank is groot voor beide excellers en sluit dan ook dit onderwerp.