Sayfa Kopyalama ve otomatik isimlendirme

[tamer42]

Merhaba,
çalışma kitabında mevcut
Tarih Formatında (06.08.2016) sayfa adı olan bir sayfayı kopyalamak istiyorum.

oluşturulan yeni sayfanın adı önceki sayfanın bir gün sonrası (07.08.2016) olarak isimlendirecek. Sayfa adını otomatik şekilde yapacak kodu nasıl düzenleyebiliriz.

Sub Sample()
    Dim Test As Worksheet
       
       tt = "06.08.2016"
       
    
    Sheets(tt).Copy After:=Sheets(Sheets.Count)
    Set Test = ActiveSheet
    
    Test.Name = "07.08.2016"
     
End Sub

Teşekkürler,
iyi Çalışmalar.

 

[Ömer]

Merhaba,

Test.Name = CDate(tt) + 1

İstediğiniz bu mu?

.

 

[Orion1]

Buyurun.

Test.Name = CDate(tt) + 1

 

[tamer42]

Çok Teşekkürler...