Deseo crear una función en Excel que me permita buscar un código que devuelva datos de una columna
Buenas Tardes Gustavo
Espero que te encuentres bien de salud y desarrollando todas sus actividades con éxito. La consulta es la siguiente, deseo crear una función en Excel que me permita buscar un código y que me devuelva el dato de la columna que especifique (se que esto lo hace la función Buscarv) pero deseo que si encuentra códigos duplicados muestre la información de todos ellos.
En la tabla muestro un ejemplo, se requiere que la función encuentre el código y me devuelva el Tipo de cada código que encontró.
Código marca tipo
AB500 A 1
AB500 B 2
AB500 C 3
AB800 D 4
AB800 E 5
AB800 F 6
Agradeciendo tu respuesta.
Espero que te encuentres bien de salud y desarrollando todas sus actividades con éxito. La consulta es la siguiente, deseo crear una función en Excel que me permita buscar un código y que me devuelva el dato de la columna que especifique (se que esto lo hace la función Buscarv) pero deseo que si encuentra códigos duplicados muestre la información de todos ellos.
En la tabla muestro un ejemplo, se requiere que la función encuentre el código y me devuelva el Tipo de cada código que encontró.
Código marca tipo
AB500 A 1
AB500 B 2
AB500 C 3
AB800 D 4
AB800 E 5
AB800 F 6
Agradeciendo tu respuesta.
1 Respuesta
Respuesta
1
No se si te sirva; tengo la siguiente función personalizada que te encuentra el "enesimo" valor (deberías ejecutarla con 1,2,3,... hasta que te de "vacio")
El código es
Function buscarEnesimo(stCriterio As String, rLista As Range, Col As Integer, n As Integer)
'Funciona como el Buscarv solo que devuelve el eNesimo elemento
'que cumple la condicion y se
'desplaza Col columnas hacia la derecha (negativo para la
'izquierda y cero la columna actual)
Dim rCiclo As Range, i As Integer
i = 0
For Each rCiclo In rLista
If rCiclo.Value = stCriterio Then
i = i + 1
If i = n Then
buscarEnesimo = rCiclo.Offset(0, Col)
Set rCiclo = Nothing
Exit Function
End If
End If
Next rCiclo
Set rCiclo = Nothing
buscarEnesimo = ""
End Function
El código es
Function buscarEnesimo(stCriterio As String, rLista As Range, Col As Integer, n As Integer)
'Funciona como el Buscarv solo que devuelve el eNesimo elemento
'que cumple la condicion y se
'desplaza Col columnas hacia la derecha (negativo para la
'izquierda y cero la columna actual)
Dim rCiclo As Range, i As Integer
i = 0
For Each rCiclo In rLista
If rCiclo.Value = stCriterio Then
i = i + 1
If i = n Then
buscarEnesimo = rCiclo.Offset(0, Col)
Set rCiclo = Nothing
Exit Function
End If
End If
Next rCiclo
Set rCiclo = Nothing
buscarEnesimo = ""
End Function