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 Respuesta
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
