macro cijfer toevoegen

[kees130]

Beste macro masters,

Graag wil ik dat in cel A2, A7, A12, A17 (om de 5 cellen) een 2 wordt geplaatst.
En deze doorvoeren totdat de cijfers in kolom A ophouden.

Alvast bedankt.

Groet,
Kees

 

[HSV]

Zou dit voldoen.
Voor eenmalig gebruik.

Sub hsv()
 Columns(1).SpecialCells(2, 1).Offset(1) = 2
End Sub

Of:

Sub hsv_2()
Dim i As Long
 For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row + 1 Step 5
  Cells(i, 1) = 2
 Next i
End Sub

 

[kees130]

Dat is hem, super!
Bedankt.