Listbox Optionbutton ile Seçileni Eşleme

[mahmut_sagiroglu]

Listbox a eklediğimiz item ler arasından option button ile secilenleri sayfadan eslestirerek, bulma ya da silme v.b. islemi yapabilme. Listbox da bulunan veriler arasından optionbutton ile sectiklerimi sayfadan eslestirerek ilgili sutunu silmek isityorum bi turlu bulamadım. Yardımcı olursanız sevinirim.

 

[Recep İpek]

Küçük bir örnek dosya ekleyebilirmisiniz?

 

[mahmut_sagiroglu]

ornek dosya

ornek dosya

 

[Recep İpek]

Aşağıdaki kodları denebilirsiniz.

Private Sub Sil_Click()
On Error Resume Next
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
silinecek = ListBox1.List(i, 0)
If MsgBox(silinecek & " sütununu silmek istiyormusunuz?", vbCritical + vbDefaultButton2 + vbYesNo, "UYARI") = vbYes Then
For j = 1 To Cells(1, 1).End(xlToRight).Column
If Cells(1, j).Value = silinecek Then Cells(1, j).Delete Shift:=xlToLeft
Next j
End If
End If
Next i
ListBox1.Clear
Call Yükle
End Sub

 

[mahmut_sagiroglu]

teşekkür ederim işe yaradı.

emeğine sağlık.

 

[Recep İpek]

Rica ederim.

Bazı eksiklikler olabilir.Siz kendinize göre geliştireblirsiniz.