Ayuda Con Rango Para Búsqueda Con VBA
Resulta que tengo una macro que funciona excelente, con esta macro realizo la búsqueda de unos datos y me los muestra en el formulario, ahora necesito que dependiendo de lo que aparece en la búsqueda, en este caso una ciudad, guarde el nombre de la ciudad y vaya a otra hoja del libro, en este caso hoja2 y busque allí, en una tabla la cuidad que coincide y que me retorne el valor que tiene al lado, en este caso el indicativo.
Maso tengo una idea de como hacerlo, pero no se como coocar el rango de la segunda búsqueda, para que mire en la hoja 2 y no en la hoja 1 como lo esta haciendo actualmente.
Gracias
Adjunto código
Dim n As Range
Dim m As Range
palabra_a_buscar = TextBox1
Set n = Range("B7:B10000").Find(what:=palabra_a_buscar)
If n Is Nothing Then
MsgBox "No he encontrado nada. Lo siento."
TextBox1 = Empty
TextBox1.SetFocus
Else
Range(n.Address).Select
Label6() = ActiveCell.Offset(0, 1).Value
Label7() = ActiveCell.Offset(0, 2).Value
Label8() = ActiveCell.Offset(0, 3).Value
Label9() = ActiveCell.Offset(0, 4).Value
indicativo = ActiveCell.Offset(0, 2).Value
Set m = Range("Hoja2!A1:A37").Find(what:=indicativo) <== aca es donde no se como colocar el rango para que vaya a la hoja 2 y lo busque.
If m Is Nothing Then
Label10() = Empty
Else
Range(m.Address).Select
Label10() = ActiveCell.Offset(0, 1).Value
End If
TextBox1.SetFocus
End If
Set n = Nothing
Set m = Nothing
End Sub
Maso tengo una idea de como hacerlo, pero no se como coocar el rango de la segunda búsqueda, para que mire en la hoja 2 y no en la hoja 1 como lo esta haciendo actualmente.
Gracias
Adjunto código
Dim n As Range
Dim m As Range
palabra_a_buscar = TextBox1
Set n = Range("B7:B10000").Find(what:=palabra_a_buscar)
If n Is Nothing Then
MsgBox "No he encontrado nada. Lo siento."
TextBox1 = Empty
TextBox1.SetFocus
Else
Range(n.Address).Select
Label6() = ActiveCell.Offset(0, 1).Value
Label7() = ActiveCell.Offset(0, 2).Value
Label8() = ActiveCell.Offset(0, 3).Value
Label9() = ActiveCell.Offset(0, 4).Value
indicativo = ActiveCell.Offset(0, 2).Value
Set m = Range("Hoja2!A1:A37").Find(what:=indicativo) <== aca es donde no se como colocar el rango para que vaya a la hoja 2 y lo busque.
If m Is Nothing Then
Label10() = Empty
Else
Range(m.Address).Select
Label10() = ActiveCell.Offset(0, 1).Value
End If
TextBox1.SetFocus
End If
Set n = Nothing
Set m = Nothing
End Sub
Respuesta de caranbis
1