Seçilen ad soyada ve döneme göre ödemelerin aylar karşında görünmesi

[sdegirmenci]

Merhaba;
Form üzerinde ad soyadı seçip dönemi seçtiğimde; Örnek : 2018 - 2019 dönemini seçtiğimde benim istediğim Ayların karşısına, Ekim 250, Kasım 300, Aralık 350 , Ocak 400 olarak göstermesi lazım. Oysa mevcut kod ile yalnızca son satırda hangi ay varsa onu göstermekte.Bu konuda yardımcı olabilirseniz çok sevinirim. İlginize çok teşekkür ederim. Saygılarımla

 

[Muzaffer Ali]

Merhaba.

Private Sub dönem_Change() altındaki kodları silin aşağıdakileri ekleyin.

Private Sub dönem_Change()
    Set kr = Sheets("Kiralar")
    eylül.Caption = 0
    ekim.Caption = 0
    kasım.Caption = 0
    aralık.Caption = 0
    ocak.Caption = 0
    şubat.Caption = 0
    mart.Caption = 0
    nisan.Caption = 0
    mayıs.Caption = 0
    haziran.Caption = 0
    temmuz.Caption = 0
    ağustos.Caption = 0
    If Me.adısoyadı <> "" Then
        Set Bul = kr.Range("D:D").Find(Me.adısoyadı, , , xlWhole)
        If Not Bul Is Nothing Then
            Adres = Bul.Address
            Do
                If Bul.Offset(0, 3) = Me.dönem Then
                    eylül = eylül + Bul.Offset(0, 4)
                    ekim = ekim + Bul.Offset(0, 5)
                    kasım = kasım + Bul.Offset(0, 6)
                    aralık = aralık + Bul.Offset(0, 7)
                    ocak = ocak + Bul.Offset(0, 8)
                    şubat = şubat + Bul.Offset(0, 9)
                    mart = mart + Bul.Offset(0, 10)
                    nisan = nisan + Bul.Offset(0, 11)
                    mayıs = mayıs + Bul.Offset(0, 12)
                    haziran = haziran + Bul.Offset(0, 13)
                    temmuz = temmuz + Bul.Offset(0, 14)
                    ağustos = ağustos + Bul.Offset(0, 15)
                End If
                Set Bul = kr.Range("D:D").FindNext(Bul)
            Loop While Not Bul Is Nothing And Bul.Address <> Adres
        End If
    End If
    Set kr = Nothing
End Sub

 

[sdegirmenci]

Sayın dalgalikur, İlginize çok teşekkür ederim. Kodları uyguladım, istediğim gibi oldu.Tekrar teşekkür ederim. İşleriniz kolay gelsin. Saygılarımla