Toplam Sayı için Makro

[Warner]

merhaba arkadaşlar. Kolay Gelsin

Acil olarak yardımcı olmanızı istediğim bir bilgi gerekli;

A Sutunu B Sutunu
1 12,67
1 12,69
1 13,07
1 15,02
2 14,03
2 12,01
2 11,01
2 10,02

Bunlar boyle aşağıya doğru 60 kadar gidiyor. 1' eşit olan B Sutunundaki Toplam Metre. 2'ye eşit olan B sutunundaki Toplam Metre Lazım. Bana bir makro yazabilirseniz çok sevinirimm Kolay Gelsin

 

[Muzaffer Ali]

Kod ile yapmak isterseniz.

Sub Topla()
    Dim Bir As Double
    Dim Iki As Double
    
    Bir = WorksheetFunction.SumIf(Range("A:A"), 1, Range("B:B"))
    Iki = WorksheetFunction.SumIf(Range("A:A"), 2, Range("B:B"))
    
    MsgBox "Bir toplamı : " & Bir & vbLf & _
            "İki toplamı : " & Iki
End Sub

Formül ile yapmak isterseniz.

=ETOPLA(A:A;1;B:B)
=ETOPLA(A:A;2;B:B)

 

[Vedat Özer]

Merhabalar,

Alternatif olsun.

 

[Warner]

İlgilendiğiniz için çok teşekkür ederim. 10 sn'de çözüldü olay sağolun