Hola, mi duda es como utilizar esta función personalizada que me dieron en el cole,
Function DevolverEncontrados(ByVal vector As Variant) As Variant
Dim i As Long, mat
Dim j As Long
Dim cant As Long
Dim aux As Long
cant = UBound(vector)
aux = 0
For i = 1 To cant
If VarType(vector(i, 1)) <> vbBoolean Then
aux = aux + 1
End If
Next i
ReDim mat(1 To aux, 1 To 1)
j = 1
For i = 1 To cant
If VarType(vector(i, 1)) <> vbBoolean Then
mat(j, 1) = vector(i, 1)
j = j + 1
End If
Next i
DevolverEncontrados = mat
End Function
Tengo una tabla de partidos de futbol de todos los mundiales
Tengo dos valores de consulta que ingreso yo, año y seleccion de futbol(Pais)
Y bueno se supone que con esos dos datos y esta funcion me tiene que rellenar una matriz con todos los jugadores de esa seleccion, mostrandome 3 campos con los siguientes datos nombre jugador, posicion y cantidad de goles pero la verdad no entiendo, luego tengo que hacer lo mismo con una función sin utilizar el codigo de Visual Basic :shock: