Listbox ta çoklu seçim ve silme hatası.

[northcyprus]

SAYIN HOCALARIM LİSTBOX DAKİ MULTİ SEÇENEĞİNİ YAPMAMA RAĞMEN BİR TÜRLÜ NEYİ YANLIŞ YAPTIĞIMI BULAMADIM ÇOKLU SEÇİM YAPIYORUM FAKAT YİNE 1 TANE SATIRI SİLİYOR AŞŞAĞIDAKİ FORMÜLDE NE YAPMAM GEREKİYOR VEYA NEYİ DÜZELTMEM GEREKİYOR Kİ ÇOKLU SATIR SİLME İŞLEMİNİ GERÇEKLEŞTİREBİLEYİM.... TEŞEKÜRLER..


If MUTFAKTAKİPLİSTESİ.ListIndex >= 0 Then

Silinecek_Satir = MUTFAKTAKİPLİSTESİ.ListIndex + 1
Sheets("EKLENENLER").Rows(Silinecek_Satir).Copy

Sheets("GÖNDERİLENLER").Select
SON = Sheets("GÖNDERİLENLER").[A65536].End(3).Row + 1
Range("A" & SON).Select
ActiveSheet.Paste
Sheets("EKLENENLER").Select
Sheets("EKLENENLER").Rows(Silinecek_Satir).Delete
End If

 

[Muzaffer Ali]

Aşağıdaki kodları dener misiniz?

    If MUTFAKTAKİPLİSTESİ.ListIndex >= 0 Then
        For i = 0 To MUTFAKTAKİPLİSTESİ.ListCount - 1
            If MUTFAKTAKİPLİSTESİ.Selected(i) = True Then
                Silinecek_Satir = i + 1
                Sheets("EKLENENLER").Rows(Silinecek_Satir).Copy
                
                Sheets("GÖNDERİLENLER").Select
                SON = Sheets("GÖNDERİLENLER").[A65536].End(3).Row + 1
                Range("A" & SON).Select
                ActiveSheet.Paste
                Sheets("EKLENENLER").Select
                Sheets("EKLENENLER").Rows(Silinecek_Satir).Delete
            End If
        Next i
    End If

 

[northcyprus]

Sayın arkadaşım denedim yine olmadı ben dosyayı ekledim listbox tan seçip gönder butonu ile silme işlemini gerçekleştiriyorum..

BİR DE LİSTBOX DA MAUSE NİN TEKERLEĞİ NEDEN ÇALIŞMIYOR ACEBA..