excelde veriyi ara bul ve listboxta göster

[şehiriçi]

Merhaba excel dostları
Aşağıda örnek dosya ile desteklediğim bir listbox sorusu ile sizlerin desteğini bekliyorum.
Excel tablomda G sütununda "Takip" yazısı olan satırı bulup , bulunan satırdaki A B ve G sütunlarını
listbox nesnesinde görmek istiyorum , teşekkürler.

 

[Orion1]

Buyurun.dosyanız ektedir.

Private Sub UserForm_Initialize()
Dim i As Long, sonsat As Long, sh As Worksheet, say As Long
ListBox1.ColumnCount = 3
Set sh = Sheets("Sayfa1")
sonsat = sh.Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To sonsat
    If sh.Cells(i, "G").Value = "takip" Then
        ListBox1.AddItem
        ListBox1.List(say, 0) = sh.Cells(i, "A").Value
        ListBox1.List(say, 1) = Format(sh.Cells(i, "B").Value, "dd.mm.yyyy")
        ListBox1.List(say, 2) = sh.Cells(i, "G").Value
        say = say + 1
    End If
Next

End Sub

 

[şehiriçi]

Eline , zekana sağlık orion 1 Teşekkürler.