Como buscar un mismo dato en 2 Hojas
Tengo el siguiente código de búsqueda en VBExcel:
Dato = TextBox1.Text
Set busco = H1.Range("A1:A1000").Find(Dato, LookIn:=xlValues, LookAt:=xlWhole)
If Not busco Is Nothing Then
Hoja2.Range("A1").Value = busco.Offset(0, 5) "Equivalente a las unidades existentes"
Else
MsgBox "Dato no localizado"
End if
Pero al intentar que ese dato sea buscado en una segunda hoja, me bota el dato ya almacenado, ¿lo borra o lo elimina de memoria no se yo... Como hago para que lo encuentre? PARTIENDO DEL HECHO DE QUE SE QUE ESTÁ por ejemplo
Set busco = H1.Range("A1:A1000").Find(Dato, LookIn:=xlValues, LookAt:=xlWhole)
If Not busco Is Nothing Then
Hoja2.Range("A1").Value = busco.Offset(0, 5) "Equivalente a las unidades existentes"
Set busco = H3.Range("A1:A1000").Find(Dato, LookIn:=xlValues, LookAt:=xlWhole)
If Not busco Is Nothing Then
Hoja2.Range("B1").Value = busco.Offset(0, 6)
End if
Else
MsgBox "Dato no localizado"
End if
Para resolver ese texto que esta en cursiva! Al llegar a buscar el mismo dato en la hoja3 me dice que no existe y si está porque lo estoy viendo!
¿Cómo lo hago?
1 respuesta
[Hola
Te paso la macro actualizada
Valora la respuesta para finalizar saludos!
Sub buscar()
'
'Por Adriel Ortiz
'
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
Set h3 = Sheets("Hoja3")
'
Dato = h1.TextBox1
Set r = h1.Columns("A")
Set b = r.Find(Dato, LookAt:=xlWhole)
If Not b Is Nothing Then
h2.Range("A1") = h1.Cells(b.Row, "D") '"Equivalente a las unidades existentes"
Else
MsgBox "Dato no localizado"
End If
Set busco = h3.Columns("A").Find(Dato, LookAt:=xlWhole)
If Not busco Is Nothing Then
h2.Range("B1") = h3.Cells(busco.Row, "E") '"Equivalente a las unidades existentes"
Else
MsgBox "Dato no localizado"
End If
End Sub
