Función de Búsqueda en VBA

19/12/2006 - 14:01 por javivi | Informe spam
Buenos días,

Existe programada entre las funciones de VBA de excel una función de
búsqueda que haga de forma más eficiente lo programado por mi en la
siguiente función a partir de dos funciones de excel.

Busca el elemento fila y columna (strings) de un rango que yo defina,
pero se ralentiza mucho el cálculo (necesita mucha memoria si tiene
que hacer la búsqueda muchas veces).

Javivi




Public Function B(hoja As Range, ElementoFila As Variant, ElementoCol
As Variant) As Variant

Dim nfila As Integer
Dim ncol As Integer
'Dim BPrevio As Double

nfila = Application.WorksheetFunction.Match(ElementoFila,
hoja.Columns("A:A"), 0)
ncol = Application.WorksheetFunction.Match(ElementoCol,
hoja.Rows("1:1"), 0)

B = Application.WorksheetFunction.Index(hoja, nfila, ncol, 1)
If (Application.WorksheetFunction.IsNumber(B) = False Or
Application.WorksheetFunction.IsError(B) = True) Then
B = ""
Else
B = Application.WorksheetFunction.Index(hoja, nfila, ncol, 1)
End If

End Function

Preguntas similare

Leer las respuestas

Search Busqueda sugerida