CheckBox ile ListBox içerisindeki veriyi göster gösterme

[kadirdaylight]

Arkadaşlar konuları çok aradım ama istediğim gibi bir kod henüz bulamadım. Bana yardımcı olursanız sevinirim.

Elimde bir stok takip programı var ListBox içerisine OptionButtonlar ile seçtiğim sayfalardaki verileri aldırıyorum. Ancak alt kısma bir checkbox koydum ve stoğu mevcut olanları göster dedim.

Yani checkbox a tıklayınca bana sadece dolu olan satırları göstersin istiyorum. kullandığım kodlar aşağıda.

Private Sub OptionButton1_Click()

Sheets("GK1").Select
TextBox2.Value = "GENEL KİMYA-1"

OptionButton1.BackColor = &H80&
OptionButton1.ForeColor = &H80&

OptionButton2.ForeColor = &HFFFFFF
OptionButton3.ForeColor = &HFFFFFF
OptionButton4.ForeColor = &HFFFFFF
OptionButton5.ForeColor = &HFFFFFF
OptionButton6.ForeColor = &HFFFFFF
OptionButton7.ForeColor = &HFFFFFF
OptionButton8.ForeColor = &HFFFFFF

On Error Resume Next
With ListBox1
.ColumnCount = 6
.ColumnHeads = True
.ColumnWidths = "30,205,100,70,70, 60, 40"
Sons = Sheets("GK1").Range("A65536").End(xlUp).Row
ListBox1.RowSource = "GK1!A2:N" & Sons
End With
End Sub

 

[kadirdaylight]

okadar kişi bakmış biride cevap verememiş ya