sayfa adını yazdırma

[aydın]

Merhabalar ! ek dosyada yeni sayfa açtırırken A1 hücresine yazacağım sayfa adını makro ile yeni açılan sayfa adına nasıl yazdırabilirim ,şimdiden teşekkürler..

[Haluk]

Sub Test()
Set NewSh = Worksheets.Add(After:=Sheets(Sheets.Count))
NewSh.Name = Sheets("Sayfa1").Range("A1")
Set NewSh = Nothing
End Sub

[xxrt]

Hocam A1 Hücresine Yazılanı Sayfa adı olarak atadıktan sonra A1 hücresini makro sonunda silmek hariçinde,Aynı Sayfadan var İkazı alabilirmiyiz?Kendi Çalışmamda da aynı sorunu yaşıyorum..Nakit Harekat Sıra numarasını değiştirmediğimdeki hata ile aynı.

[Haluk]

.....Aynı Sayfadan var İkazı alabilirmiyiz?...


Sub Test2()
If Not Sheets("Sayfa1").Range("A1") = Empty Then
For i = 1 To Worksheets.Count
If Sheets(i).Name = Sheets("Sayfa1").Range("A1") Then
MsgBox "Bu isimli bir sayfa mevcut..... !"
Exit Sub
End If
Next
Set NewSh = Worksheets.Add(After:=Sheets(Sheets.Count))
NewSh.Name = Sheets("Sayfa1").Range("A1")
End If
Set NewSh = Nothing
End Sub

[xxrt]

Teşekkür ederim Hocam Kodum tamamlandı... :hihoho: