Copiar celdas con macros en hoja 1 u hoja 2.
Hola.
Tengo una hoja donde he puesto en la columna A una lista de 100 productos, con algunos espacios en blanco por si necesito rellenar la lista.La columna B, C y DE contiene número de unidades, precio unitario y total.
Necesito copiar en columna E o F, también sirve en columna A de la hoja 2, las celdas que pinche de tal modo que se copie la fila completa, vale decir de la A a la D. Es decir que si pincho 10 15 artículos estos queden una bajo el otro. Aparte de una probable macro para ello, ¿excel usa alguna fórmula o método para hacer esto?.
Tengo una hoja donde he puesto en la columna A una lista de 100 productos, con algunos espacios en blanco por si necesito rellenar la lista.La columna B, C y DE contiene número de unidades, precio unitario y total.
Necesito copiar en columna E o F, también sirve en columna A de la hoja 2, las celdas que pinche de tal modo que se copie la fila completa, vale decir de la A a la D. Es decir que si pincho 10 15 artículos estos queden una bajo el otro. Aparte de una probable macro para ello, ¿excel usa alguna fórmula o método para hacer esto?.
1 respuesta
Respuesta de Elsa Matilde
1
Esta rutina cópiala en un módulo.
Para ejecutarla te sugiero utilices un atajo de teclado, la macro te copiará todos los registros seleccionados de la col A, en col E o en hoja2 (quitá lo que no utilices)
Para asignar un atajo desde menú Herramientas, macros, seleccionala de la lista y con botón Opciones te permitirá ingresar una letra.
Sub copiafilas()
Dim fila1 As Integer
Dim rgo As Range
Range(Selection, Selection.Offset(0, 3)).Select
'para copiar en la misma hoja
fila1 = Range("E65536").End(xlUp).Row + 1
Selection.Copy Destination:=Cells(fila1, 5)
'para copiar en otra hoja
fila1 = Sheets("Hoja2").Range("A65536").End(xlUp).Row + 1
Selection.Copy Destination:=Sheets("Hoja2").Cells(fila1, 1)
End Sub
Saludos
Elsa
** Promoción: manual Excel con manual Introducción a las macros, en:
Para ejecutarla te sugiero utilices un atajo de teclado, la macro te copiará todos los registros seleccionados de la col A, en col E o en hoja2 (quitá lo que no utilices)
Para asignar un atajo desde menú Herramientas, macros, seleccionala de la lista y con botón Opciones te permitirá ingresar una letra.
Sub copiafilas()
Dim fila1 As Integer
Dim rgo As Range
Range(Selection, Selection.Offset(0, 3)).Select
'para copiar en la misma hoja
fila1 = Range("E65536").End(xlUp).Row + 1
Selection.Copy Destination:=Cells(fila1, 5)
'para copiar en otra hoja
fila1 = Sheets("Hoja2").Range("A65536").End(xlUp).Row + 1
Selection.Copy Destination:=Sheets("Hoja2").Cells(fila1, 1)
End Sub
Saludos
Elsa
** Promoción: manual Excel con manual Introducción a las macros, en:
