Macro para Generar Números

Hola Experto.
Me gustaría saber si me puedes colaborar con lo siguiente, quiero hacer una macro, que al ingresar un numero se cualquiera por ejemplo 20 ó 30 etc. Me coloque a partir de la celda A5 los números del 1 al 20 ó 30 según el numero que se ingrese en el inputbox.
Muchas gracias
Respuesta
1
Dim i As Integer
Range("A5").Select
For i = 1 to Range("A1").Value  'Suponiendo que aquí pones el número
      Activecell.Value = i
      ActiveCell.Offset(1, 0).Selet
Next i
Y listo, ya tienes tu listado.
Hola Experto, como estas
Muchas gracias por tu respuesta, ¿pero me podrías ayudar con otra cosa? Se le debe colocar el (¿Sub)? Para poder ejecutarla y quedaría así:
Sub numero()
Dim i As Integer
Range("A5").Select
For i = 1 To Range("A1").Value   'Suponiendo que aquí pones el número
      ActiveCell.Value = i
      ActiveCell.Offset(1, 0).Selet
Next i
End Sub
Que pena contigo, cuando me colocas "'Suponiendo que aquí pones el número" en este caso que debo hacer aquí, ya que la ejecuto y me saca un error.
Muchas gracias
Poner 10, 20, 30 ó el número que sea en A1 para que se ejecute el ciclo.
Hola Experto, como estas...
¿Qué pena con vos, pero no se si es que estoy haciendo algo mal, pero cuando realizo los pasos tal cual lo indicas para ejecutar la macro, me saca un mensaje de error "el objeto no admite esta propiedad o método" que podrá ser?
Muchas gracias
Me imagino que solo estás poniendo números, si pones letras te puede salir error. Cualquier cosa pon el código.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas