Usar busco.Offset(0, 0) en dos hojas distintas
Tengo la siguiente complicación. En la Hoja1 en la columna A tengo los códigos A1, A2, A3, A4... Y así sucesivamente hasta el A89 hacia abajo. A la derecha de cada código existen datos que serán escritos en la Hoja2 de acuerdo a la misma estructura, en la columna A están ya escritos los códigos hacia abajo en igual orden. Cuando yo escribo A50 por ejemplo, el debe buscar en la Hoja1 los valores y escribirlos en la Hoja2 de izquierda a derecha en la misma posición.
Se como buscar los valores y lo hago de la siguiente forma:
Dato = TextBox1.Text
Set busco = Hoja1.Range("A1:A89").Find(Dato, LookIn:=xlValues, LookAt:=xlWhole)
If Not busco Is Nothing Then
End If
Ahora, necesito escribirlos en la Hoja2 pero usando el mismo método de búsqueda donde en la línea de comando Set busco = Hoja1. Range("A1:A89").Find(Dato, LookIn:=xlValues, LookAt:=xlWhole) cambie de Hoja1 a Hoja2 para poder escribir algo así en el código entre el If Not busco Is Nothing Then y el End If
(Hoja2) busco.Offset(0, 1) = (Hoja1) busco.Offset(0, 1)
SERIA COMO CAMBIAR LOS busco por: busco1.Offset(...) y el busco2.Offset(...)
¿Cómo lo hago?
1 respuesta
Seria más o menos algo así
Sub busca()
Set h1 = Worksheets("hoja1")
Set h2 = Worksheets("hoja2")
Set origen = h1.Range("a1:a89")
Set destino = h2.Range("a1:a89")
Dato = "datos 1661"
Set busco = origen.Find(Dato, LookIn:=xlValues, LookAt:=xlWhole)
Set busca2 = destino.Find(Dato, LookIn:=xlValues, LookAt:=xlWhole)
If Not busco Is Nothing Then
valor = h1.Range(busco.Address).Offset(0, 1)
End If
h2.Range(busca2.Address).Offset(0, 1) = valor
End Sub
