Macro para Buscar valor en otra hoja y marcar como encontrado
Os pido ayuda para crear una macro para buscar un valor en otra hoja y en una columna nueva poner como "Encontrado" o "No encontrado"
Tengo dos hojas con los siguientes valores:
- Hoja 1: A1 (ID) B1 (Nombre) C1 (Valor Encontrado)
- Hoja 2: A1(ID)
Un ejemplo de lo que debería hacer la macro:
SI Hoja1->A2 está en la columna Hoja2-> A Entonces
Hoja1-> C2 = "Encontrado"
SINO
Hoja1-> C2 = "No encontrado"
Debería ser bastante simple pero algo hice mal que no me funciona.
Respuesta de Adriel Ortiz Mangia
1
Te paso la macro
Sub compara_copia()
'//Por Aortiz
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
'
For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
Set r = h2.Columns("A")
Set b = r.Find(h1.Cells(i, "A"), lookat:=xlWhole)
If Not b Is Nothing Then
h1.Cells(i, "C") = "Encontrado"
Else
h1.Cells(i, "C") = "No encontrado"
End If
MsgBox "End"
Next i
End Subvalora la respuesta para finalizar saludos!
1 respuesta más de otro experto
Respuesta de Dante Amor
1
Te anexo la macro
Sub Buscar_Valor()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
u = h1.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To u
Set b = h2.Columns("A").Find(h1.Cells(i, "A"), lookat:=xlWhole)
If Not b Is Nothing Then
h1.Cells(i, "C") = "Encontrado"
Else
h1.Cells(i, "C") = "No Encontrado"
End If
Next
MsgBox "Fin"
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias