Aynı fiş numaralarını toplama

[isseyy]

Merhabalar arkadaşlar;

Aynı fiş numaralarından bir çok var. Ben bu aynı fiş numaralarında bulunan bakiyeleri başka bir sayfada toplamak istiyorum. Nasıl yapabilirim?
Tabloyu ekte yolluyorum.
Örnegin;
6 nolu satırda bulunan 028272 nolu ve 7 nolu satırda bulunan 028272 nolu satırlardaki tutarları olan 7 ve 102,9 TL yi başka bir sayfada fiş numaralarının karşısına toplamak istiyorum.

Yardımcı olursanız sevinirim.
Selamlar

 

[N.Ziya Hiçdurmaz]

yanıt

Sub toplamal()
Sayfa2.[a2:b5000].ClearContents
s = 2
    For sat = 3 To Sayfa1.Cells(65536, "c").End(xlUp).Row
        If WorksheetFunction.CountIf(Sayfa1.Range("c2:C" & sat), Sayfa1.Cells(sat, "c")) = 1 Then
            Sayfa2.Cells(s, "a") = Sayfa1.Cells(sat, "c").Value
            s = s + 1
        End If
    Next
    For sat1 = 3 To Sayfa1.Cells(65536, "c").End(xlUp).Row
    For sat2 = 2 To Sayfa2.Cells(65536, "a").End(xlUp).Row
        If Sayfa1.Cells(sat1, "c") * 1 = Sayfa2.Cells(sat2, "a") Then
            Sayfa2.Cells(sat2, "b") = Sayfa2.Cells(sat2, "b") + Sayfa1.Cells(sat1, "e")
        End If
    Next: Next
End Sub

 

[CAFERCİFTCİ]

Müşteri Takip Proğramı

Sayın Hiçdurmaz,
Satış-takip proğramınızla ilgili en son (sanırım numarası 78)mesajıma cevap alamadım.Rica etsem bir bakabilirmisiniz?Teşekkür ederim...

 

[isseyy]

Teşekkürler