hata kontrolü ekleme

[by_IsTaNBuL]

sitenizden almış olduğum aşağıdaki koda hata kontrolü ekleyebilirmiyiz..
1) A1 hücresi boşşa yeni sayfa açmasın ve hata vermesin A1 hücresine sayfa adı giriniz diye uyarısı versin. ( kodu durdursun)
2) aynı isimde sayfa varsa " aynı isimde sayfa mevcut uyarısı versin . başka bir sayfa adı giriniz uyarısı versin (kodu durdursun)
yardımlarınız için şimdiden çok teşekkür ederim.

Sub sayfa_ekle_61()
Dim ts, trabzonspor
trabzonspor = MsgBox(Range("A1") & vbLf _
& "İsminde Sayfa Ekliyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
ts = Range("A1")
Sheets.Add
ActiveSheet.Move before:=Sheets(3)
ActiveSheet.Name = ts
MsgBox ts & vbLf _
& "Sayfası Eklendi", , "Bitiş"
End Sub

 

[monelogg]

Merhaba, şu kodu dener misiniz? İsteğinize göre bir şeyler yapmaya çalıştım.
Bende düzgün çalıştı, umarım sizin de işinizi de görür.

Sub sayfa_ekle_61()
Dim ts, trabzonspor
trabzonspor = MsgBox(Range("A1") & vbLf _
& "İsminde Sayfa Ekliyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
ts = Range("A1")
If trabzonspor = vbYes And Range("A1") = "" Then
MsgBox ("A1 hücresi boş bırakılamaz.")
Exit Sub
End If
For i = 1 To Sheets.Count
If Sheets(i).Name = Range("A1").Value Then
MsgBox ("Sayfa isimleri aynı olamaz.")
Exit Sub
End If
Next
Sheets.Add
ActiveSheet.Move before:=Sheets(3)
ActiveSheet.Name = ts
MsgBox ts & vbLf _
& "Sayfası Eklendi", , "Bitiş"
End Sub

 

[by_IsTaNBuL]

çok teşekkür ederim