WorksheetFunction.Sum ile mutlak değer toplamı

[kan-nas]

Merhaba aşağıdaki kodla hücre içindeki rakamları toplatıyorum ama bana o hücre içindeki mutlak değerlerin toplamı gerekli. ABS ile yapmama rağmen olmadı. Örnek olarak (-5,-5,2) toplamını +12 olarak almak istiyorum.Aşağıdaki kodla +10 getiriyor. Yardımlarınız için.

a = WorksheetFunction.Abs(Sum(Workbooks("STOP LOSS-2015.xlsm").Sheets("FAİZ MASASI POZİSYON").Range("G4:G51")))

cells(1,1)=a

 

[hamitcan]

Sub Topla()
    With WorksheetFunction
        T1 = .SumIf(Columns(4), "<0")
        T2 = .SumIf(Columns(4), ">0")
    End With
    MsgBox T1 * -1 + T2
End Sub

 

[kan-nas]

Üstadım çok teşekkürler. Cevap bazen basit olsada tecrübe olmayınca bazen olmuyor.

 

[hamitcan]

Bazen ben de basit çözümleri göremiyorum o yüzden kendi üzerinize almayın.