Sayfa İsmi

[sibesa]

Oluşturduğum kitaplık içinde her yeni sayfada sayfa1 sayfa2 diye çıkan isimleri teker teker değiştiriyorum ve sayfa ismi olarak tarih veriyorum 04.12.2011 gibi her açılan sayfa otomatik tarih verebilme imkanım var mı daha önce bir makro gördüğümü hatırlıyorum buna benzer ama şimdi bulamadım ???

 

[Emir Hüseyin Çoban]

. . .

Merhaba.

Otomatik tarih dediğiniz kısmı biraz daha açar mısınız?
İçerisinde olduğumuz günümü sayfa ismi yapmak istiyorsunuz?

. . .

 

[mustafa155]

sayfaadı günün tarihimi olacak yoksa sizinbelirlediğiniz tarihten itibaren bir gün artarak mı gidecek?

Linki inceleyin işinize yarayacak mı?

http://www.excel.web.tr/f48/yeni-sayfa-eklemek-t87765.html

 

[sibesa]

tarihi sayfa ismi yapmak istiyorum ve bunu otomatik yapsın örneğin ben sayfa1 e 05.12.2011 ismini verdim yeni sayfa sekmesine tıkladığımda yeni sayfaya 06.12.2011 ismini versin

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyayı incelermisiniz.

Kodlar ThisWorkbook bölümündedir.


Uygulanan kod;

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Dim Sayfa_Adı As Variant, S1 As Worksheet
10  Sayfa_Adı = InputBox("Lütfen yeni sayfa adı giriniz...", "Sayfa Adı", Date)
    If Sayfa_Adı = "" Or Sayfa_Adı = False Then
        Application.DisplayAlerts = False
        ActiveSheet.Delete
        Application.DisplayAlerts = True
        MsgBox "İşleminiz iptal edilmiştir.", vbInformation
        Exit Sub
    End If
    Sayfa_Adı = Format(Sayfa_Adı, "dd.mm.yyyy")
    On Error Resume Next
    Set S1 = Sheets(Sayfa_Adı)
    On Error GoTo 0
    If S1 Is Nothing Then
        Sh.Name = Sayfa_Adı
    Else
        MsgBox "Bu isimde sayfanız var !" & Chr(10) & "Lütfen farklı isim giriniz !", vbCritical
        Set S1 = Nothing
        GoTo 10
    End If
End Sub

 

[assenucler]

Teşekkürler sayın Korhan Ayhan...

 

[sibesa]

teşekürler oldukça fazla işime yaradı