Loop: Zoeken naar waarde in range en vervolgens opvulkleur veranderen.

[mschrijver]

Goedemiddag,

Ik heb een Excelblad met een knop die het volgende doet:

Private Sub CommandButton2_Click()

If ActiveSheet.Range("X13").Value = "Ja" Then
ActiveSheet.Unprotect Password:="password"
Range("V13:x13").Interior.Color = RGB(0, 255, 0)
End If

If ActiveSheet.Range("X13").Value = "Nee" Then
ActiveSheet.Unprotect Password:="password"
Range("V13:x13").Interior.Color = RGB(255, 0, 0)
End If

End Sub

Nu moet dit niet alleen voor rij 13 gebeuren maar voor rij 13 tm rij 214 en ik heb geen zin om 201 keer copy/paste te gebruiken om zo een VBA code te schrijven.

Dit moet ook mogelijk zijn met behulp van een Loop.
Ik heb echter totaal geen idee waar ik moet beginnen.

Zouden jullie mij een zetje in de juiste richting kunnen/willen geven?

Alvast bedankt.

 

[mschrijver]

Opgelost door

Dim c As Range
For Each c In Range("V13:V214").Cells
  c.Select
  If c.Value = "Ja" Then
  ActiveSheet.Unprotect Password:="01FGSlab1962"
    With Selection.Interior
      .Pattern = xlSolid
      .PatternColorIndex = xlAutomatic
      .Color = RGB(0, 255, 0)
    End With
    ActiveSheet.Protect Password:="01FGSlab1962"
  End If
Next

te gebruken.