Macro de espacios
Hola:
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
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 de valedor
1
La siguiente macro hace lo que quieres, OJO, el valor que toma es el de la celda activa, por lo tanto si tu valor esta en A1, "debes" de seleccionar esta celda primero...
Option Explicit
Public Sub InsertaFilas()
Dim nFilas As Integer
nFilas = Abs(Val(ActiveCell.Value))
nFilas = nFilas - 1
If nFilas > 0 Then
With ActiveCell
.Range(.Offset(1, 0), .Offset(nFilas, 0)).EntireRow.Insert
End With
End If
End Sub
Si, "SIEMPRE" esta en la celda A1, puedes agregar esta linea despues del Dim
Range("A1").Select
Option Explicit
Public Sub InsertaFilas()
Dim nFilas As Integer
nFilas = Abs(Val(ActiveCell.Value))
nFilas = nFilas - 1
If nFilas > 0 Then
With ActiveCell
.Range(.Offset(1, 0), .Offset(nFilas, 0)).EntireRow.Insert
End With
End If
End Sub
Si, "SIEMPRE" esta en la celda A1, puedes agregar esta linea despues del Dim
Range("A1").Select
