Ad soyada ve döneme göre ödemeleri görmek

[sdegirmenci]

Merhaba;
Form üzerinde ismi ve dönemi seçtikten sonra Aylara ait ödemelerin Yine Form üzerindeki ayların karşısında seçilen döneme ait olmasını istiyorum, Bir türlü yapamadım.Benim yaptıklarımda bütün dönemlere ait ödemeler gelmekte. Bu konuda yardımcı olabilirseniz çok sevinirim. Yardımlarınız için şimdiden teşekkür ederim.Saygılarımla.

 

[Korhan Ayhan]

Deneyiniz.

Private Sub adısoyadı_Change()
    If Me.dönem <> "" Then dönem_Change
End Sub

Private Sub dönem_Change()
    Set kr = Sheets("Kiralar")
    
    eylül.Caption = ""
    ekim.Caption = ""
    kasım.Caption = ""
    aralık.Caption = ""
    ocak.Caption = ""
    şubat.Caption = ""
    mart.Caption = ""
    nisan.Caption = ""
    mayıs.Caption = ""
    haziran.Caption = ""
    temmuz.Caption = ""
    ağustos.Caption = ""
    
    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 = Bul.Offset(0, 4)
                    ekim = Bul.Offset(0, 5)
                    kasım = Bul.Offset(0, 6)
                    aralık = Bul.Offset(0, 7)
                    ocak = Bul.Offset(0, 8)
                    şubat = Bul.Offset(0, 9)
                    mart = Bul.Offset(0, 10)
                    nisan = Bul.Offset(0, 11)
                    mayıs = Bul.Offset(0, 12)
                    haziran = Bul.Offset(0, 13)
                    temmuz = Bul.Offset(0, 14)
                    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]

Korhan Hocam ilginize çok teşekkür ederim. 2 gün buna uğraştım olmadı.Tekrar teşekkür ederim. İşleriniz kolay gelsin.Saygılarımla

 

[Korhan Ayhan]

2003 versiyonu kullandığınız için bu yöntemi önerdim. Yeni versiyonlarda sizin kullandığınız yöntemin çok koşullusu olan ÇOKETOPLA (SUMIFS) fonksiyonu kullanılabilirdi.

 

[sdegirmenci]

Çok teşekkür ederim ederim

 

[sdegirmenci]

Korhan Hocam Merhaba;
Kodları uygaldım, sonradan farkettim, seçilen döneme ait son satırdaki tutarı göstermekte. Oysa aynı isme ait seçilen dönemde ödeme olan ayların hepsini görmek istiyorum, Dosyayı ilk mesajımda son haliyle değiştirdim.Tekrar bakabilirseniz çok sevinirim, Saygılarımla

 

[Korhan Ayhan]

Ekte dosyanız yok..

 

[sdegirmenci]

Korhan hocam 1 nolu mesajımıdaki dosyayı değiştirmek isterken silmşim. Tekrar dosyamı ekliyorum .

 

[sdegirmenci]

Korhan Hocam merhaba;
Dosyamı ekledim, Tekrar bakabilirseniz memnun olurum.