Listbox sayfa silme mesajı

[xemdarx]

Selamlar,
Listboxta evet hayır masjından sonra silinen sayfaların isimlerini uyarı olarak verebilir mi?

 

[işsiz123]

Aleyküm Selam
Altın üye olmadığım dosyanızı indiremedim . Dosyanızı https://www.dosyaupload.com/ veya http://s7.dosya.tc/ adresine yüklerseniz altın üye olmayan arkadaşlarda yardımcı olacaktır.

 

[askm]

Private Sub CommandButton1_Click()

  
cvp = MsgBox("Silmek İstiyorsanız Evet' e Basın, Sadece Gizlemek İstiyorsanız Hayır'a Basın", vbYesNo + vbQuestion)
If cvp = vbYes Then
 Application.DisplayAlerts = False
  Dim i As Integer
    For i = 0 To ListBox1.ListCount - 1
        
        If ListBox1.Selected(i) = True Then isim = ListBox1.List(i): Sheets(ListBox1.List(i)).Delete
    Next i
    UserForm_Initialize
    MsgBox " " & isim & " İsimli kişiye ait bilgiler silinmistir.", vbInformation, "ÇÖZGEN"


Else

End If
End Sub

 

[xemdarx]

Sadece bir isim çıkıyor. Silinen tüm sayfaları gösterebilir mi?

 

[xemdarx]

Güncel..

 

[xemdarx]

Güncel

 

[halit3]

Userform5 deki kodu bununla değiştirin.

Private Sub CommandButton1_Click()

cvp = MsgBox("Silmek İstiyorsanız Evet' e Basın, Sadece Gizlemek İstiyorsanız Hayır'a Basın", vbYesNo + vbQuestion)
If cvp = vbYes Then
Application.DisplayAlerts = False
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Sheets(ListBox1.List(i)).Delete
MsgBox ListBox1.List(i) & " Sayfa silindi.", vbInformation, "ÇÖZGEN"
End If
Next i
UserForm_Initialize
Else

End If
End Sub

veya bu kodu kullan

Private Sub CommandButton1_Click()

Application.DisplayAlerts = False
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then

cvp = MsgBox(ListBox1.List(i) & " Bu sayfayı Silmek İstiyormusunuz.", vbYesNo + vbQuestion)
If cvp = vbYes Then
Sheets(ListBox1.List(i)).Delete
MsgBox ListBox1.List(i) & " Sayfa silindi.", vbInformation, "ÇÖZGEN"
End If
End If
Next i

UserForm_Initialize

End Sub

 

[xemdarx]

Sayın @halit3 ,
Kodlarınız çalışıyor. Fakat tek bir mesajda gösterebilir miyiz? Resimdeki gibi.

 

[halit3]

kod:

Private Sub CommandButton1_Click()

cvp = MsgBox("Silmek İstiyorsanız Evet' e Basın, Sadece Gizlemek İstiyorsanız Hayır'a Basın", vbYesNo + vbQuestion)
If cvp = vbYes Then
Application.DisplayAlerts = False
Dim i As Integer, deg As String
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Sheets(ListBox1.List(i)).Delete
deg = deg & ListBox1.List(i) & Chr(10)
End If
Next i


MsgBox "Şu sayfalar silindi" & Chr(10) & deg, vbInformation, "ÇÖZGEN"

UserForm_Initialize
Else

End If
End Sub

 

[xemdarx]

Teşekkürler @halit3 Bey.