Necesito insertar 2 filas cada 3 filas para agregar nuevos datos el problema esta extenso la bd

Necesito insertar 2 filas cada 3 filas para agregar nuevos datos el problema esta extenso la bd son casi 500 filas

Eje

1 = Datos

2= Datos

3= Datos

4= Insertar

5=insertar

6=Dato

7=Dato

8=Dato

9=insertar

10=Insertar

1 Respuesta

Respuesta
1

Te mando mi solución con esta macro. Posiciónate en la primera celda de esa columna y después ejecútala

Sub proceso()
'por luismondelo
Do While ActiveCell.Value <> ""
ActiveCell.Offset(3, 0).Select
ActiveCell.EntireRow.Insert
ActiveCell.EntireRow.Insert
ActiveCell.Offset(2, 0).Select
Loop
End Sub

recuerda finalizar la consulta

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas