UDF: eXl_BuscarvSpeed Para Buscar datos un 50% mas Rápido

0

 


Esta UDF es un 50% más rápida que las funciones de búsqueda.

Código:


Function eXl_BuscarvSpeed(Valor_Buscado As Variant, PrimerColumna As Integer, Devolver As Integer) As Variant
    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

 

Entradas que pueden interesarte

Sin comentarios

Etiquetas:
#aprendiendoexcel365, #josealcaldealias, #Excel, #funciones, #UDF, #Visual Basic, #VBA, #DAX, #Tips, #Basico, #Microsoft Excel, #Cursos Excel OnLine, #Aprende Excel, #Aprende Excel OnLine, #Excel 365, #Power Pivot, #Power BI, #Power Query, #Google Sheets, #Macros, #Código VBA, #Tutoriales Excel, #MTV, #Vbscript, #TypeScript, #Lenguaje M, #fórmulas, #funciones, #paso a paso, #funciones Excel, #libros, #tablas, #formatos, #hojas, #datos, #gráfico, #análisis de datos, #base de datos, #dashboards, #tablas dinámicas, #excel desde cero, #hoja de cálculo, #plantillas de Excel