Negatif Değerleri Toplama

[musaagac]

Arkadaşlar ekte göndermiş olduğum çalışmada

Negatif Değerlerin Toplamı ve Pozitif Sayı Toplamlarını Nasıl Alabilirim

 

[uzmanamele]

arkadaşlar ekte göndermiş olduğum çalışmada

negatif değerlerin toplamı ve pozitif sayı toplamlarını nasıl alabilirim

=etopla(b1:b5;"<0";b1:b5)

 

[Murat OSMA]

Ya da alternatif olarak kendi fonksiyonunuzu bu şekilde oluşturabilirsiniz;

Public Function Negatif(ByVal hücre As Range)
    Application.Volatile
    For Each Rky In hücre
        If Rky.Value < 0 Then
            topla = topla + Rky.Value
            Negatif = topla
        End If
    Next Rky
End Function

Public Function Pozitif(ByVal hücre As Range)
    Application.Volatile
    For Each Rky In hücre
        If Rky.Value > 0 Then
            topla = topla + Rky.Value
            Pozitif = topla
        End If
    Next Rky
End Function