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.
In my main sheet I got an error 1004 because of merged cells size.
Sub formuly_cena_zakupu_dziala()
'
' formuly_cena_zakupu Makro
'
'
Range("J18").AUTOFILL Range("J18:J" & Cells(Rows.Count, "J").End(xlUp).Row), Type:=xlFillSeries
End Sub
10 Replies
You can pull this off without VBA. Please consider this solution:
'Dynamic range for the entries in Column B =LET(b,Sheet1!$B$2:$B$100000,nonblank,COUNTA(b),TAKE(b,nonblank))Sheet level formula:
The results of SEQUENCE are only as long as the number of rows from the dynamic range. =LET(r,ROWS(Dynamic),SEQUENCE(r,,1,1))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. Thank you for help.
I copy and paste your code but it's not working.
I don't get ant error when I starting your code but it will do nothing.- Which Excel version do you have?...operating system, storage medium?
Does the inserted file work for you?
