por gfellay » 18 Ago 2006 16:02
Te paso una UDF que hace lo mismo que el buscarv pero en varios rangos (incluso en varios hojas).
'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
Saludos
Gustavo