Listbox satır silme

[igultekin2000]

iyi akşamlar;
Kullanmakta olduğum listbox' ta, comboBox1' den seçerek firmayı süzme yapıyorum. Veri Fazla olacağı için SÜZME yaparak veri seçip güncelleme veya silmek istiyorum. Bulduğum örneklerde süzme olmadığı için kendi Listbox' uma adapte edemedim. birde aynı isimden tekrar edeceği için sıranosu koyarak denedim başarılı olamadım. Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

 

[askm]

Aşağıdaki şekilde deneyin.

Private Sub CommandButton5_Click()

If listbox1.ListIndex < 0 Then
MsgBox "Listeden Silinecek Veriyi Seçmediniz", vbCritical, " UYARI"
Exit Sub: End If
sor = MsgBox("Seçilen Veriyi silmek İstediğinizden Emin misiniz?", vbCritical + vbYesNo, "UYARI")
If sor = vbNo Then Exit Sub
        'If ..... (sadece listboxta bir isim seçilmişse silme işlemi gerçeksin)
            Sheets("is_takip").Cells(listbox1.ListIndex + 2, "a").EntireRow.Delete 'silme
        'End If
    
EVRAKSUZ.listbox1.RowSource = ("is_takip!a2:a100000") 'burda rowsource yenileniyor

End Sub

 

[igultekin2000]

sorun çözülmedi

Aşağıdaki şekilde deneyin.

Private Sub CommandButton5_Click()

If listbox1.ListIndex < 0 Then
MsgBox "Listeden Silinecek Veriyi Seçmediniz", vbCritical, " UYARI"
Exit Sub: End If
sor = MsgBox("Seçilen Veriyi silmek İstediğinizden Emin misiniz?", vbCritical + vbYesNo, "UYARI")
If sor = vbNo Then Exit Sub
        'If ..... (sadece listboxta bir isim seçilmişse silme işlemi gerçeksin)
            Sheets("is_takip").Cells(listbox1.ListIndex + 2, "a").EntireRow.Delete 'silme
        'End If
    
EVRAKSUZ.listbox1.RowSource = ("is_takip!a2:a100000") 'burda rowsource yenileniyor

End Sub

Listbox' un şekli değişiyor ama veri silinmiyor

 

[askm]

Verileri süz sayfasına alarak forma getiriyormuşsunuz. 'EVRAKSUZ.listbox1.RowSource = ("is_takip!a2:a100000") ile sadece 1 sütunu alıyorsunuz tekrardan. Süzme işlemi de olmuyor.

Private Sub CommandButton5_Click()

If listbox1.ListIndex < 0 Then
MsgBox "Listeden Silinecek Veriyi Seçmediniz", vbCritical, " UYARI"
Exit Sub: End If
sor = MsgBox("Seçilen Veriyi silmek İstediğinizden Emin misiniz?", vbCritical + vbYesNo, "UYARI")
If sor = vbNo Then Exit Sub
        'If ..... (sadece listboxta bir isim seçilmişse silme işlemi gerçeksin)
            Sheets("is_takip").Cells(listbox1.ListIndex + 2, "a").EntireRow.Delete 'silme
        'End If
    
'EVRAKSUZ.listbox1.RowSource = ("is_takip!a2:a100000") 'burda rowsource yenileniyor
UserForm_Initialize
End Sub

 

[igultekin2000]

biraz daha düzenlemem gerekiyor.

Private Sub CommandButton5_Click()
On Error Resume Next
cvp = MsgBox("KAYDI SİLMEK İSTEDİGİNİZE EMİNMİSİNİZ ?", vbYesNo, " FEDEAL ")
If cvp = vbNo Then
Else
I = listbox1.ListIndex + 2
If I < 2 Then Exit Sub
    Sheets("is_takip").Range("A" & I).Delete Shift:=xlUp
    Sheets("is_takip").Range("B" & I).Delete Shift:=xlUp
    Sheets("is_takip").Range("C" & I).Delete Shift:=xlUp
    Sheets("is_takip").Range("D" & I).Delete Shift:=xlUp
    Sheets("is_takip").Range("E" & I).Delete Shift:=xlUp
    Sheets("is_takip").Range("F" & I).Delete Shift:=xlUp

    ActiveWorkbook.Save
    MsgBox "KAYIT SİLİNDİ", , "ism"
End If
End Sub

sonunda buldum