Loop code ‘For’

“i” is de rij; Kolom is de geselecteerde/actieve kolom; bereik is rij 1 t/m 30.
 

Dim i As Integer
Dim Kolom As Integer
Dim CellNumber As Integer
Kolom = ActiveCell.Column

CellNumber = 3
i = 4

For i = 4 To 30 Step 1

If Cells(i, Kolom).Value = "Ja" Then

< ToDo hier >

End If

CellNumber = CellNumber + 1

Next i