Crear una macro que copie datos de unas celdas a otras celdas en otra hoja y al añadir se desplace

Quiero crea una macro que copie datos de unas celdas a otras celdas en otra hoja, una vez copiadas, deja las celdas de origen vacías, si añado un nuevo registro, al copiar se desplaza una fila hacia abajo.

Yo he hecho lo siguiente:

Sub Guardar_Luminaria()
' Guardar_Luminaria Macro
' Añade una nueva Luimnaria en la hoja BD Inventario
Range("A3:I3").Select
Selection.Copy
Sheets("BD Inventario").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.End(xlDown).Select
Range("A4").Select
Sheets("inventario").Select
Range("A3:F3").Select
Range("F3").Activate
Application.CutCopyMode = False
Selection.ClearContents
End Sub

1 respuesta

Respuesta
1

Prueba con esto:

Sub Guardar_Luminaria()
' Guardar_Luminaria Macro
' Añade una nueva Luimnaria en la hoja BD Inventario
Sheets("BD Inventario").Rows(3).Insert
Range("A3:I3").Copy
Sheets("BD Inventario").Range("A3").PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("A3:F3").ClearContents
End Sub

Saludos.Dante Amor
Si es lo que necesitas.

Ffunciona muy bien, lo único que me gustaría que el orden fuera: el primero que se ha añadido se queda como 1º, el segundo como 2º debajo del primero y así sucesivamente.

Muchas gracias por al ayuda prestada. Saludos cordiales

Sub Guardar_Luminaria()
'Añade una nueva Luimnaria en la hoja BD Inventario
Range("A3:I3").Copy
u = Sheets("BD Inventario").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("BD Inventario").Range("A" & u).PasteSpecial Paste:=xlPasteValues
Range("A3:F3").ClearContents
End Sub

Saludos. Dante Amor
No olvides finalizar la pregunta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro para copiar datos de una hoja a otra

Bueno este es el macro que hice, me copia los datos de la "hoja factura" pero me los manda mal a la "hoja acumulador" me los pone mezclados: Sub asi() Application.ScreenUpdating = False Worksheets("FACTURA").Range("F3").Copy...
1 respuesta

Capturar información de varias hojas en una nueva

Estoy tratando de automatizar la captura de información a partir de varias hojas de un mismo libro de excel, una vez grabada la macro esta solo me efectúa el proceso hasta la hoja 4 del libro y en total son 287 hojas. Que sentencia debo incluir al...
1 respuesta

Macro para pasar de renglón

Tengo un archivo de excel con más de 200 registros en la primer hoja, sin embargo, de cada registro, tengo que sacar en una hoja nueva 265 subregistros de un solo registro. Dicha macro ya la realice, el caso que lo que quiero es de que al apretarle...
1 respuesta

Macro buscar-pegar

Me ha surgido un problema con una hoja de exel de registro de operaciones que estoy montando, me veo en la necesidad de ingresar datos de una hoja de calculo a otra y creo que la mejor opción es empleando una macro pero mi problema es que no se como...
1 respuesta

Macro para copiar celdas con formato (color) a otra celda

Ya se me indicó en una ocasión la forma de trasladar (copiar) celdas de una hoja a otra con una macro. Ahora quisiera que también se transfiriesen no sólo el valor de las celdas sino también el color. Os adjunto parte del código de la macro que...
1 respuesta

Macro copiar y pegar valores en columna filtrada

Necesito una macro que una vez filtrada una columna me copie una celda y pegue los valores en la misma, baje otra celda y haga lo mismo y así consecutivamente hasta el final. He grabado una macro con el grabador para que se den una idea. Sub Macro1()...
1 respuesta