Encontrar valor de celda en hoja distinta
Hola Expertos, tengo datos similares en 2 hojas distintas, en las columnnas A y C de las dos hojas tengo los mismos valores aunque no en el mismo orden es decir los valores q están en la fila 1 de la Hoja 1 pudieran aparecer en la fila 185 de la Hoja 2, el valor que es siempre variable es el de la columna B, mi pregunta va en el sentido de si se pudiera usar una formula o macro que me devuelva el valor de la columna B de la hoja 1 en la columna G de la hoja 2 en la fila coincidente con las columnnas A y B de dicho valor. No se si me explique bien pero a lo q me refiero es por ejemplo
Hoja 1!
A B C
230 12 4567
231 49 2038
366 39 1523
Hoja 2!
A B C G
231 89 2038 49
230 75 4567 12
366 22 1523 39
Asi es como quedaría la columna G, cabe señalar que son alrededor de 1000 registros aproximadamente que varían semanalmente. Muchas gracias por su atención espero que me puedan ayudar.
1 Respuesta
Esta es la solución: posiciónate en la hoja2 y en la celda A1 y después ejecuta esta macro.
Sub busqueda()
Do While ActiveCell.Value <> ""
valor = ActiveCell.Value
Set busca = Sheets("hoja1").UsedRange.Find(valor, LookIn:=xlValues, lookat:=xlWhole)
If Not busca Is Nothing Then
ubica = busca.Address
Do
If busca.Offset(0, 2).Value = ActiveCell.Offset(0, 2).Value Then
ActiveCell.Offset(0, 3).Value = busca.Offset(0, 1)
End If
Set busca = Sheets("hoja1").UsedRange.FindNext(busca)
Loop While Not busca Is Nothing And busca.Address <> ubica
End If
ActiveCell.Offset(1, 0).Select
Loop
End Subrecuerda finalizar y puntuar
