EXCEL ÇALIŞMA KİTABINI HER GÜNÜN SONUNDA TARİH İLE KAYDETTİRME!!!

[isaaceyhan]

EXCEL ÇALIŞMA KİTABINI HER GÜNÜN SONUNDA TARİH İLE KAYDETTİRME!!!
Merhaba arkadaşlar, Excelde hazır tablom var. bunu sürekli kullanıyorum ve gün sonunda tek tuş ile bunu bilgisayarın hafızasına tarih ile kaydettirmek istiyorum. Yardımcı olursanız sevinirim.

 

[uzmanamele]

Merhaba
Deneyiniz.

Sub yedekle()
Application.DisplayAlerts = False
Dim yol As String
Dim ad As String
yol = ThisWorkbook.Path
zaman = Application.Text(Now(), "dd-mm-yy hh-mm")

    ActiveWorkbook.SaveAs Filename:= _
        yol & "\" & "Yedek_" & zaman _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.DisplayAlerts = True
End Sub

 

[isaaceyhan]

Ekli dosyayı görüntüle 238501

 

[isaaceyhan]

Merhaba
Deneyiniz.

Sub yedekle()
Application.DisplayAlerts = False
Dim yol As String
Dim ad As String
yol = ThisWorkbook.Path
zaman = Application.Text(Now(), "dd-mm-yy hh-mm")

    ActiveWorkbook.SaveAs Filename:= _
        yol & "\" & "Yedek_" & zaman _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.DisplayAlerts = True
End Sub

 

[uzmanamele]

Merhaba

kodun ilk satırında C: olmayacak, silin.

 

[isaaceyhan]

Merhaba

kodun ilk satırında C: olmayacak, silin.

Çalıştı.Çok Teşekkürederim. Peki bu kaydetme yerini nasıl değiştirebilim. D diskinde belirlediğim klasöre kaydetmesi için?

 

[uzmanamele]

Çalıştı.Çok Teşekkürederim. Peki bu kaydetme yerini nasıl değiştirebilim. D diskinde belirlediğim klasöre kaydetmesi için?

Merhaba

yol = ThisWorkbook.Path

Bu satır mevcut dosya yolunu gösteriyor, aynı klasöre yedeğini kaydeder.
Siz bu yolu değiştirebilirsiniz.
Dosya gezgini ile ilgili klasöre gidin, bulduğunuz adresi kopyalayıp kodun içine yapıştırın yeterli.

 

[isaaceyhan]

Merhaba

yol = ThisWorkbook.Path

Bu satır mevcut dosya yolunu gösteriyor, aynı klasöre yedeğini kaydeder.
Siz bu yolu değiştirebilirsiniz.
Dosya gezgini ile ilgili klasöre gidin, bulduğunuz adresi kopyalayıp kodun içine yapıştırın yeterli.

Teşekkürler. Ellerinize sağlık

 

[isaaceyhan]

Merhaba

yol = ThisWorkbook.Path

Bu satır mevcut dosya yolunu gösteriyor, aynı klasöre yedeğini kaydeder.
Siz bu yolu değiştirebilirsiniz.
Dosya gezgini ile ilgili klasöre gidin, bulduğunuz adresi kopyalayıp kodun içine yapıştırın yeterli.

Merhabalar

Sub yedekle()
Application.DisplayAlerts = False
Dim yol As String
Dim ad As String
yol = "D:" & "\" & "2022 föy"
zaman = Application.Text(Now(), "dd-mm-yyyy hh-mm")

ActiveWorkbook.SaveAs Filename:= _
yol & "\" & "Günlük İşletme Formu " & zaman _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.DisplayAlerts = True
End Sub


kodunuzu bu şekilde güncelledim. Çalışıyor fakat exceli kapatıp açtığımda sizin yazmış olduğunuz kodu yani

Sub yedekle()
Application.DisplayAlerts = False
Dim yol As String
Dim ad As String
yol = ThisWorkbook.Path
zaman = Application.Text(Now(), "dd-mm-yy hh-mm")

ActiveWorkbook.SaveAs Filename:= _
yol & "\" & "Yedek_" & zaman _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.DisplayAlerts = True
End Sub


tekrar bu koda dönüşüyor. Defalarca kaydettim Makroyu sildim tekrar yazdım ama malesef başarılı olamadım. Sebebi ne olabilir?