Listbox multiselect ile seçilen sayfaları silme de hata

[vardar07]

Merhabalar. Listbox'ta multiselect ile seçilen sayfaları aşağıdaki kod ile silmeye çalışıyorum lakin "If ListBox1.Selected(a) = True Then" satırında hata veriyor. Sebebini bir türlü bulamadım.

Private Sub CommandButton5_Click()
For a = Sheets.Count To 1 Step -1
[COLOR="Red"]If ListBox1.Selected(a) = True Then[/COLOR]
If syf.Name <> "menü" And syf.Name <> "Sayfaa" And syf.Name <> "AKTARMA" And syf.Name <> "LİSTE" _
    And syf.Name <> "Sayfa1" Then
    Application.DisplayAlerts = False
Sheets(a).Delete
ListBox1.RemoveItem a
End If
End If
Next
End Sub

Private Sub UserForm_Initialize()
ListBox1.ListStyle = 1
ListBox1.MultiSelect = 1
Dim syf As Worksheet
For Each syf In Worksheets
    If syf.Name <> "menü" And syf.Name <> "Sayfaa" And syf.Name <> "AKTARMA" And syf.Name <> "LİSTE" _
    And syf.Name <> "Sayfa1" Then
      ListBox1.AddItem syf.Name
    End If
Next
End Sub

 

[Necdet]

Merhaba,

Deneyiniz.

Private Sub CommandButton1_Click()

    Dim i As Integer
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then Sheets(ListBox1.List(i)).Delete
    Next i
    
End Sub

 

[vardar07]

Merhaba, Deneyiniz.

Private Sub CommandButton1_Click()
    Dim i As Integer
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then Sheets(ListBox1.List(i)).Delete
    Next i    
End Sub

Necdet Bey çok teşekkürler. Lakin listenin en altından silersek sorun yok aradan silersek aynı hatayı veriyor.

 

[halit3]

kodları bu şekilde denermisiniz.

Private Sub CommandButton5_Click()
For a = Sheets.Count To 1 Step -1
If ListBox1.Selected(a - 1) = True Then
sayfa = ListBox1.List(a - 1, 0)
If sayfa = "menü" Or sayfa = "Sayfaa" Or sayfa = "AKTARMA" Or sayfa = "LİSTE" Or sayfa = "Sayfa1" Then
Else
Application.DisplayAlerts = False
MsgBox sayfa
Sheets(a).Delete
ListBox1.RemoveItem a - 1

End If
End If
Next
End Sub

Private Sub UserForm_Initialize()
ListBox1.ListStyle = 1
ListBox1.MultiSelect = 1
Dim syf As Worksheet
For Each syf In Worksheets
ListBox1.AddItem syf.Name
'If syf.Name <> "menü" And syf.Name <> "Sayfaa" And syf.Name <> "AKTARMA" And syf.Name <> "LİSTE" _
'And syf.Name <> "Sayfa1" Then

'End If
Next
End Sub

 

[vardar07]

Halit Bey çok teşekkürler tamamdır. Listboxta koruma altına alınan sayfalar görünmeden yapmanın yolu yok'mudur.

 

[halit3]

Halit Bey çok teşekkürler tamamdır. Listboxta koruma altına alınan sayfalar görünmeden yapmanın yolu yok'mudur.

kod:

Private Sub CommandButton5_Click()
Dim say
say = 0
Dim syf As Worksheet
For Each syf In Worksheets
[COLOR="Red"]If syf.Name = "menü" Or syf.Name = "Sayfaa" Or syf.Name = "AKTARMA" Or syf.Name = "LİSTE" Or syf.Name = "Sayfa1" Then[/COLOR]
Else
say = say + 1
End If
Next

If say <= 0 Then Exit Sub
For a = say To 1 Step -1
If ListBox1.Selected(a - 1) = True Then
sayfa = ListBox1.List(a - 1, 0)
[COLOR="red"]If sayfa = "menü" Or sayfa = "Sayfaa" Or sayfa = "AKTARMA" Or sayfa = "LİSTE" Or sayfa = "Sayfa1" Then[/COLOR]
Else
Application.DisplayAlerts = False
MsgBox sayfa
Sheets(sayfa).Delete
ListBox1.RemoveItem a - 1

End If
End If
Next
End Sub

Private Sub UserForm_Initialize()
ListBox1.ListStyle = 1
ListBox1.MultiSelect = 1

Dim syf As Worksheet
For Each syf In Worksheets
[COLOR="red"]If syf.Name = "menü" Or syf.Name = "Sayfaa" Or syf.Name = "AKTARMA" Or syf.Name = "LİSTE" Or syf.Name = "Sayfa1" Then[/COLOR]
Else
ListBox1.AddItem syf.Name
End If
Next
End Sub

 

[Necdet]

Necdet Bey çok teşekkürler. Lakin listenin en altından silersek sorun yok aradan silersek aynı hatayı veriyor.

Ben sadece silmeyi gösterdim. Ayrıntıya girmedim

 

[vardar07]

Ben sadece silmeyi gösterdim. Ayrıntıya girmedim

Necdet Bey yanlış anlamayın ayrıntı multiselect'ti. Yinede ayrıntısı olmayan bir çalışma için güzel bir örnek. Hepinize ayrı ayrı teşekkürlerimi sunarım.