vamos por partes.
Lo primero, en tu código no defines bien las variables. Cuando se definen variables, debes especificar siempre qué tipo, o se crearán como Variant
.
En tu código Fi, Fu, Maximo, Fini
se declaran como Variant
. El resto como Single
porque lo especificaste.
Debería ser Fi as Single, Fu as Single, Maximo as single, Fini as Single
.
Lo segundo, te falla el código porque estás llamando a una función que no existe en tu versión de Excel.
Antes de que se existiera MAXIFS, se tenía que hacer o matricialmente o con SUMAPRODUCTO y operadores dobles unarios.
Como tú quieres llevarte el valor a una variable en tiempo de ejecución, vamos a descartar hacerlo matricialmente, y usaremos SUMAPRODUCTO combinado con operador doble unario.
SUMAPRODUCTO (función
SUMAPRODUCTO)
OPERADOR DOBLE UNARIO
Como no hay ejemplo de datos, he inventado 1 muy sencillo.
Tengo 2 columnas: en la A alterno los valores a,b
. Y en la columna B valores del 1 al 6.
En la columna E tengo una fórmula que me calcula el máximo valor de B, pero dependiendo de si en A tengo a
o b
. Vamos, es como el MAXIFS.
Mi fórmula en la columna E es:
=MAX(--($A$1:$A$6=D1)*$B$1:$B$6)
Esta fórmula funciona así:
--($A$1:$A$6=D1)
Esta parte, por el operador doble unario, devolverá una matriz de unos y ceros, según cumpla una condición o no (la condición es ser igual a a
. En este caso, devolverá una matriz tal que así--> {1;0;1;0;1;0)
$B$1:$B$6
Esto es un rango con los valores, es decir, una matriz así: {1;2;3;4;5;6}
--($A$1:$A$6=D1)*$B$1:$B$6
Multiplicamos ambas matrices, es decir, {1;0;1;0;1;0) * {1;2;3;4;5;6}
y obtenemos una nueva matriz: {1;0;3;0;5;0}
- MAX devolverá el valor máximo de la matriz obtenida en el paso 3, que es el número 5 para la letra
a
Esto funciona en cualquier versión de Excel desde 2007 (no sé si en Excel anterior a 2007 funcionaría, nunca lo he probado).
Ahora que ya sabes hacerlo en Excel, hay que pasarlo a VBA. Para guardar el cálculo anterior en una variable, sería:
Dim MiResultado As Single
MiResultado = [MAX(--($A$1:$A$6=D1)*$B$1:$B$6)]
Debug.Print MiResultado
Y verás que obtengo un 5 también.
Cuando lo tienes ya en una variable, te lo puedes llevar a donde quieras (otra celda por ejemplo)
Ten en cuenta que la parte [MAX(--($A$1:$A$6=D1)*$B$1:$B$6)]
no deja de ser un texto, es decir, un String
, así que podrías manipularlo a tu antojo con un bucle e irlo calculando para cada celda, cambiando el criterio si fuera necesario.
Espero que puedas adaptar esto a tus necesidades.