çalışma sayfasını silme

[hakan_demirkan]

listbox kutusunda seçtiğim sayfayı buton yardımıyla silmek istiyorum, bana yardımcı olursanız sevinirim.

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub CommandButton1_Click()
On Error Resume Next
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Unload Me
UserForm1.Show
End Sub
Private Sub ListBox1_Click()
Sheets(ListBox1.Text).Select
End Sub
Private Sub UserForm_Initialize()
Dim i As Byte
For i = 1 To Sheets.Count
ListBox1.AddItem Sheets(i).Name
Next
End Sub

 

[hakan_demirkan]

teşekkürler üstad