ExcelBanter - Custom Autofill

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - Custom Autofill (https://www.excelbanter.com/excel-programming/280452-custom-autofill.html)

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.

--
Regards,
Tom Ogilvy

Cesar Zapata wrote in message
...
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