Makro'da tarihlere otomatik güncel tarih atama

[akcayonline]

Merhaba,

aşağıdaki şekilde (aşağıda örnek amaçlı sadece bir kısmı var), adım makro ile kaydettiğim makroda tarihlerin, mevcuttaki ile aynı formatta olacak şekilde fakat güncel tarih alarak çalışmasını istiyorum.

Örneğin makroyu yarın çalıştırdığım zaman veriyi otomatik olarak ztesln_06122023.XLSX dosyasından çekmesini istiyorum.

Bu şekilde ilgili alanları nasıl değiştirebilirim ?

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

Sub YAPIŞTIR()
'
' YAPIŞTIR Makro
'

'
    Sheets("ztesln").Select
    Range("A2").Select
    Windows("ztesln_05122023.XLSX").Activate
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("Günlük_Kağıt_Planlama_05122023.xlsm").Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False

 

[DoğanD]

Aşağıdaki gibi dener misiniz?

Tarih = Replace(Format(Date, "DD.mm.yyyy"), ".", "")
    Sheets("ztesln").Select
    Range("A2").Select
    Windows("ztesln_" & tarih & ".XLSX").Activate
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("Günlük_Kağıt_Planlama_05122023.xlsm").Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False

 

[akcayonline]

Aşağıdaki gibi dener misiniz?

Tarih = Replace(Format(Date, "DD.mm.yyyy"), ".", "")
    Sheets("ztesln").Select
    Range("A2").Select
    Windows("ztesln_" & tarih & ".XLSX").Activate
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("Günlük_Kağıt_Planlama_05122023.xlsm").Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False

Merhaba, ilettiğiniz şekilde yaptım, makroyu çalıştırdığımda ;

Run-time error '9' :
Subscript out of range

uyarısı verdi, hatayı açtığımda ise aşağıdaki satırı gösterdi ;

Windows("Günlük_Kağıt_Planlama_" & tarih & ".XLSX").Activate

 

[akcayonline]

merhaba, hatayı buldum.

Günlük_Kağıt_Planlama.. dosyasının uzantısı xlsx değil xlsm olarak değiştirdim, çalıştı.

Teşekkür ederim Doğan Bey, kolay gelsin.