Crear macro para números consecutivos y que se llenen las celdas vacías asia abajo

hola experto

buenas tardes me puedes ayudar tengo este código

Sub Genera()
Dim numConsec As Long
Dim strConsec As String
Range("I2").Select
Selection.NumberFormat = "@"
If IsEmpty(ActiveCell) Then
Range("I2").Value = "00000"
Else
numConsec = Val(Range("I2").Value) + 1
strConsec = Right("00000" & Trim(Str(numConsec)), 5)
Range("I2").Value = strConsec
End If
End Sub

este me genera el numero consecutivo ahora quisiera que ese numero consecutivo se rellene al dar click en un botón y si la celda

A1

se encuentra con datos se recorra a la siguiente

ejemplo

A1= 0

A2=1

A3=2

A4=5

y asi consecutivamente

estoy trabajando con excel 2007

muchas gracias de antemano agradezco su tiempo.

1

1 respuesta

Respuesta
1

Prueba asi:

Sub Genera()
Dim numConsec As Long
Dim strConsec As String
Dim i As Integer
Range("I2").Select
Selection.NumberFormat = "@"
For i = 2 To Application.WorksheetFunction.CountA(Range("A:A"))
If IsEmpty(ActiveCell) Then
Range("I2").Value = "00000"
Else
numConsec = Val(Range("I" & i - 1).Value) + 1
strConsec = Right("00000" & Trim(Str(numConsec)), 5)
Range("I" & i).NumberFormat = "@"
Range("I" & i).Value = strConsec
End If
Next
End Sub

Asi toma en cuenta los elementos en A

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas