Soru Optionbutton' a göre filtreleme

[sirkülasyon]

Sayfanın I sütununda 2. satırdan itibaren "Ayrıldı" ibaresi var ise (OptionButton1) B sütununda olan isimleri Listbox1' e listelesin
Sayfanın I sütununda 2. satırdan itibaren "Aktif Çalışan" ibaresi var ise (OptionButton2) B sütununda olan isimleri Listbox1' e listelesin
rica etsem yardımcı olabilir misiniz?

 

[sirkülasyon]

ListBox1.ColumnCount = 1
ListBox1.ColumnWidths = "20,100,100,100,200"
For sat = 2 To Cells(65536, "b").End(xlUp).Row
    If Cells(sat, "ı") = "Ayrıldı" Then
        ListBox1.AddItem
        ListBox1.List(s, 0) = Cells(sat, "b")
        s = s + 1
    End If
Next

kodu ile çözdüm. Teşekkür ederim.

 

[Greenblacksea53]

Dim kayitSayisi, i As Integer

kayitSayisi = Sheets("Sayfa1").Cells(Rows.Count, "I").End(xlUp).Row

Listbox1.Clear
For i = 2 To kayitSayisi

If Sheets("Sayfa1).Range("I" & i).Value = OptionButtun.value Then
Listbox1.AddItem Sheets("Sayfa1").Range("B" & i)

End If
[/CODE]

Option button ekleyin value değerleri Ayrıldı, Aktif Çalışan olsun ve seçtiğini listeler