Listbox da süzülen verileri Listelemek

[AVOGAGA]

Merhabalar,

User formda, combox1 de adı soyadı seçerek ,Combobox2 ile de excel sayfasını seçerek seçili olan sayfadaki Sutun B2 , C2 , D2, E2, F2, H2, kolonlarında bulunan bilgileri Combobox1 deki veri ye göre süzerek elden edilen bilgileri listbox1 de listelemek istiyorum.

örneğin
seçili olan sayfada
sütun (B2:B65530) (C2:C65530) (D65530)

adı soyadı izin başlangıç tarihi işbaşı tarihi
Ahmet Avcı 01.01.2007 10.01.2007
Ahmet Avcı 01.03.2007 10.03.2007
Mehmet Yıldız 10.03.2007 20.03.2007
Ali Uzun 25.02.2008 28.02.2008
Ahmet Acvı 10.02.2008 28.02.2008
Mehmet Yıldız 01.01.2008 20.01.2008

Seçili excel sayfasından adı soyada göre yanına gelen izin başlangıç ve işbaşı tarihlerini listbox1 de listelenmesi mümkünmü?
iyi çalışmalar,

 

[Orion1]

Bir buton oluşturunuz ve o butona aşağıdaki kodları yapıştırınız.
Sonrada butona tıklayınız.

Dim i As Long, a As Long, k As Byte
Sheets(ComboBox2.Value).Select
ListBox1.Clear
ListBox1.ColumnCount = 3
ReDim myarr(1 To 3, 1 To 1)
For i = 2 To Cells(65536, "B").End(xlUp).Row
    If LCase(Replace(Replace(Cells(i, "B").Value, "I", "ı"), "İ", "i")) _
    Like LCase(ComboBox1.Value) Then
        a = a + 1
        ReDim Preserve myarr(1 To 3, 1 To a)
        For k = 1 To 3
            myarr(k, a) = Cells(i, k + 1).Value
        Next
    End If
Next
If a > 0 Then ListBox1.Column =

myarr

 

[AVOGAGA]

Evren bey,
Teşekkür ederim. Kodlarınız gereğini yaptı.
iyi çalışmalar

 

[Orion1]

Evren bey,
Teşekkür ederim. Kodlarınız gereğini yaptı.
iyi çalışmalar

Rica ederim.
İyi çalışmalar.