Macro para insertar filas
Tengo una lista muy larga con días de la semana (L-V) pero necesito insertar dos filas una para sábado y otra para domingo, necesito una macro que inserte 2 filas cada 5 celdas y que esto se repita aproximadamente 100 veces.
1 respuesta
Respuesta de dtorrado
1
Podría quedar algo así:
Sub InsertaFinde()
For i = 1 To 100
Cells(i * 7 - 1, 1).Select
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = "Sábado"
Cells(i * 7, 1).Select
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = "Domingo"
Next
End Sub
Está hecho para la columna A, cambia el 1 por el número de columna que sea.
Si tienes algún problema no dudes en preguntarme.
Sub InsertaFinde()
For i = 1 To 100
Cells(i * 7 - 1, 1).Select
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = "Sábado"
Cells(i * 7, 1).Select
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = "Domingo"
Next
End Sub
Está hecho para la columna A, cambia el 1 por el número de columna que sea.
Si tienes algún problema no dudes en preguntarme.
