Logré insertar filas según el valor de la celda, por ejemplo, si la celda A1 es 20, ejecuto la macro, aparecen 20 filas debajo de A1, esas filas están en blanco, necesito que las 20 celdas nuevas debajo de A1 sean del 1 al 20 ( el número en A1) hágamelo saber si es posible.
Saludos adrien
Prueba esto:
Sub counter() Dim i as integer for i = 2 to cells(1, 1) + 1 cells(i, 1) = i - 1 next i End Subme dice "tipo no coincidente"
He adjuntado 2 imágenes tal vez para ser más claro.
[Paso 1][1] [1]: https://i.stack.imgur.com/TrvZx.jpg [Paso 2][2] [2]: https://i.stack.imgur.com/D044V .jpg
Muchas gracias