vba code ?

[lsc.b]

hallo allen
ik zoek een vba code zie bijlagen

de code die ik zoek moet op het gene lijken van in mijn voorbeeld maar ,
in plaats van op de cel te klikken moet het naar een waarde lijkt mij.
zie uit leg voorbeeld

 

[JEC.]

Niet helemaal duidelijk maar je kunt deze achter je werkblad zetten. Meer heb je dan niet nodig.

Private Sub worksheet_change(ByVal Target As Range)
If Target.Address(0, 0) = "D4" Then [a1] = IIf(Target.Value < 15, "test", "")
End Sub

 

[lsc.b]

top dit is wat ik zocht .
thanks

 

[JEC.]

Mooizo!:thumb:

 

[lsc.b]

zou ik deze ook kunnen gebruiken voor hoger dan 15 dus beiden,
zo dat lager dan 15 andere tekst staat dan hoger dan 15.
het is voor een stukje vooraad bestellijst

 

[JEC.]

Zo dan

Private Sub worksheet_change(ByVal Target As Range)
If Target.Address(0, 0) = "D4" Then [a1] = IIf(Target.Value < 15, "lager", IIf(Target.Value > 15, "hoger", ""))
End Sub

 

[JEC.]

Misschien dat je het had gemist. Code was iets aangepast, direct na posten.

 

[lsc.b]

klopt ik was te vlug nogmaals thank.
en welterusten