Código:
Dim i As Integer
Dim Alto As Long
Dim Rango As Range
Dim Valor As Variant
Dim Ws As Worksheet
Application.Volatile
For i = 3 To ActiveWorkbook.Sheets.Count
Set Ws = ActiveWorkbook.Sheets(i)
Alto Ws.Cells(Ws.Rows.Count, primercolimna).End(xlUp).Row
If Alto >= 1 Then
Set Rango = Ws.Range(Ws.Cells(1, PrimerColumna), Ws.Cells(Alto, PrimerColumna + Devolver - 1))
Valor = Application.VLookup(Valor_Buscado, Rango, Devolver, False)
If Not IsError(Valor) Then
eXl_BuscarvSpeed = Valor
Exit Function
End If
End If
Next i
eXl_BuscarvSpeed = VBA.CVErr(xlErrNA)
End Function
👉 Como hacer que la UDF (User Defined Functions) esté disponible como una Función Nativa de Excel
⭐ Si te gustó, por favor regístrate en nuestra Lista de correo y Suscríbete a mi canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.