Fatura ödeme takvimi

[Egos95]

Merhaba,

Değişik firmalara kestiğim faturaları ödeme tarihlerine göre farklı bir sheette ay ay toplam olarak görmek istiyorum. Yardımcı olabilirseniz sevinirim

 

[Murat OSMA]

Faturalar Sayfasında şu kodları bir deneyin;

Sub Aylara_Böl()
    Dim Rky As Integer, a As Integer, sat As Integer
    sat = 4
    For Rky = 4 To 17
        For a = 2 To 5
            If VBA.Format(Cells(Rky, 3), "mmmm") = _
               VBA.Format(Sayfa2.Cells(3, a), "mmmm") Then
               Cells(Rky, 4).Copy Sayfa2.Cells(sat, "A")
               Cells(Rky, 5).Copy Sayfa2.Cells(sat, a)
               sat = sat + 1
            End If
        Next a
    Next Rky
    Rky = Empty: sat = Empty: a = Empty
End Sub

 

[Egos95]

üstadım öncelikle yardımın için teşekkür ederim. Ancak çok uzun yıllardır excel kullanmama rağmen şu macro işini kafam hiç almadı. Belkide yeterli vakit harcamadım.

Sorunumu fonksiyonlarla çözmemiz mümkün mü?

 

[Murat OSMA]

Rica ederim..

Öğrenmek için; gerçekten öğrenme isteği ve zaman gerek. Bu ikisi var da neden öğrenmeyesiniz ?

 

[Merhum İdris SERDAR]

Merhaba,

Değişik firmalara kestiğim faturaları ödeme tarihlerine göre farklı bir sheette ay ay toplam olarak görmek istiyorum. Yardımcı olabilirseniz sevinirim

.

Dosyanız ekte.

Pivot Table - Özet Tablo ile yapılmıştır.

.

 

[Egos95]

üstad ellerine sağlık. Kendi dosyam üzerinde yapmaya çalışıyorum, tabloyu çıkardım ancak tarih konusunda biraz sıkıntı yaşıyorum. Bende tarihler gün gün çıkıyor, aylık olarak almayı beceririm inşallah azimliyim