Buton yardımı ile sayfa kopyalama

[nongeyikm]

Merhaba,

Ekli sayfadaki çalışmada, sayfaları buton yardımı ile kopyalamak istiyorum. X3 hücresinde yer alan tarihi sayfa isminden alınıyor. Ben sadece ayın ilk günü sayfa adını manuel olarak yazacağım. Butona tanımlayacağınız makro, otomatik olarak son günden kopya alarak sonraki günün tarihi ile sayfa oluşturmalı.

Desteğiniz için şimdiden teşekkürler

 

[Korhan Ayhan]

Eki deneyiniz.

Son güne ait sayfayı tıkladıktan sonra CTRL+SHIFT+Y tuşlarına bastığınızda sayfa ekleme olacaktır.

 

[nongeyikm]

Korhan Bey merhaba,

1.04.2023 olarak dosya adını oluşturuyor. Ben 01.04.2023 (gg.aa.yyyy) olmasını istiyorum. mümkün müdür?

 

[RBozkurt]

Modül1 kodunu değiştirip deneyiniz.

Option Explicit

Sub Add_Sheets()
    ' Klavye Kısayolu: Ctrl+Shift+Y
    Dim NewSheetName As String
    Dim NextDate As Date
    ActiveSheet.Copy Before:=Sheets(1)
    NextDate = DateValue(Sheets(2).Name) + 1
    NewSheetName = Format(NextDate, "dd.mm.yyyy")
    ActiveSheet.Name = NewSheetName
End Sub

 

[nongeyikm]

Çok teşekkür ederim. Emeğinize sağlık

 

[RBozkurt]

Çok teşekkür ederim. Emeğinize sağlık

Teşekkürler @Korhan Ayhan üstadımıza