Sayfa (Sekme) sil kodu

[Excelmy]

Örneklerde araştırdım ancak istediğim kodu bulamadım.
Çalışma kitabında ( Userform ( ComboBox ) ) tan seçeceğim sayfayı ( sekme ) silmek için hangi kodları uygulamalıyım.
Yardımlarınız için şimdiden teşekkür ederim. Saygılar.

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub ComboBox1_Change()
On Error Resume Next
Sheets(ComboBox1.Text).Activate
End Sub
Private Sub CommandButton1_Click()
On Error GoTo hata
Application.DisplayAlerts = False
ActiveSheet.Delete
ComboBox1 = ""
Application.DisplayAlerts = True
Unload Me
UserForm1.Show
Exit Sub
hata:
MsgBox "Bir sayfa kalmış silemezsiniz.", vbInformation
End Sub
Private Sub UserForm_Initialize()
Dim i As Integer
    For i = 1 To Sheets.Count
        ComboBox1.AddItem Sheets(i).Name
    Next
End Sub

 

[Excelmy]

Sayfa ( Sekme ) Sil kodu

Özür dilerim dosyayı eklemeyi unutmuşum.

 

[usta07]

Dosyanız Ekte

 

[Excelmy]

Usta 07

Zaman ayırdınız emek verdiniz , yardımınız için teşekkür ederim