vba loop script

[oframarek]

Hi All,
I'm trying to write a vba loop script for a list of numbers.
The scrip should do:

1. Check if the numbers identical.
2. If the numbers identical give a serial number that will count the identical numbers.
3. if The numbers do not match, then start a new series of serial numbers counting.

I have the script for the serial number.
Can you please help me with the script so it will have the conditional part – so the serial number counting will start over when the number in the list changes.

Thanks

Sub counter()
For i = 1 To Cells(Rows.Count, "B").End(xlUp).Row
If Cells(i, "B").Value <> "" Then
Cells(i, "A").Value = i - 0
End If
Next i
End Sub

The final result should look like this (the colores are not needed)

 

[Andrew Poulsom]

Welcome to MrExcel.

There's no need for a macro. In F2 enter:

=COUNTIF(E$2:E2,E2)

and copy down.

 

[Peter_SSs]

Welcome to the MrExcel board!

If you did want a macro, you could try this (not looping though).

<font face=Courier New><br><SPAN style="color:#00007F">Sub</SPAN> CreateSerialNumbers()<br>       <SPAN style="color:#00007F">With</SPAN> Range("F2:F" & Range("E" & Rows.Count).End(xlUp).Row)<br>        .Formula = "=IF(E2=E1,F1+1,1)"<br>        .Value = .Value<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br><br></FONT>

 

[oframarek]

it's working perfectly, thank you Andrew for the quick reply