combo ile listboxda filtre

[Barons]

merhaba
ekli dosyada onay sayfasında form butonu tıklanınca 2 adet listbox olan bir userform açılıyor.Burada sarı renkli userformun üzerindeki listeler düğmesi tıklanınca tarihe göre 2 adet farklı liste çıkıyor.Bu listelere tıklanınca listboxda o tarihe göre olan verilerin gelmesini istiyorum.

Lütfen yardım

 

[Barons]

Lütfen forumdan kaldırınız. Tşk.

 

[Orion1]

Dosyanız ekte.

Private Sub ListBox2_Click()
Dim myarr() As Variant, k As Range, a As Long, adr As String, j As Byte
Set s1 = Sheets("onay")
Set k = s1.Range("I2:I65536").Find(CDate(Format(ListBox2.Value, "dd.mm.yyyy")), , xlValues, xlWhole)
ReDim myarr(1 To 9, 1 To 1)
ListBox1.RowSource = vbNullString
If Not k Is Nothing Then
    adr = k.Address
    Do
        a = a + 1
        ReDim Preserve myarr(1 To 9, 1 To a)
        For j = 2 To 8
            myarr(j - 1, a) = s1.Cells(k.Row, j).Value
        Next j
        Set k = s1.Range("I2:I65536").FindNext(k)
    Loop While k.Address <> adr And Not k Is Nothing
ListBox1.Column = myarr
End If

 ComboBox1.Value = ListBox2.Value
 Set k = Nothing
 Set s1 = Nothing
End Sub

 

[Barons]

Tam ümidimi kaybetmiştim...hay Allah razı olsun...işleriniz kolay olsun inşallah

 

[Orion1]

Tam ümidimi kaybetmiştim...hay Allah razı olsun...işleriniz kolay olsun inşallah

Rica ederim.
İyi çalışmalar.