textbox lara göre sheet ekleme ve silme

[Kemal Demir]

Selam Arkadaslar

Textbox'lara girdiğim değerlerle
Sheet ekleyip Sheet silmek istiyorum yanlıs nerede anlamadım
Dosyam Ekte Yardımcı Olursanız Sevinirim

 

[crackerdent]

Arkadaşım şu şekilde dener misin? Ben de sonuç verdi

Private Sub CommandButton1_Click()
Sheets(Sheets.Count).Name = TextBox1.Value
Sheets.Add After:=Sheets(TextBox1.Value)
TextBox1.Value = ""
MsgBox ("Yeni Giriş Yapabilirsiniz.")
End Sub
Private Sub CommandButton2_Click()
MsgBox ("Kullanılacak data ve Silinenler Sheet'i Silinme İşlemi Devam Etsin mi")
TextBox2.Value = Sheets(TextBox2.Value).Name
Worksheets(TextBox2.Value).Delete

End Sub

selamlar

 

[Kemal Demir]

Teşekkurler Dostum