VBA Formule stijgers en dalers uit een opgegeven bereik

[harolda1980]

Ik zoek een formule waarmee ik uit een opgegeven bereik de Totale positieve waarden(>0) wil ophalen en de negatieve waarden(<0).
Deze functie wil ik in vba bouwen omdat ik die moet aanroepen in een geautomatiseerde rapportage.
Het blad word door een erp systeem opgemaakt en formules worden direct overschreven, maar via vba kan ik alles regelen.

 

[daan108]

quick-and-dirty:

Function sumSign(rIn, sign)
'rIn is het optelbereik
'sign geeft aan of je positieve of negatieve getallen wilt optellen

If sign = 1 Then
    sumSign = WorksheetFunction.SumIf(rIn, ">0")
Else
    sumSign = WorksheetFunction.SumIf(rIn, "<0")
End If
    
End Function

Je kunt de functie vanuit een macro en vanuit een werkblad aanroepen. Geef voor sign 1 op als je de som van de positieve getallen wilt en geef voor sign -1 op als je de som van de negatieve getallen wilt hebben.

 

[Warme bakkertje]

Samengevat in 1 regel wordt dit dan...

Function sumSign(rIn, sign)
'rIn is het optelbereik
'sign geeft aan of je positieve of negatieve getallen wilt optellen
    sumSign = IIf(sign = 1, WorksheetFunction.SumIf(rIn, ">0"), WorksheetFunction.SumIf(rIn, "<0"))
End Function