Als waarde cellen in Kolom D = "ja" dan waarde cellen in kolom F = "100%"...

[VBA1]

Hallo allemaal,

Ik heb het volgende probleempje:
Ik zoek de juiste VBA code om het volgende te doen:

Als de waarde bijvoorbeeld cel "D5" = "ja" dan wordt de waarde in cel F5 "100%", anders is de waarde in cel F5 "0%", en dit wil ik laten gelden voor alle cellen in de D en F kolom. Het is met wel al gelukt met 1 cel tegelijk:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("D4").Value = "ja" Then
Range("F4").Value = "100%"
Else
Range("F4").Value = "0%"
End If
End Sub

Ik wil bovenstaande dus laten gelden van bijvoorbeel D4 t/m D100 en F4 t/m F100 maar met Range kom ik niet ver als ik het cijfer in de cel aanduiding vervang door een variabele.

Iemand een suggestie?

Alvast heel erg bedankt!

Groetjes

 

[zapatr]

Dat kan bv. zo voor D2: D600, resp. F2:F600:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D2:D600")) Is Nothing Then
With Target
.Offset(, 2).Value = "0%"
If .Value = "ja" Then
.Offset(, 2).Value = "100%"
End If
End With
End If
End Sub

 

[VBA1]

Heel erg bedankt, jullie zijn VBA engelen! :thumb: