|
Asi es.
Se puede hacer esta funcion con VBA.
Es algo mas lento pero funciona.
Aqui te envio el codigo que simula esta funcion.
Revisalo y hazle las mejoras necesarias.
De antemano te agradesco el aporte que puedas hacerle a este codigo.
Public Function mi_sumar_si(datos As Range, valores As Range, criterio As Range)
Dim m_a As Variant
Dim m_b As Variant
Dim m_c As Variant
m_a = datos
m_b = valores
m_c = criterio
Sum = 0
For i = 1 To datos.Count
If m_c = m_a(i, 1) Then Sum = Sum + m_b(i, 1)
Next
mi_sumar_si = Sum
End Function
|
