Macro de espacios

Macro de espacios
Hola Nilda: Necesito una macro que ponga tantas filas menos una, como sea el valor de una casilla. Me explico:por ejemplo si en la casilla A1 tengo un 3, necesito que la macro agregue 2 filas bajo él, es decir si en la casilla hay "n", que ponga "n-1" filas bajo el.Si tiene un 1 que no ponga filas bajo el. ¿Pueden ayudarme? Gracias

1 Respuesta

Respuesta
1
El código que correspondería a la macro es el siguiente:
*****************
Sub InsertarFilas()
Dim Cantidad As Integer
Cantidad = Range("A1").Value
Range("A2").Select
For i = 1 To Cantidad
Selection.EntireRow.Insert
Next
End Sub
*******************
Prueba y me cuentas.
Nilda:
La macro cumple el objetivo, pero sólo en la primera casilla. Necesito que recorra
Toda la columna y que vaya agregando los espacios.
De antemano, gracias.
A bueno, pero eso no es lo que habías planteado, veré que se puede hacer.
A ver ahora...
Sub InsetarFilas()
Dim Cantidad As Integer
Cantidad = Range("A1").Value
Range("A2").Select
Do Until IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
For i = 2 To Cantidad
Selection.EntireRow.Insert
Next
Selection.End(xlDown).Select
Loop
Range("A1").Select
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas