Bir çizelgede aylara göre ödeme sayısı

[VeliKılbıyık]

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.

Dipnot: Bu çizelge dosyası ekte yer almaktadır.

[erseldemirel]

Bu yardımcı olabilir. E ve F sütununa bilgi yazar

Kod: Tümünü seç

Sub Hesapla()
Set ws = ThisWorkbook.Sheets("Sheet1")
sonSatir = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row
ws.Cells(1, 5).Value = "Yıl ve Aylar"
ws.Cells(1, 6).Value = "Ödeme Adediniz"
For i = 2 To sonSatir
odemeTarihi = ws.Cells(i, 2).Value
yil = Year(odemeTarihi)
ay = Month(odemeTarihi)
bulunan = False
For j = 2 To ws.Cells(ws.Rows.Count, 5).End(xlUp).Row
If ws.Cells(j, 5).Value = yil & " - " & ay Then
ws.Cells(j, 6).Value = ws.Cells(j, 6).Value + 1
bulunan = True
Exit For
End If
Next j
If Not bulunan Then
ws.Cells(ws.Cells(ws.Rows.Count, 5).End(xlUp).Row + 1, 5).Value = yil & " - " & ay
ws.Cells(ws.Cells(ws.Rows.Count, 5).End(xlUp).Row, 6).Value = 1
End If
Next i
End Sub

[VeliKılbıyık]

Merhaba. Ben Libre Office'in Excel dosyasını kullanıyorum. Yukarıdaki verdiğiniz makro programı çalıştırınca Set ws = ThisWorkbook.Sheets("Sheet1") kısmında "Basic Çalışma Zamanı Hatası: Nesne Değişkeni Belirlenmedi" hatası ortaya çıktı. Bunu düzeltmenizi sizden rica ediyorum.

[VeliKılbıyık]

Merhaba. Yukarıda belirttiğim hatayı bayağı zorlansam da düzeltmeyi başardım. Yine de yardımınızdan ötürü size teşekkür ederim.

[erseldemirel]

Iyı gunler kolay gelsin