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: