Macro para copiar datos
Hola a todos, quisiera saber si alguien me puede ayudar con un macro en Excel que me busque en la Hoja1 un dato que esta en la Hoja2, como si fuera un BuscarV, pero me copie en la Hoja3 toda la fila de información de la coincidencia que se encuentre en la Hoja1. Espero que sea clara mi pregunta.
Gracias por su respuesta.
1 respuesta
Juan Carlos, dime donde está situado el dato en la hoja2 para hacer la macro
Te espero
Hola, gracias por la prontitud de tu respuesta. el dato de la Hoja2 está en la columna A.
Gracias
Perdona, ¿pero vamos a buscar todos los datos de la columna A?
Si, se deben buscar todos los datos de la columna A Hoja2 que estén en la columna E de la Hoja1.
Toma Juan Carlos esta es la macro. He contemplado como nombre de las hojas los siguientes: (hoja1, hoja2 y hoja3)
Pruébala y me cuentas
Sub busqueda()
Sheets("hoja2").Select
Range("a1").Select
Do While ActiveCell.Value <> ""
valor = ActiveCell.Value
Set busca = Sheets("hoja1").Range("e1:e10000").Find(valor, LookIn:=xlValues, lookat:=xlWhole)
If Not busca Is Nothing Then
filalibre = Sheets("hoja3").Range("e65000").End(xlUp).Row + 1
busca.EntireRow.Copy Destination:=Sheets("hoja3").Cells(filalibre, 1)
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
