Listboxtaki sayfaları silme

[muratozmenler]

Merhabalar;

listbox7 e sayfaların isimlerini

For a = 1 To Sheets.Count
If Sheets(a).Name = "DC" Or Sheets(a).Name = "VERİ" Then GoTo 10
ComboBox4.AddItem Sheets(a).Name
ListBox7.AddItem
ListBox7.Column(0, ListBox7.ListCount - 1) = Sheets(a).Name
10 Next

alıyorum.

listbox8 e

For i = 0 To ListBox7.ListCount - 1
If ListBox7.Selected(i) = True Then
ListBox8.AddItem ListBox7.List(i)
End If
Next

isimleri aktarıyorum.

Listbox 8 deki aktarılan sayfaların tümünü nasıl silebilirim?

 

[Korhan Ayhan]

Aşağıdaki kod işinize yarayabilir.

Private Sub ListBox1_Click()
    Onay = MsgBox("Sayfa silinsin mi?", vbCritical + vbYesNo)
    If Onay = vbNo Then Exit Sub
    Application.DisplayAlerts = False
    Sheets(ListBox1.Text).Delete
    Application.DisplayAlerts = True
    MsgBox "Sayfa silinmiştir."
End Sub

Private Sub UserForm_Initialize()
    For Each Sayfa In ThisWorkbook.Worksheets
        ListBox1.AddItem Sayfa.Name
    Next
End Sub

 

[muratozmenler]

çok teşekkür ederim fakat CommandButtona kodu ekleyince
Onay = MsgBox("Sayfa silinsin mi?", vbCritical + vbYesNo)
If Onay = vbNo Then Exit Sub
Application.DisplayAlerts = False
Sheets(ListBox8.Text).Delete
Application.DisplayAlerts = True
ListBox8.RemoveItem ListBox8.ListIndex
MsgBox "Sayfa silinmiştir."

hata veriyor bunu nasıl düzeltirim
ayrıca bazı sayfaların isimlerinin listede gözükmemesi için nasıl düzenleriz?

 

[Korhan Ayhan]

Bu tarz sorularda örnek dosya eklemeniz çözüm için fayda sağlayacaktır.

Afaki verdiğimiz cevaplar konuların gereksiz yere uzamasına sebep oluyor...

 

[muratozmenler]

Bu tarz sorularda örnek dosya eklemeniz çözüm için fayda sağlayacaktır.

Afaki verdiğimiz cevaplar konuların gereksiz yere uzamasına sebep oluyor...

1. mesajımı anlaşılır bir biçimde tekrar düzenledim.Teşekkür ederim.

 

[muratozmenler]

Merhabalar;

listbox7 e sayfaların isimlerini

For a = 1 To Sheets.Count
If Sheets(a).Name = "DC" Or Sheets(a).Name = "VERİ" Then GoTo 10
ComboBox4.AddItem Sheets(a).Name
ListBox7.AddItem
ListBox7.Column(0, ListBox7.ListCount - 1) = Sheets(a).Name
10 Next

alıyorum.

listbox8 e

For i = 0 To ListBox7.ListCount - 1
If ListBox7.Selected(i) = True Then
ListBox8.AddItem ListBox7.List(i)
End If
Next

isimleri aktarıyorum.

Listbox 8 deki aktarılan sayfaların tümünü nasıl silebilirim?

Yardım gerekiyor

 

[Korhan Ayhan]

Dosyanızı eklerseniz yardımcı olabilirim.