makro ile firma bazlı toplam aldırma

[mustafakoker]

selam
dosyada gereklı açıklamalrı yaptım yardımcı olurmusunuz

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz.

Sub Raporla()
 
    Dim i As Long
    
    Application.ScreenUpdating = False
    
    [D:E].Clear: [C1].Copy [D1]
        
    [B:B].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[E1], Unique:=True
    
    For i = 2 To Cells(Rows.Count, "E").End(xlUp).Row
        Cells(i, "D") = WorksheetFunction.SumIf([B:B], Cells(i, "E"), [C:C])
    Next i
        
    [D:E].EntireColumn.AutoFit
    [D:D].NumberFormat = "#,##0.00 $"
    
    Application.ScreenUpdating = True
    
End Sub

Dosyanız ektedir.

Ayrıca raporlamalar için özet tablo kullanmanızı tavsiye ederim.

ÖZET TABLOLAR (PİVOT TABLE)

.

 

[mustafakoker]

ömer hocam teşekkür ederim
Özet tablo yapmaya çalıştım ilk başta beceremediğim için makro ile istedim
Sizinde söylediğiniz gibi özet tablo olması ilerde dosyanın şişmemesi için daha kullanışlı olacaktır diye düşünüyorum
Vaktiniz varsa bir de o şekilde dosyayı revize edebilirmisiniz

 

[mustafakoker]

Ömer bey

Sayın Evren Beyin bir dosyasını buldum forumda aşağıdakı örnek dosyayı benim dosyama göre değiştirebilirmiyiz acaba

Listwiev de başlangıç bitiş tarihi firma ismi seçili firmayı tıkladığımda toplam tahsilat tutarını gösterecek bana daha kullanışlı geldi

 

[Ömer]

Eki inceleyiniz.

Konuyu tam olarak kavramak için verdiğim linki detaylı incelemenizi tavsiye ederim.

.

 

[Ömer]

Ömer bey

Sayın Evren Beyin bir dosyasını buldum forumda aşağıdakı örnek dosyayı benim dosyama göre değiştirebilirmiyiz acaba

Listwiev de başlangıç bitiş tarihi firma ismi seçili firmayı tıkladığımda toplam tahsilat tutarını gösterecek bana daha kullanışlı geldi

Form çalışması için şimdilik zamanım yok maalesef.

 

[mustafakoker]

ok teşekkürlerimi sunarım
Diğer arkadaşlarımız mutlaka yardımcı olur diye düşünüp bekliyeceğim

 

[mustafakoker]

arkadaşlar ekli listwievi benim 1.örnek dosyama uygulayabilirmiyiz
Yapmak istediğim
kısaca yapmak istediğim başlancıç bitiş tarihine ve firmayı seçtiğimde o firmaya ait tahsilat detaylarını ve toplamlarını göstermesi ve sayfa 3.aktarması
Ekli listviev tam bana göre fakat diğer sutunları çıkartamadım