Soru macroda tarih ile aynı klasöre farklı kaydetmek

[mustafa038]

merhabalar;
yapacak olduğum macroda çalışmış olduğum dosyayı tarih/saat olarak göstermiş olduğum dizine farklı olarak laydetmek için nasıl bir kod yazmalıyım.
mevcut kodum şu şekilde,
ActiveWorkbook.SaveAs Filename:= _ "C:\Users\ofis3.FLEKSSIT\Desktop\sevk listesi güncel.xlsx", FileFormat:= _ xlOpenXMLWorkbook, CreateBackup:=False Application.Dialogs(xlDialogSendMail).Show

 

[Ömer BARAN]

Merhaba.

İlgili kısmı aşağıdaki gibi değiştirerek deneyiniz.

"C:\Users\ofis3.FLEKSSIT\Desktop\sevk listesi güncel_" & Format(Date,"ddmmyyyy") & ".xlsx"

 

[mustafa038]

merhabalar;
öncelikle çok teşekkür ederim.
kod çalıştı.
kayıt formatına saat ve dakika ekleyebilir miyiz.
12:43_13.03.2018_sevk listesi güncel
gibi.
teşekkürler tekrardan

 

[Mr.MKA]

"C:\Users\ofis3.FLEKSSIT\Desktop\" & Format(Date,"hh:mm_dd.mm.yyyy") &"_sevk listesi güncel" & ".xlsx"

Deneyebilir misin?

 

[mustafa038]

"C:\Users\ofis3.FLEKSSIT\Desktop\" & Format(Date,"hh:mm_dd.mm.yyyy") &"_sevk listesi güncel" & ".xlsx"

Deneyebilir misin?

 

[Mr.MKA]

Format(Now(), "hh.mm_dd.mm.yyyy") & "_sevk listesi güncel" & ".xlsm"

bu şekilde güncellersen olacaktır

 

[mustafa038]

Format(Now(), "hh.mm_dd.mm.yyyy") & "_sevk listesi güncel" & ".xlsm"

bu şekilde güncellersen olacaktır

Bu şekilde bi hata veriyor.
ilginiz için teşekkürler

 

[Mr.MKA]

ActiveWorkbook.SaveAs Filename:="C:\Users\ofis3.FLEKSSIT\Desktop\" & Format(Now(), "hh.mm_dd.mm.yyyy") & "_sevk listesi güncel" & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Küçük birşeyi gözden kaçırmışım

Busefer kesin oldu

 

[ÖmerBey]

Merhaba,
Dosya formatında bir değişiklik yapılmayacaksa ActiveWorkbook.SaveAs ... kodu yerine ActiveWorkbook.SaveCopyAs ... kullanırsanız daha pratik olacaktır.
İyi çalışmalar...

 

[mustafa038]

ActiveWorkbook.SaveAs Filename:="C:\Users\ofis3.FLEKSSIT\Desktop\" & Format(Now(), "hh.mm_dd.mm.yyyy") & "_sevk listesi güncel" & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Küçük birşeyi gözden kaçırmışım

Busefer kesin oldu

olmuş emeğine sağlık;
birde onaysız maile el atsan