Macro búsqueda y copiar en diferentes hojas según criterio de búsqueda
publicado
Hola, tengo esta macro para buscar un código en una macro y copiarla en una hoja específica. Necesito ayuda para realizar la siguiente acción.
La base de datos es la hoja Compras.
Los datos los necesito sacar a la Hoja Tomate, Acelga, Albahaca, etc.
los códigos que necesito buscar los tengo en la columna A de cada hoja (Tomate, Acelga, Albahaca, etc.)
Hoy la macro que tengo solo busca la hoja Tomate en la Celda A2, pero tengo códigos en A3, A4, etc.
Necesito que la macro busque los código de la Hoja Tomate y los copie en esa hoja a partir de la columna B, en la primer celda vacía (ya resuelto).
Luego que termine con esta acción, quiero que cambie de hoja y busque los códigos de la Hoja Acelga y los copie en esa hoja a partir de la columna B, en la primer celda vacía (ya resuelto).
Y así sucesivamente hasta la última Hoja del libro, que puedo tener unas 20 hojas.
desde ya muchas gracias y les paso la Macro que tengo.
Sub Copiando()
nrocodigo = Sheets("Tomate").Range("A2").Value
Dim ultima As Long
ultima = Range("B65536").End(xlUp).Row
ultima = ultima + 1
Cells(ultima, 1).Select
Worksheets("COMPRAS").Select Range("A2").Select
While ActiveCell.Value <> "" dato = ActiveCell.Value
Hola, tengo esta macro para buscar un código en una macro y copiarla en una hoja específica. Necesito ayuda para realizar la siguiente acción.
La base de datos es la hoja Compras.
Los datos los necesito sacar a la Hoja Tomate, Acelga, Albahaca, etc.
los códigos que necesito buscar los tengo en la columna A de cada hoja (Tomate, Acelga, Albahaca, etc.)
Hoy la macro que tengo solo busca la hoja Tomate en la Celda A2, pero tengo códigos en A3, A4, etc.
Necesito que la macro busque los código de la Hoja Tomate y los copie en esa hoja a partir de la columna B, en la primer celda vacía (ya resuelto).
Luego que termine con esta acción, quiero que cambie de hoja y busque los códigos de la Hoja Acelga y los copie en esa hoja a partir de la columna B, en la primer celda vacía (ya resuelto).
Y así sucesivamente hasta la última Hoja del libro, que puedo tener unas 20 hojas.
desde ya muchas gracias y les paso la Macro que tengo.
Sub Copiando()
nrocodigo = Sheets("Tomate").Range("A2").Value
Dim ultima As Long
ultima = Range("B65536").End(xlUp).Row
ultima = ultima + 1
Cells(ultima, 1).Select
Worksheets("COMPRAS").Select Range("A2").Select
While ActiveCell.Value <> "" dato = ActiveCell.Value
código = dato
If código = nrocodigo Then
Selection.Range("A1", "W1").Copy
ActiveSheet.Paste Destination:=Worksheets("Tomate").Cells(ultima, 2)
ultima = ultima + 1
End If
ActiveCell.Offset(1, 0).Select
Wend
Application.CutCopyMode = False
End Sub
Ejemplo Macro de Compras.rar