Auto Numeração II

por alexandrevba Seg Jul 21, 2014 7:49 am

Bom dia!!
Outra forma de criar auto numeração

Código:: Private Sub Worksheet_Change(ByVal Target As Range) 'Auto Numeração r = Cells.Find("*", , , , xlByRows, xlPrevious).Row c = Cells.Find("*", , , , xlByColumns, xlPrevious).Column Application.EnableEvents = False Range("A1:A" & r).FormulaR1C1 = "=ROW()" Range("A1:A" & r).Value = Range("A1:A" & r).Value Application.EnableEvents = True End Sub