Yeni sayfa eklemek.

[Serdar SELEN]

Merhaba,

Excel dosyasını açtığımızda yeni bir sayfayı o günün tarihi ile açmak mümkün mü ?
Ama aynı gün içerisinde dosya daha önce açıldıysa ve yeni sayfa eklendiyse aynı işlemi tekrar etmeyecek.

Teşekkürler.

 

[Merhum İdris SERDAR]

Merhaba,

Excel dosyasını açtığımızda yeni bir sayfayı o günün tarihi ile açmak mümkün mü ?
Ama aynı gün içerisinde dosya daha önce açıldıysa ve yeni sayfa eklendiyse aynı işlemi tekrar etmeyecek.

Teşekkürler.

.

ThisWorkbook'a:

Private Sub Workbook_Open()
 Dim gun As String
    gun = Format(Date, "dd-mm-yyyy")
     
    On Error GoTo Son
    
    Sheets(gun).Activate
    Exit Sub
      
Son:
     
    Sheets.Add , Worksheets(Worksheets.Count)
    ActiveSheet.Name = gun
    
End Sub

kodlarını yazın.

.

 

[Serdar SELEN]

Teşekkürler eline sağlık hocam

 

[baydeniro]

Çok teşekkürler. Güzel bir kod