Dosyayı açarken yeni sekmede bugünün tarihini verme

[comodo]

Bir dosyayı açtığımızda yeni bir sekme oluşturacak ve isminide bugunün tarihini verecek bir macro yazmaya uğraşıyorum. Bana yardımcı olabilirseniz sevinirim.

 

[Ayhan Ercan]

Merhaba

Sekmeden kastınız Çalışma Sayfası herhalde..

Ek dosyayı inceleyiniz..

Private Sub Workbook_Open()
    Dim syf As Worksheet
    For Each syf In Worksheets
        If syf.Name = Date Then Exit Sub
    Next
    Sheets.Add Before:=Sheets(1)
    Sheets(1).Name = Date
End Sub

 

[uzmanamele]

merhaba
alternatif olsum.
dosya aynı günde birden fazla açılırsa sayfa adında çakışma olur ve sorun çıkartır.

Private Sub Workbook_Open()
Sheets.Add After:=Sheets("Sayfa3")
Range("a1") = "=TODAY()"
ActiveSheet.Name = Range("a1").Value
End Sub

 

[comodo]

Yardımlarınız için çok teşekkürler. Gerçekten çok işime yaradı.