Listbox'a süzülenleri sayfadan silme

[fireman64]

Selam.
Comboboxla listboxdaki veriler süzdürülüyor. Listboxda birden fazla aynı rakama sahip süzülmüş veri getiriliyor.
Listboxtaki süzülmüş verilerin çift tıklamayla sayfadan ve listboxdan silinmesi için kod lazım şimdiden teşekkürler

 

[Korhan Ayhan]

MErhaba,

Formunuza aşağıdaki kodları uygulayın.

Kırmızı renkli kod yeni eklenmiştir. Diğer ikisi sadece revize edilmiştir.

Private Sub ComboBox1_Change()
    Dim MyRange As Range
    Dim noA As Integer, X
    ListBox1.Clear ' listbox1 temizlenir
    ListBox1.ColumnCount = 2
    ListBox1.ColumnWidths = "0;100"
    noA = WorksheetFunction.CountA(Sheets("Sayfa1").Range("d:d"))
    For Each MyRange In Sheets("Sayfa1").Range("d2:d" & noA) 'textbox1 e girilen değer sayfa 14 te d2 den itibaren d sütununda aranır
    If Left(LCase(MyRange), Len(ComboBox1)) = LCase(ComboBox1) Then
        ListBox1.AddItem
        ListBox1.List(X, 0) = MyRange.Row
        ListBox1.List(X, 1) = (MyRange) ' Textbox6 daki uygun kriter olanlar listboxta A dan Z ye sıralanır
        X = X + 1
    End If
    Next
End Sub
 
Private Sub ListBox1_Click()
    Dim X As Integer
    X = ListBox1.List(ListBox1.ListIndex, 0)
    Cells(X, 4).Select
End Sub
 
[COLOR=red]Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim X As Integer
    X = ListBox1.List(ListBox1.ListIndex, 0)
    Rows(X).Delete
    ComboBox1_Change
End Sub[/COLOR]

 

[fireman64]

Korhan Hocam çok teşekkürler ellerinize sağlık.