Soru TEXTBOX'A GİRİLEN DEĞER BOŞSA YA DA VARSA MAKRO ÇALIŞMASI

[gilgamisss]

Excel bilgim ne yazık ki yok. Çoğu kişi için basit olabilecek bir şeyi sormak istiyorum.
Textboxa girdiğim değer ile bir sayfa oluşuyor. Eğer girdiğim değeri "bir şey girmeden kaydedersem" ya da "aynı isimle bir sayfa" oluşturmaya çalışırsam programın uyarı mesajı verip yeniden isim girilmesi için yönlendirmesini istiyordum.
Bu konuda yardımcı olabilecek birisi var mıdır?



Private Sub CommandButton1_Click()
If (TextBox1.Text = "") Then MsgBox "Hatalı İsim Girdiniz.Yeni İsim Giriniz!", vbExclamation



Sheets("ŞABLON").Visible = True
Sheets("ŞABLON").Select
Sheets("ŞABLON").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Range("A7") = TextBox1.Value
ActiveSheet.Name = TextBox1.Value
Sheets("ŞABLON").Visible = False
End


End Sub

 

[gilgamisss]

Biraz araştırdım oldu şimdi
Private Sub CommandButton1_Click()

If (TextBox1.Text = "") Then
MsgBox "Hatalı İsim Girdiniz.Yeni İsim Giriniz!", vbExclamation
Exit Sub
End If


For Each sayfa In Worksheets
If sayfa.Name = Sheets(Sheets.Count).Range("a7") Then
MsgBox "Bu İsimle Sayfa Bulunmaktadır.Yeni İsim Giriniz!", vbExclamation
Exit Sub
End If
Next

If (TextBox1.Text <> "") Then
Sheets("ŞABLON").Visible = True
Sheets("ŞABLON").Select
Sheets("ŞABLON").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Range("A7") = TextBox1.Value
ActiveSheet.Name = TextBox1.Value
Sheets("ŞABLON").Visible = False
MsgBox ("Kayıt Başarıyla Gerçekleti.")
End If

End



End Sub

 

[gilgamisss]

Şimdi aslında şunu sormak istiyorum. Açtığım her sayfadaki sayfa isimlerini bir tabloya yazdırabiliyor muyum?
Yani makro her çalıştığında kayıt sonunda basit bir tabloda sayfa isimlerini gösteren bir tablo yapabilir miyim?