- Katılım
- 19 Mart 2008
- Mesajlar
- 2,154
- Excel Vers. ve Dili
-
Office 2007 Enterprise
Türkçe
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.
Kod:
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