Una duda sobre esta macro

Lo qui ero que realiza des pues de que termine esto es que me agregue una fila completa como puedo realizar esto?

Worksheets("BaseDatos").Activate
Range("B6").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Loop
ActiveCell.Offset(0, 0) = Label8.Caption
ActiveCell.Offset(0, 1) = Label9
ActiveCell.Offset(0, 2) = Label10
ActiveCell.Offset(0, 3) = Label11
ActiveCell.Offset(0, 4) = Label13
ActiveCell.Offset(0, 5) = Label15
ActiveCell.Offset(0, 6) = Label17
ActiveCell.Offset(0, 7) = Label19
ActiveCell.Offset(0, 8) = Label21
ActiveCell.Offset(0, 9) = Label23

1 respuesta

Respuesta
1

Tienes que poner un código similar a este

Rows("9:9").Select
Selection.Insert Shift:=xlDown

o a esto

Rows("9:9").Select
Selection.EntireRow.Insert

Pero tienes que identificar dónde vas a insertar la fila.

Saludos. Dam

Si es lo que necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas