macro rellenar celdas vacias

[leserasfea]

Amigos, buenas tardes.

Quisiera contar con su ayuda para hacer que en la columna B, se rellene desde la ultima celda utilizada con el numero 1 consecutivo hacia abajo segun indica la celda I3 que describe el numero final del relleno

Ejemplo: Ultima celda utilizada B7 con el numero 500

Celda I3 dice 5, se aplica el macro y el resultado final es:

B8 = 1

B9 = 2

B10 = 3

B11 = 4

B12 = 5

Muchas gracias.

[tese1969]

Adjunta archivo ejemplo....normas del foro...

Un saludo,

Tese

[leserasfea]

Aquí va el adjunto.

"rellenar con números consecutivos después de la ultima celda utilizada en la columna B, a partir del numero 1 hacia abajo, hasta completar la cantidad indicada en la celda I3"

Muchas gracias

Rellenar celdas.zip

[Pinta]

Prueba esto.

S2

Sub Ejecuta()
    Application.ScreenUpdating = False
    Dim i As Integer

    For i = 1 To Range("I3")
        Cells(Range("B10").End(xlDown).Row + 1, 2) = i
    Next i
End Sub

[leserasfea]

Funciona de Maravillas!!! :congratulatory::victorious::victorious::encouragement::encouragement:

Muchas gracias!

[leserasfea]

Tema solucionado