Custom Autofill

  • Thread starter Thread starter Cesar Zapata
  • Start date Start date
C

Cesar Zapata

Hi,

I got a problem that i cant solve it. is killing me! :)

well it looks easey but I cant do this.

I need to autofill in this order. the number have to repeat 30 rows then
once it gets to 3 change back to one and go on. Please help is appreciated.

1
1
1
2
2
2
3
3
1
1
1
2
2
2
3
3
3
 
Sub Tester4()
rw = 1
For i = 1 To 10
k = 0
For j = 1 To 9
If j Mod 3 = 1 Then k = k + 1
Cells(rw, 1) = k
rw = rw + 1
Next
Next
End Sub

Not sure what you mean by repeat 30 rows.
 
Back
Top