Funcion tipo array
Publicado por Andres (5 intervenciones) el 16/06/2019 22:09:33
estoy aprendiendo a usar vba
Alguien podría ayudarme, necesito realizar una función que me regresé en forma de vector, todas las posiciones en las que se encuentra un valor dentro de un rango,
Y usar ficha función para extraerse los valores de otra columna en base a dicho vector que guarda las filas
Ejemplo:
Columna 1: (Manzana, Pera, Manzana,
Columna 2: (34,24,10,11,15)
Mango, Manzana)
Posiciones_manzana :(1,3,5)
En base a la función Posiciones_manzana
Usar otra función que saque los datos tal que:
Datos_columna2=(34,10,15)
Algo como: (no es una funcion real)
Alguien podría ayudarme, necesito realizar una función que me regresé en forma de vector, todas las posiciones en las que se encuentra un valor dentro de un rango,
Y usar ficha función para extraerse los valores de otra columna en base a dicho vector que guarda las filas
Ejemplo:
Columna 1: (Manzana, Pera, Manzana,
Columna 2: (34,24,10,11,15)
Mango, Manzana)
Posiciones_manzana :(1,3,5)
En base a la función Posiciones_manzana
Usar otra función que saque los datos tal que:
Datos_columna2=(34,10,15)
Algo como: (no es una funcion real)
1
2
3
4
5
6
7
8
9
10
11
12
Function BUSCARV2(Valor_buscado As String, Rango As Range) As Array
'regresa de forma vectorial las posiciones en las que se encuentra un valor
Dimension = Rango.Rows.Count
Contador = 0 'Dimension de la matriz
For i = 1 To DimensionIf Matriz(i, 2) = Valor_buscado Then
Contador = Contador + 1
BUSCARV2(Contador) = Rango(i)
End If
Next i
End Function
Valora esta pregunta
0
