Macro para copiar celdas que están separadas
¡Hola!
Tengo en la hoja 1 varias columnas en la columna A Cantidades Existentes, Columna B Descripción del Producto, Columna C Costo del Producto y Columna DE Precio de Venta. Bien me interesa hacer un macro que copie en la hoja 2 sólo aquellos productos que tiene cantidades existente en la columna A, que la copie uno de bajo del otro en la hoja 2, para así imprimir esta hoja 2, con todos los que ahí existente, ya que existen muchos productos que no tienen cantidades existente y de 200 productos solo pueden haber algunos 50, 80, 100.
Gracias por su ayuda.
Demy.
Tengo en la hoja 1 varias columnas en la columna A Cantidades Existentes, Columna B Descripción del Producto, Columna C Costo del Producto y Columna DE Precio de Venta. Bien me interesa hacer un macro que copie en la hoja 2 sólo aquellos productos que tiene cantidades existente en la columna A, que la copie uno de bajo del otro en la hoja 2, para así imprimir esta hoja 2, con todos los que ahí existente, ya que existen muchos productos que no tienen cantidades existente y de 200 productos solo pueden haber algunos 50, 80, 100.
Gracias por su ayuda.
Demy.
1 respuesta
Respuesta de paramisolo
1
Vamos a ver si también te vale así, esta macro selecciona todas las columnas que tienes, Cantidades existentes, Productos, Costo y PVP, activa un filtro y elige de la columna Cantidades existentes solo las no vacías. Acto seguido copia las columnas Cantidades existentes y Descripción del producto y las pega en la hoja 2 tal cual están.
Ya me dirás si te sirve (no entiendo que las quieras una debajo de la otra pero ya me cuentas, la macro es esta:
Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 19/12/2008
'
'
Columns("A:D").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<>"
Columns("A:B").Select
Selection.Copy
Sheets("Hoja2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
Ya me dirás si te sirve (no entiendo que las quieras una debajo de la otra pero ya me cuentas, la macro es esta:
Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 19/12/2008
'
'
Columns("A:D").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<>"
Columns("A:B").Select
Selection.Copy
Sheets("Hoja2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
