Listboxdaki verileri silme işlemi hakkında yardım

[muratcx]

Merhaba arkadaşlar hazırlamaya çalıştığım userformda 3 adet listbox var SİL butonu ile listboxlardaki veriyi silmek istiyorum ancak tüm satır siliniyor sadece seçtiğim listboxdaki verinin silinmesi lazım yardımlarınızı rica ediyorum

 

[ynmcan]

Syn. Muratcx ;
listebox kodlarını aşağıdaki şekilde değiştirdim. İşinize yararmı bilmiyorum.

  Silinecek_Satir = ListBox1.ListIndex + 3
           For i = 1 To 3
         Sheets("KAYIT").Rows.Cells(Silinecek_Satir, i).Clear
          Next i

  Silinecek_Satir = ListBox2.ListIndex + 3
           For i = 4 To 7
         Sheets("KAYIT").Rows.Cells(Silinecek_Satir, i).Clear
          Next i

  Silinecek_Satir = ListBox1.ListIndex + 3
           For i = 8 To 11
         Sheets("KAYIT").Rows.Cells(Silinecek_Satir, i).Clear
           Next i

Ekteki dosyayı inceleyin.

 

[muratcx]

İlginize teşekkür ederim ancak kod işlem yapmadı

 

[leumruk]

Merhaba,
Silme satırlarınızı sırasıyla aşağıdakilerle değiştirin.
Listbox1 için:

Sheets("KAYIT").Range("a" & Silinecek_Satir & ":c" & Silinecek_Satir).Delete Shift:=xlUp

Listbox2 için:

Sheets("KAYIT").Range("e" & Silinecek_Satir & ":g" & Silinecek_Satir).Delete Shift:=xlUp

Listbox3 için:

Sheets("KAYIT").Range("I" & Silinecek_Satir & ":K" & Silinecek_Satir).Delete Shift:=xlUp

 

[ynmcan]

Syn. Muratcx ; İşlem yapmadı derken istediğin işlemimi yapmadı yoksa hiçbir işlemi yapmıyor. Çünkü yolladığım ekteki dosyada benim sorunuzdan anladığım kadar seçtiğiniz listebox' taki verileri siliyor.

 

[muratcx]

Syn leumruk, vermiş olduğunuz kod listboxun ilk satırı seçildiğinde çalışıyıor userfom açıldığında listboxun son satırı seçildiğinde kod çalışmadı

Syn Ynmcany sizin vermiş olduğunuz kodda listboxda veri silindi ancak siline satır boş kaldı tekrar denediğimde kod çalışmadı bende anlam veremedim malumunüz çok yeniyim nerde hata yaptım bimiyorum

 

[leumruk]

Merhaba,
Örnek olarak Listbox1 için düzenlediğim kodu ekliyorum. Aynı mantıkla diğer listboxları siz düzenlersiniz.

If ListBox1.ListIndex >= 0 Then
        cevap = MsgBox("Bilgi Silinecek ... Emin misiniz ?", vbYesNo, "SİLME ONAYI")
        If cevap = vbYes Then
        Silinecek_Satir = ListBox1.ListIndex + 3
        Sheets("KAYIT").Range("a" & Silinecek_Satir & ":c" & Silinecek_Satir).Delete Shift:=xlUp
            If Sheets("KAYIT").Range("B3") = Empty Then
            ListBox1.RowSource = Empty
            Else
            ListBox1.RowSource = "KAYIT!B3:C" & [KAYIT!B65536].End(3).Row
            End If
        Exit Sub
        End If
End If

 

[ynmcan]

syn. muratcx ;
Ekteki dosyayı inceleyin.