Forum Discussion
Autofill numeration in row until last empty cell
Hi, How can I create macro which can autofill numeration in row. It have to end this macro at the end of this table. I was trying to make it in this way: It worked perfect, but in empty sheet. I...
with out VBA:
=IF($B2<>"",COUNTA($B2:$B$2),"")
or with VBA
Sub Nummero()
Dim x As Long, j As Long, Z As Long
x = Cells(Rows.Count, 2).End(xlUp).Row
For j = 1 To x
If Not IsEmpty(Cells(j, 2)) Then Cells(j, 1) = Z + 1: Z = Z + 1
Next
End SubExample file is included.
Hope I could help you with these information.
I know I don't know anything (Socrates)
In your table it works but I don't know how to change column what the number will write.
In your example number are in A column and checking values in B column.
In my case numbers should be write in J column and check if empty value i K column.
In your example number are in A column and checking values in B column.
In my case numbers should be write in J column and check if empty value i K column.