Buscar con macro
Hola
Tengo unas lineas que me buscan un dato que dígito en un text box pero si encuentra algo similar me lo trae, como hago para que me busque exactqamnete lo que dígito.
Ejem yo busco el 1 y me carga el 10 si el 1 no esta.
Muchas gracias
Carolina
Tengo unas lineas que me buscan un dato que dígito en un text box pero si encuentra algo similar me lo trae, como hago para que me busque exactqamnete lo que dígito.
Ejem yo busco el 1 y me carga el 10 si el 1 no esta.
Muchas gracias
Carolina
1 Respuesta
Respuesta de Isaac Reyes
1
Aquí hay una macro que busca un valor en todas las hojas del libro activo y te lleva a la posición donde encuentre la primera ocurrencia.
Si la adaptas un poco, es seguro que te sirve (Tiene comentarios en casi todas las líneas, así que no es tarea complicada entender el código)
Saludos...
Sub buscar(codigo)
numeroHojas = ActiveWorkbook.Sheets.Count 'Extraer numero de hojas
'Recorrer todas la hojas en busca del código
For i = 1 To numeroHojas
Set hojaBusq = ActiveWorkbook.Sheets(i) 'Hoja sobre la que se realiza la busqueda
'Buscar el código
Set resulta = hojaBusq.UsedRange.Find(codigo, LookIn:=xlValues, LookAt:=xlWhole)
'Si algo fue encontrado, ir a la posición
If Not resulta Is Nothing Then
hojaBusq.Select
resulta.Select
Exit For
End If
Next
End Sub
Si la adaptas un poco, es seguro que te sirve (Tiene comentarios en casi todas las líneas, así que no es tarea complicada entender el código)
Saludos...
Sub buscar(codigo)
numeroHojas = ActiveWorkbook.Sheets.Count 'Extraer numero de hojas
'Recorrer todas la hojas en busca del código
For i = 1 To numeroHojas
Set hojaBusq = ActiveWorkbook.Sheets(i) 'Hoja sobre la que se realiza la busqueda
'Buscar el código
Set resulta = hojaBusq.UsedRange.Find(codigo, LookIn:=xlValues, LookAt:=xlWhole)
'Si algo fue encontrado, ir a la posición
If Not resulta Is Nothing Then
hojaBusq.Select
resulta.Select
Exit For
End If
Next
End Sub
