Fatura Listesi Özeti

[ERRİC]

Selamlar ekteki Örnek 3 Adet ft lık dosyamı ekledim; bu liste her ay ortalama 800 satır ekte alt bölümde özetlemek istediğim şekilde örnek yaptım; bunu otomatik olarak nasıl özetleyebiliriz acaba yardım eder misiniz;

- Fatura numarasına göre tek satır olacak şekilde

- Makro, formül, filtreleme, pivot v.b.

Saygılar

 

[Orion1]

Dosyanız ektedir.

Option Base 1
Sub aktar59()
Dim sh As Worksheet, sonsat As Long, z As Object, n As Long
Dim myarr(), liste(), i As Long, k As Byte
Set sh = Sheets("Sayfa2")
Sheets("Sayfa1").Select
sh.Range("A2:O" & Rows.Count).ClearContents
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
liste = Range("A2.O" & sonsat).Value
ReDim myarr(1 To 15, 1 To sonsat)
Set z = CreateObject("Scripting.dictionary")
For i = 1 To UBound(liste)
    If Not z.exists(liste(i, 2)) Then
        n = n + 1
        z.Add liste(i, 2), n
        For k = 1 To 5
            myarr(k, n) = liste(i, k)
        Next k
        myarr(7, n) = liste(i, 7)
        myarr(8, n) = liste(i, 8)
        myarr(9, n) = liste(i, 9)
        myarr(12, n) = liste(i, 12)
    End If
    myarr(6, z.Item(liste(i, 2))) = myarr(6, z.Item(liste(i, 2))) + liste(i, 6)
    myarr(10, z.Item(liste(i, 2))) = myarr(10, z.Item(liste(i, 2))) + liste(i, 10)
    myarr(11, z.Item(liste(i, 2))) = myarr(11, z.Item(liste(i, 2))) + liste(i, 11)
    myarr(13, z.Item(liste(i, 2))) = myarr(13, z.Item(liste(i, 2))) + liste(i, 13)
    myarr(14, z.Item(liste(i, 2))) = myarr(14, z.Item(liste(i, 2))) + liste(i, 14)
    myarr(15, z.Item(liste(i, 2))) = myarr(15, z.Item(liste(i, 2))) + liste(i, 15)
Next i
Erase liste
Application.ScreenUpdating = False
ReDim Preserve myarr(1 To 15, 1 To z.Count)
sh.Range("A2").Resize(z.Count, 15) = Application.Transpose(myarr)
Application.ScreenUpdating = True
sh.Select
Set sh = Nothing
Set z = Nothing
MsgBox "Bitti"
End Sub

 

[ERRİC]

İlginiz için Çok ama çok teşekkür ederim ; bir kucuk ricam olucak ben mi göremiyorum bir kaç sutundunda toplama yapmıyor ;
Örneğin 6613 nolu fatura nın oldugu satırda M ürün miktarı toplamı 3 olmalı;
yine aynı satırda MAT.ÜRÜN DÖV. "f" sutununda toplam 21,30 olmalı ; bir de 6611 nolu faturanın satırında bazı sutunlarda aynı şeyler var eğer münkün se bakarsanız sevinirim
Saygılar

 

[Orion1]

İlginiz için Çok ama çok teşekkür ederim ; bir kucuk ricam olucak ben mi göremiyorum bir kaç sutundunda toplama yapmıyor ;
Örneğin 6613 nolu fatura nın oldugu satırda M ürün miktarı toplamı 3 olmalı;
yine aynı satırda MAT.ÜRÜN DÖV. "f" sutununda toplam 21,30 olmalı ; bir de 6611 nolu faturanın satırında bazı sutunlarda aynı şeyler var eğer münkün se bakarsanız sevinirim
Saygılar

Ben sarı renkli sütunları toplamıştım.
Kodları düzenledim.Bir önceki mesajımdan dosyayı indirebilirsiniz.

 

[ERRİC]

Çok özür dileyerek son istirhamım olacak sayfa 2 g ve h sutunları kaymış sanırım bakar mısınız uygunsanız beyan yapacagım son gunu bugun gece 12 den önce neredeyse bitmiş çalışma zaten elinize sağlık;
bir de listenin tam hali ekte umarım hepsine uyar makro

 

[Orion1]

Çok özür dileyerek son istirhamım olacak sayfa 2 g ve h sutunları kaymış sanırım bakar mısınız uygunsanız beyan yapacagım son gunu bugun gece 12 den önce neredeyse bitmiş çalışma zaten elinize sağlık;
bir de listenin tam hali ekte umarım hepsine uyar makro

Gerekli düzeltmeyi yaptım.Dosyayı 2nci mesajdan indirebilrisiniz.
Yalnız H sütununda sorun var.Bazı hücreler tarih bazı hücreler metin.
Sayfa2 de tarihe çevriliyor ama değişik oluyor.
her 2sayfada 2nci satırda H hücrelerini kontrol edebilirsiniz.

 

[ERRİC]

Cok tesekkur ederim emeğinize sağlık mutlu akşamlar

 

[Orion1]

Cok tesekkur ederim emeğinize sağlık mutlu akşamlar

Rica ederim.
iyi çalışmalar.