Dolu Hücrelerin Listbox' ta gözükmesi.?

[ZİNDAN]

Merhaba arkadaşlar;

Bir arkadaşım geçenlerde bir beyannamenin son verilme gününü kaçırmış.Yüklü bir ceza ile karşı karşıya kaldı.Ona yardımcı olmak için, bilgisayar açıldığı zaman ekrana gelecek bir uyarı formu yapmaya çalışıyorum.

Sizden istediğim;
Userform açıldığı zaman sadece C sütunundaki SONGÜN yazan satırların Userform üzerinde gözükmesini istiyorum.Bi bunu yapamadım gibi, burada tıkandım.!

Bu konuda bana yardımcı olacak arkadaşlara şimdiden teşekkürler.




Kolay gelsin.

 

[Orion1]

Dosyanız ektedir.

Private Sub UserForm_Initialize()
Dim k As Range, adr As String, x As Long
ListBox1.ColumnCount = 3
Sheets("Sayfa1").Select
Set k = Range("C:C").Find("SONGÜN", , xlValues, xlWhole)
If Not k Is Nothing Then
    adr = k.Address
    Do
        ListBox1.AddItem
        ListBox1.Column(0, x) = k.Offset(0, -2).Value
        ListBox1.Column(1, x) = Format(k.Offset(0, -1).Value, "dd.mm.yyyy")
        ListBox1.Column(2, x) = k.Value
        x = x + 1
        Set k = Range("C:C").FindNext(k)
    Loop While Not k Is Nothing And k.Address <> adr
End If
Set k = Nothing
End Sub

 

[ZİNDAN]

Sayın Evren Bey, nedesem azdır sizin için.
Teşekkürler, elinize, aklınıza sağlık.
Süper olmuş walla.


İyi günler.

 

[Orion1]

Sayın Evren Bey, nedesem azdır sizin için.
Teşekkürler, elinize, aklınıza sağlık.
Süper olmuş walla.


İyi günler.

Rica ederim.
İyi çalışmalar.