Función buscarv
Buenas tardes gfellay
Puedes ayudarme con esta función
Regularmente la utilizo para buscar un dato en una hoja, pero
Habrá alguna manera de que me busque un dato en unas 15 hojas de un libro
Mucha gracias por tu atención
Puedes ayudarme con esta función
Regularmente la utilizo para buscar un dato en una hoja, pero
Habrá alguna manera de que me busque un dato en unas 15 hojas de un libro
Mucha gracias por tu atención
1 Respuesta
Respuesta
1
Lo que quieres no puede hacerse con las funciones "normales" incluidas en el Excel; si te sirve te paso la siguiente función personalizada, debes ir al Editor VBA (ALT+F11) e insertar un Modulo; luego tipea lo siguiente
'Buscar un valor en varios rangos (incluso pueden ser varias hojas)
Function BuscarEnVariosRangos(ValorBuscado As Variant, btColumna As Byte, blOrdenado As Boolean, ParamArray mtrR() As Variant)
Dim iteradorR As Variant, Encontrado As Variant
On Error GoTo NoEncontrado
For Each iteradorR In mtrR()
Encontrado = _
Application.WorksheetFunction.VLookup(ValorBuscado, iteradorR, btColumna, blOrdenado)
If Not IsEmpty(Encontrado) Then
BuscarEnVariosRangos = Encontrado
Exit Function
End If
Next iteradorR
BuscarEnVariosRangos = "No encontrado."
Exit Function
NoEncontrado:
If Err.Number = 1004 Then
Resume Next
Else
BuscarEnVariosRangos = Err.Description
End If
End Function
'Buscar un valor en varios rangos (incluso pueden ser varias hojas)
Function BuscarEnVariosRangos(ValorBuscado As Variant, btColumna As Byte, blOrdenado As Boolean, ParamArray mtrR() As Variant)
Dim iteradorR As Variant, Encontrado As Variant
On Error GoTo NoEncontrado
For Each iteradorR In mtrR()
Encontrado = _
Application.WorksheetFunction.VLookup(ValorBuscado, iteradorR, btColumna, blOrdenado)
If Not IsEmpty(Encontrado) Then
BuscarEnVariosRangos = Encontrado
Exit Function
End If
Next iteradorR
BuscarEnVariosRangos = "No encontrado."
Exit Function
NoEncontrado:
If Err.Number = 1004 Then
Resume Next
Else
BuscarEnVariosRangos = Err.Description
End If
End Function