Ödenenleri Listbaxta Göstermek

[mor45]

Ekteki dosyamda CombaBax2 de seçtiğim (malın cinsi) ne göre o malın için ödenmiş tutarlı -ödeme tarihini-masraf tutarını ÖDEME sayfasından alarak User formun içndeki listbax göstermesi ve yazdır butonu ekleyerek bunları yazdırması.
İlginize teşkküler.

 

[Orion1]

Dosyanız ektedir.

Sub listele()
Dim sat As Long, k As Range, x As Long, adr As String
ListBox1.Clear
sat = Sheets("Ödenen").Cells(65536, "J").End(xlUp).Row
Set k = Sheets("Ödenen").Range("J2:J" & sat) _
.Find(ComboBox1.Value & "-" & ComboBox2.Column(1), , xlValues, xlWhole)
If Not k Is Nothing Then
    adr = k.Address
    Do
        ListBox1.AddItem
        ListBox1.List(x, 0) = k.Row
        ListBox1.List(x, 1) = Format(k.Offset(0, -4).Value, "dd.mm.yyyy")
        ListBox1.List(x, 2) = Format(k.Offset(0, -2).Value, "#,##0.00")
        ListBox1.List(x, 3) = Format(k.Offset(0, -1).Value, "#,##0.00")
        x = x + 1
        Set k = Sheets("Ödenen").Range("J2:J" & sat).FindNext(k)
    Loop While Not k Is Nothing And k.Address <> adr
End If
   
End Sub

 

[mor45]

Sayın Evren kardeş ellerine sağlık.
User forumda İHSAN OTÇU BUZDALABI seçildiğinde ÇIKTI sayfasındaki gibi bilgiler oluşsun istiyorm bunuda burdan yazdırmak isteyorum .
Bu olayda çözüldüğünde proğram tam istediğim gibi olacaktır. (User Formu her açılışta Hasan Mete Buzdolabı olan kişi geliyor.(Oysa en son yaptığım kayıt gelmesini istiyorum.)
Son kez yardımınızı bekliyorum.
Şimdiden teşekkür.
Dosa ekte

 

[Orion1]

Sayın Evren kardeş ellerine sağlık.
User forumda İHSAN OTÇU BUZDALABI seçildiğinde ÇIKTI sayfasındaki gibi bilgiler oluşsun istiyorm bunuda burdan yazdırmak isteyorum .
Bu olayda çözüldüğünde proğram tam istediğim gibi olacaktır. (User Formu her açılışta Hasan Mete Buzdolabı olan kişi geliyor.(Oysa en son yaptığım kayıt gelmesini istiyorum.)
Son kez yardımınızı bekliyorum.
Şimdiden teşekkür.
Dosa ekte

Dosyanız ektedir.

 

[mor45]

Sayın Evren Gizlen Ustadım Teşekkür ediyorum.

 

[Orion1]

Sayın Evren Gizlen Ustadım Teşekkür ediyorum.

Rica ederim.
İyi çalışmalar.