açılışta sayfa ekle

[mrpeace0365]

açılışta veri adlı bir çalışma sayfası eklemek istiyorum ve kapanışta o veri adlı sayfayı kaldırmak istiyorum...
ancak bazen veri adlı çalışma sayfasını bilgisayar kaldırmadan/silmeden çıktığı için bir sonraki açılışta bu veri adlı sayfa mevcut bulunduğundan program hata veriyor...

sorum: açılışta veri adlı çalışma sayfası var mı yok mu kontrol edilsin, varsa silinsin(mutlaka!) ve veri adlı bir sayfa oluşturulsun, yoksa veri adlı çalışma sayfası oluşturulsun...
kapanıştada veri sayfası silinsin...

forumda bununla ilgili konulara baktım ama hiçbirisinde istediğim cevabı bulamadım...

yardımcı olursanız sevinirim...
teşekkürler

 

[ozgretmen]

Dosya ekte...

 

[Ayhan Ercan]

sorum: açılışta veri adlı çalışma sayfası var mı yok mu kontrol edilsin, varsa silinsin(mutlaka!) ve veri adlı bir sayfa oluşturulsun, yoksa veri adlı çalışma sayfası oluşturulsun...

ozgretmen soruyu yanıtlamış ancak sayfa varmı yokmu kontrolu de istiyorsanız before close olayını şunu kullanın...

Dim syf As Worksheet
Application.DisplayAlerts = False
For Each syf In Worksheets
If syf.Name = "VERİ" Then syf.Delete
Next
Sheets.Add before:=Sheets(1)
Sheets(1).Name = "VERİ"