Macro para numerar celdas del 1 al 14

Estoy queriendo agregar algo que resulta muy sencillo hacer en excel a una macro. El tema es que la macro ya hace varias cosas y pensé.. ¿por qué no agregarle una mas?

Básicamente quisiera saber como seria el código para que me enumere desde la celda A3 hasta A16 desde el numero 1 hasta el 14 respectivamente. Actualmente lo tengo así:

Range("a3").Value = "1"

Uno por uno... Pero se que debe haber algo mucho mas sencillo que eso jaja.

3 respuestas

Respuesta
2

Prueba con esta macro

Sub numerar()
 With Range("A3")
    .Value = 1
    .AutoFill Destination:=Range("A3:A16"), Type:=xlFillSeries
End With
End Sub
Respuesta
1

[Hola 

prueba esto 

Sub NUM()
    ini = 3
    For i = 1 To 14
        Cells(ini, 1) = i
        ini = ini + 1
    Next i
End Sub
Respuesta

Prueba esto

Sub imput()
For x = 3 To 16: Cells(x, "A") = x: Next x
End Sub

En el ejemplo tienes unos bucles con For...Next, recuerda que también lo puedes hacer lo Do...Loop While ... When que son estructuras para generar un bucle en VBA

https://macrosenexcel.com/2016/10/como-incluir-n-en-bucle-for-next-con.html

https://macrosenexcel.com/2016/10/como-hacer-un-bucle-for-next-con-letras.html

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas