Otomatik Toplam

[İlhan Büyük]

Yapmış olduğum EXCEL sayfasında bankaya göndereceğim bir liste var. Listede bir kişinin birden fazla alacağı var. (ve kişi adları sabit değil, ahmet 5 satırsa mehmet 8 satır olabiliyor) sayıları Bir kişinin adının ve alacağı toplam miktarının tek satırda yer almasını istiyorum. Bunu 2.sayfaya veya başka bir çalışma sayfasına tek satırda tek kişi olacak ve para miktarlarının toplanmış olarak aktarım şekli mümkün mü. Excelde sınır olmadığı düşüncesiyle, yardımlarınızı bekliyorum. Saygılarımla, ilgilenen arkadaşlara şimdiden teşekkürler.

 

[Orion1]

Dosyanız ektedir.

Sub topla_aktar()
Dim sat As Long, i As Long, sat2 As Long
Sheets("Sayfa1").Select
sat = 3
Application.ScreenUpdating = False
sat2 = Cells(65536, "C").End(xlUp).Row
With Sheets("Sayfa2")
    .Range("A3:E65536").ClearContents
    For i = 9 To sat2
        If WorksheetFunction.CountIf(Range("C9:C" & i), Cells(i, "C").Value) = 1 Then
            .Cells(sat, "A").Value = sat - 2
            .Range("B" & sat & ":D" & sat).Value = Range("B" & i & ":D" & i).Value
            .Range("E" & sat).Value = WorksheetFunction.SumIf(Range("C9:C" & sat2), Cells(i, "C").Value, Range("E9:E" & sat2))
            sat = sat + 1
        End If
    Next i
End With
Application.ScreenUpdating = True
Sheets("Sayfa2").Select
MsgBox "Aktarma Ve hesaplama yapıldı.", vbOKCancel + vbInformation, Application.UserName
End Sub

 

[İlhan Büyük]

Çook teşekkür ederim. Elinize, emeğinize sağlık.

 

[İlhan Büyük]

Yapılan listede banka hesaplarının aktarması yapılmıyor, bunu da ekleyebilirseniz çok memnun olacağım.

 

[Necdet]

Merhaba,

Alternatif olarak xl nin Özet Tablo özelliğini kullanarak ta yapılabilir.

Formül ya da makroya gerek kalmayan çok esnek olan Özet Tabloyu kullanmanızı öneririm.

 

[Orion1]

Yapılan listede banka hesaplarının aktarması yapılmıyor, bunu da ekleyebilirseniz çok memnun olacağım.

Dosyayı düzenledim.Tekrar 2nci mesajdan indirebilirsiniz.

 

[Necdet]

Bizim çözüme yorum yok sanırım

 

[Orion1]

Bizim çözüme yorum yok sanırım

Mutlaka güzel olmuştur hoca.Siz yaparsınızda başak türlü zaten olmaz.Ama inan bu gün üşengeçliğim üstümde bakmak istemedim nedense.

 

[İlhan Büyük]

Her iki dosya için de çook teşekkürler, emeğinize sağlık. Çook büyük bi yükten kurtardınız beni.

 

[Orion1]

Her iki dosya için de çook teşekkürler, emeğinize sağlık. Çook büyük bi yükten kurtardınız beni.

Rica ederim.
iyi çalışmalar.