¿Añadir filas con un macro?
Tengo una lista de datos de 800 filas y quiero añadir 7 filas a cada una de éstas 800 con un macro. ¿Cómo lo puedo hacer sin que me las añada todas juntas? ¿Cómo debe ser el código?
Muchas gracias.
1 respuesta
¿Es decir insertar 7 fila vacias bajo cada fila llena de aquellas 800?
Sí, correcto, 7 filas vacías bajo cada una de las 800 que ya tienen datos.
Ok inserta un modulo desde el editor de vbasic alt+f11 ( no un modulo de clase)
Alli pegas este macro:
Public Sub inser_lineas()
Dim r As Range
Dim L As Byte
'4c7569735f50
If Selection.Columns.Count > 1 Then MsgBox "Selecione solo una columna", vbCritical: Exit Sub
Application.ScreenUpdating = False
For Each r In Range(Selection.Address)
r.Select
Do Until L = 7
If r <> Empty Then r.Offset(1, 0).EntireRow.Insert
L = (L + 1)
DoEvents
Loop
L = 0
DoEvents
Next
Set r = Nothing
Application.ScreenUpdating = True
End Sub
El tema funciona asi:
Debes seleccionar solo la primera columna del rango de datos desde el primer hasta el ultimo registro y luego corres el macro
Muchísimas muchísimas gracias! Me has ahorrado muchísimo tiempo con tu ayuda! Ya iba a optar por hacerlo una a una... Gracias, de verdad!
