Soru Oluşturulan dosyanın sonuna tarih, saat eklenmesi

[istanbulcahan]

Excel de sağolsun Muzaffer destek ekibinden hazırladığı,
Dosyanız her açtığınızda bir yedek kopya oluşturmak için aşağıdaki kodu "Bu Çalışma Kitabı" adlı kod sayfasına kopyalayın.

Private Sub Workbook_Open()
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Replace(Now, ":", ".") & ".xlsm"
End Sub

Ben + yedek kopya oluşturmaktan öte "oluşturulan her dosyanın sonuna tarih ve saati yazmasını istiyorum". Örnek olarak dosya adı: calisma1-28.05.2021_19:30 olması nasıl olabilir.

 

[Ömer]

Merhaba,

Deneyiniz.

ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Format(Now, "dd.mm.yyyy_hh.mm.ss") & ".xlsm"

 

[istanbulcahan]

Merhaba,

Deneyiniz.

ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Format(Now, "dd.mm.yyyy_hh.mm.ss") & ".xlsm"

Hata veriyor.

 

[Ömer]

#1. mesajda yazdığınız kod çalışıyor mu?

 

[ÖmerFaruk]

Böyle bir şey mi istiyorsunuz

Dosya = Left(ThisWorkbook.Name, InStr(1, ThisWorkbook.Name, ".x") - 1)
Tür = Replace(ThisWorkbook.Name, Dosya, "")
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Dosya & " - " & Format(Now, "dd.mm.yyyy - hh.mm.ss") & Tür

 

[Muzaffer Ali]

Hata veriyor.

Kodu bir Posedure içerisinde kullanmanız gerekiyor.

Sub Test()
    ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Format(Now, "dd.mm.yyyy_hh.mm.ss") & ".xlsm"
End Sub

 

[istanbulcahan]

Kodu bir Posedure içerisinde kullanmanız

Yani SQL mi yapmam gerekiyor.

 

[ÖmerFaruk]

WorkBook_Open içinde benim verdiğim kodu denemediniz mi?
#5 nolu mesaj

 

[Muzaffer Ali]

Yani SQL mi yapmam gerekiyor.

Aşağıdaki kod nerede bulunuyorsa silin.

Private Sub Workbook_Open()
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Replace(Now, ":", ".") & ".xlsm"
End Sub

Onun bulunduğu yere aşağıdaki kodu kopyalayın.

Private Sub Workbook_Open()
    ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Format(Now, "dd.mm.yyyy_hh.mm.ss") & ".xlsm"
End Sub

 

[istanbulcahan]

Aşağıdaki kod nerede bulunuyorsa silin.

Private Sub Workbook_Open()
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Replace(Now, ":", ".") & ".xlsm"
End Sub

Onun bulunduğu yere aşağıdaki kodu kopyalayın.

Private Sub Workbook_Open()
    ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Format(Now, "dd.mm.yyyy_hh.mm.ss") & ".xlsm"
End Sub

Üstadım. Yine olmadı.