çalışma kitabını yarınki tarih ile kaydetme

[AHMETMANAV]

merhaba
çalışma kitabının adı "<bugünkü tarih> Konya" terifedir(tırnak işaretleri yok). vba kod ile yarınki tarih ile çalışma kitabının o an bulunduğu dizine yarın ki tarih ile kaydetmek için kod nasıl yazılabilir?

 

[dEdE]

Merhaba,
Dosya adının ne olması gerektiğini ( " Konya" terifedir " ifadesini) tam olarak anlamadım. Aşağıdaki kod satırı, dosyanızı dosya adı yarınki tarih olarak kayıt eder.

    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & DateAdd("d", 1, Date) & ".xlsm"

 

[AHMETMANAV]

cevapladığınız için teşekkür ederim. makro adını soran bir hata alıyorum.

 

[dEdE]

Merhaba,
Aşağıdaki şekilde dener misiniz?

Sub Kaydet()
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & DateAdd("d", 1, Date) & ".xlsm"
End Sub

 

[AHMETMANAV]

dosya adı sorma işlemi kesildi. teşekkür ederim
bu kod şuan çalışıyor fakat kayıt işlemi yapıldıktan sonra otomatik olarak excel yeni tarihli dosyanın açık haline geçiyor. bu önlebilir miyiz ve bu nasıl oluyor?
çalışma kitabının adı 24.03.2024 KONYA TARİFE. ben yazdığınız kod için konya tarife ilave edebildim fakat arada 1 boşluk çözemedim.
Sub Kaydet()
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & DateAdd("d", 1, Date) & "KONYA TARİFE"&".xlsm"
End Sub

 

[AHMETMANAV]

BOŞLUK İŞLEMİNİ DE ÇÖZDÜM .
SADECE KAYIT YAPILINCA MEVCUT ÇALIŞILAN DOSYADA KALMASI NASIL SAĞLARIM?

Sub Kaydet()
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & DateAdd("d", 1, Date) & " KONYA TARİFE"&".xlsm"
End Sub

 

[dEdE]

Dener misiniz?

Sub Kaydet()
    AnaDosya = ActiveWorkbook.FullName
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & DateAdd("d", 1, Date) & " KONYA TARİFE" & ".xlsm"
    Workbooks.Open AnaDosya
End Sub

 

[AHMETMANAV]

TEŞEKKÜR EDERİM FAYDALI OLDU. ANA DOSYA AÇIK KALIYOR. ANA DOSYA AÇIKKEN SADECE KAYIT İŞLEMİNİ HALLEDEMEDİM.

Sub Kaydet()
AnaDosya = ActiveWorkbook.FullName
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & DateAdd("d", 1, Date) & " KONYA TARİFE" & ".xlsm"
Workbooks.Open AnaDosya
End Sub

 

[dEdE]

... ANA DOSYA AÇIKKEN SADECE KAYIT İŞLEMİNİ HALLEDEMEDİM.

Merhaba,
Kayıt işlemini ne kast ettiğinizi anlamadım. Ne istediğinizi daha açık anlatırsanız mutlaka birileri yardım edecektir.
Sorunuzu/sorununuzu örnek dosya üzerinde ifade edip, nasıl bir sonuç beklediğinizi de gösterirseniz daha iyi olur.
Örnek dosyanızı dosya paylaşım sitelerinden birine yükleyip linkini burada paylaşabilirsiniz.

 

[AHMETMANAV]

merhaba
masaüstünde A1 isimli excel dosyası oluşturun ve açın. Açtıktan sonra herhangi bir çalışma yaptığımızı varsayalım ve bu dosyayı farklı kaydedelim, yeni dosya ismi de B1 olsun. biz bu farklı kaydet işlemini yapınca pc sitemi otomatik olarak A1 dosyasını kapatıyor ve B1 dosyasını açık hale getiriyor ve B1 dosyasına devam ediyor.

Anlatmak istediğim budur.


benim ihtiyacım olan açık olan bugün tarihli dosya açıkken kod çalıştığında yarinki tarih ile kayıt yapsın; bu kayıt işlemini yarın tarihli dosyayı açmadan yapması.
teşekkür ederim.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Kaydet()
    Dim File_Path As String
    File_Path = ThisWorkbook.Path
    ActiveWorkbook.SaveCopyAs File_Path & "\" & DateAdd("d", 1, Date) & " KONYA TARİFE" & ".xlsm"
End Sub