Hello,

I am try to make a macro that will loop thru about 100 cells and add a
number to the last column. The catch is that I would like the first
four cells to have 1 the next four to have two until you et down to the
last four which would have 25.

It might look like this...

Pam 25 45 1
Joe 45 55 1
Peter 34 12 1
Paul 10 10 1
Alex 23 45 2
Alexis 23 11 2
Abby 11 19 2
Bobby 56 43 2
....
....
....
Tony 34 56 25
Tom 34 33 25
Ted 88 76 25
Tana 33 22 25

I have no problem getting the 1 thru 25 on the first cell however I can
not seem get anything I try to make the next three.

Can anybody help?

Blair

If you have data in column A and you want to add the numbers to column D
then maybe:

Sub AddNums()
Dim i As Integer
Dim k As Integer
Dim j As Long
Dim eRow As Long
i = 1
k = 1
eRow = Cells(Rows.Count, 1).End(xlUp).Row
For j = 1 To eRow
Cells(j, 4).Value = i
If k = 4 Then
k = 0
i = i + 1
End If
k = k + 1
Next
End Sub


Hope this helps
Rowan

Whiz Kid wrote:
Hello,

I am try to make a macro that will loop thru about 100 cells and add a
number to the last column. The catch is that I would like the first
four cells to have 1 the next four to have two until you et down to the
last four which would have 25.

It might look like this...

Pam 25 45 1
Joe 45 55 1
Peter 34 12 1
Paul 10 10 1
Alex 23 45 2
Alexis 23 11 2
Abby 11 19 2
Bobby 56 43 2
...
...
...
Tony 34 56 25
Tom 34 33 25
Ted 88 76 25
Tana 33 22 25

I have no problem getting the 1 thru 25 on the first cell however I can
not seem get anything I try to make the next three.

Can anybody help?

Blair

Sub test_loop()
Dim iRowIndex As Long
For iRowIndex = 1 To Range("A65000").End(xlUp).Row
Cells(iRowIndex, 4) = Int((iRowIndex + 3) / 4)
Next
End Sub


"Whiz Kid" wrote:

Hello,

I am try to make a macro that will loop thru about 100 cells and add a
number to the last column. The catch is that I would like the first
four cells to have 1 the next four to have two until you et down to the
last four which would have 25.

It might look like this...

Pam 25 45 1
Joe 45 55 1
Peter 34 12 1
Paul 10 10 1
Alex 23 45 2
Alexis 23 11 2
Abby 11 19 2
Bobby 56 43 2
....
....
....
Tony 34 56 25
Tom 34 33 25
Ted 88 76 25
Tana 33 22 25

I have no problem getting the 1 thru 25 on the first cell however I can
not seem get anything I try to make the next three.

Can anybody help?

Blair