Macro Insertar Fila Ayuda

Hola, Soy nuevo en esto de las Macros y quisiera Crear una Macro que Realice La siguiente operación.
Tengo una hoja de calculo con 5 Columnas ( De la A la D), pues Bien quisiera que al seleccionar una fila y ejecutar la macro Haga lo siguiente:
1. Copiar la fila seleccionada
2. Insertarlas encima de Dicha Fila
3. Borrar el contenido de Las celdas insertadas (Excepto la celda D que contiene una fórmula)
4. Colocar el Cursor en la primera celda de la fila insertada .
Lo que no Es Realizar el 3 Paso a ver si me puedes ayudar. Gracias y Espero La Respuesta.
1

1 respuesta

Respuesta
1
Grabala
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Range("A1:C1").Select
Selection.ClearContents
ActiveCell.Select
Ok Me ha sido de Gran ayuda
Gracias por la respuesta, Me ha sido de gran ayuda, pero por ultimo si no es molestia quisiera crear otra macro de idénticas características pero que realice la siguiente operación.
Una ver seleccionada una fila y ejecuto una Macro que realice lo siguiente.
Vaya la la fila 7 y copie el Formato.
Inserte dicha fila DEBAJO de la fila seleccionada
y coloque el cursor en la Primera celda de la fila insertada
Gracias y espero tu respuesta
(P.D. Si contestas te daré la máxima puntuación)
Sub insertar()
Application.ScreenUpdating = False
Set celda = ActiveCell
Rows("7:7").Select
Selection.Copy
celda.Select
ActiveCell.Offset(1, 0).Select
Selection.EntireRow.Insert
ActiveCell.Rows("1:1").EntireRow.Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.Select
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas