Bir çizelgedeki aylara ait ödeme sayısı

[VeliDemir]

Merhaba. Bu hizmeti sunduğunuzdan ötürü sizlere teşekkür ederim.

Tarih sırasına göre ödeme kalemlerini içeren üç sütunluk bir çizelge excel dosyasında yer almaktadır. Birinci sütunda ödeme sırası, ikinci sütunda tarih, üçüncü sütunda ise ödeme tutarı belirtilmektedir. Bu çizelgede aynı aylara ait ödeme sayılarını (Mesela, 2020 senesinin 6'ncı ayına ait 2 adet ödeme sayısını) belirten bir makro programını sizlerden rica ediyorum.

 

[muratboz06]

Örnek dosya paylaşabilirseniz yardımcı olabiliriz.
Pivot tablo ile basit bir şekilde yapılabilir.

 

[VeliDemir]

1​	15.06.2020​	1004,54​
2​	15.06.2020​	62,78​
3​	13.07.2020​	878,98​
4​	08.08.2020​	941,76​
5​	10.05.2022​	427,01​
6​	10.05.2022​	1120,89​

Mesela, yukarıdaki çizelge örneğinde 2020 senesinin 6'ncı ayında 2 adet ödeme, 2022 senesinin 5'inci ayında 2 adet ödeme yapılmıştır. Hangi aylarda birden çok ödeme yapılmışsa, o ödeme sayılarını belirten bir makro programını sizlerden rica ediyorum.

 

[muratboz06]

Ekte yer alan Rapor dosyasındaki Veriler sayfasına verilerinizi kopyalayınız ve aynı sayfadaki RAPOR OLUŞTUR düğmesine basınız.
Önemli Not: B sütunundaki tarih verileriniz tarih formatında olmalıdır.

 

[VeliDemir]

Merhaba. Bu dosyayı indiremiyorum. Çünkü, dosya indirilmesi ücretli altın üyelik gerekiyor. Mümkünse, bu talebime dair VBA kodlarını paylaşmanızı rica ediyorum.

 

[muratboz06]

Verileriniz olduğu sayfanın ismini Veriler olarak değiştirin bir de Rapor isminde boş bir yeni sayfa oluşturun.
Önceki e-postada belirttiğim gibi Tarih sütunundaki veriler tarih formatında olmalıdır.

Sub RaporOluştur()
Application.DisplayAlerts = False
Dim veriler As Worksheet
Set veriler = ThisWorkbook.Worksheets("Veriler")
Dim rapor As Worksheet
Set rapor = ThisWorkbook.Worksheets("Rapor")

rapor.UsedRange.Delete
veriler.Select
Cells(1, 4) = "Tarih 2"
sonSatir = ActiveSheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

For i = 2 To sonSatir
Cells(i, 4) = Year(Cells(i, 2)) & " " & Month(Cells(i, 2))
Next i

Cells(1, 5) = "Say"
For i = 2 To sonSatir
Cells(i, 5) = WorksheetFunction.CountIf(Range("D:D"), Cells(i, 4))
Next i

veriler.Range("D1:E" & sonSatir).Copy

rapor.Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    
    sonSatir = ActiveSheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

    ActiveSheet.Range("$A$1:$B$" & sonSatir).RemoveDuplicates Columns:=1, Header:=xlYes
    Range("B1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$B$" & sonSatir).AutoFilter Field:=2, Criteria1:=">1", _
        Operator:=xlAnd
    MsgBox "İşlem tamamlandı."
    Application.DisplayAlerts = True

End Sub

 

[VeliDemir]

Merhaba. Libre Office programında bu kodtan makro oluşturdum. Lakin, onu çalıştırırken Basic Söz Dizim Hatası verdi.

 

[Korhan Ayhan]

Bu kodlar excel-vba içindir. Libre ofiste çalışmaz.

Zaten konu başından beri libre ofiste kullanacağınızı belirtmemişsiniz.

 

[VeliDemir]

Merhaba. Ben sorunu bayağı zorlansam da çözdüm. Yine de yardımlarınızdan ötürü sizlere teşekkür ederim.