Problema con macro 2
Estimados expertos, agradezco de antemano su ayuda
Mi pregunta es la siguiente: Necesito el código en excel en la cual yo escriba en las celdas (B17:G20) me copie la información y pegue la información (con el mismo formato de celda) en en la celdas 22, si la celda 22 esta ocupada pase a la siguiente fila desocupada o a la siguiente sexta fila.
Espero ser lo bastante claro. La verdad lo e intentado con:
Range("B17:G21").Select
Selection.Copy
Range("B22").Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Range("B18:G18").Select
Selection.ClearContents
Range("B20:G20").Select
Selection.ClearContents
Pero este código me baja los datos cada vez que crea uno nuevo y lo que ocupo es que lo cree debajo del que ya este.
Muchas gracias por su ayuda anticipadamente, reitero
Mi pregunta es la siguiente: Necesito el código en excel en la cual yo escriba en las celdas (B17:G20) me copie la información y pegue la información (con el mismo formato de celda) en en la celdas 22, si la celda 22 esta ocupada pase a la siguiente fila desocupada o a la siguiente sexta fila.
Espero ser lo bastante claro. La verdad lo e intentado con:
Range("B17:G21").Select
Selection.Copy
Range("B22").Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Range("B18:G18").Select
Selection.ClearContents
Range("B20:G20").Select
Selection.ClearContents
Pero este código me baja los datos cada vez que crea uno nuevo y lo que ocupo es que lo cree debajo del que ya este.
Muchas gracias por su ayuda anticipadamente, reitero
1 Respuesta
Respuesta de Victor Perdomo
1
Sub insertarx()
f = 22
While Cells(f, 2).Value <> ""
f = f + 5
Wend
Range("B17:G21").Copy
Cells(f, 2).PasteSpecial
Application.CutCopyMode = False
End Sub
f = 22
While Cells(f, 2).Value <> ""
f = f + 5
Wend
Range("B17:G21").Copy
Cells(f, 2).PasteSpecial
Application.CutCopyMode = False
End Sub
