[mentes]

İyi günler arkadaşlar,
Aşağıdaki gibi farklı kaydet makrosu oluşturmaya çalıştım. Ancak her seferinde dosya isminden sonra bugünün tarihini yazsın istiyorum ( Dosya-Adı_yyyy-aa-gg).

Makroyu nasıl değiştirmem gerekir?

Yardımcı olan arkadaşlara şimdiden teşekkür ederim.

Saygılar.

Sub Macro1()

ChDir "C:\Users\resitm\Desktop\Track Rear Works\Dailiy Report"
ActiveWorkbook.SaveAs Filename:="C:\Users\resit\Desktop\Track Rear Works\Dailiy Report\Rear Works.xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

[hemso41]

Kod: Tümünü seç

Sub Macro1()

ChDir "C:\Users\resitm\Desktop\Track Rear Works\Dailiy Report"
ActiveWorkbook.SaveAs Filename:="C:\Users\resit\Desktop\Track Rear Works\Dailiy Report\Rear Works" & Format(Date, "yyyy-mm-dd") & ".xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub


[mentes]

Kod: Tümünü seç

Sub Macro1()

ChDir "C:\Users\resitm\Desktop\Track Rear Works\Dailiy Report"
ActiveWorkbook.SaveAs Filename:="C:\Users\resitm\Desktop\Track Rear Works\Dailiy Report\Rear Works" & Format(Date, "yyyy-mm-dd") & ".xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub


Teşekkür ederim hemso41,
Bu makro başka bilgisayarda çalışmıyor. Sanırım kullanıcı adı farklı olduğu için. Kullanıcı adı değişse bile çalışması için nasıl değiştirmemiz gerekir?

[hemso41]

her kullanıcıda aynı dosya masaüstünde aynı klasörde var ise bu kod çalışır diye düşünüyorum.
hatayı paylaşırsanız değerlendirme yapma şansım olabilir.

[mentes]

Merhaba,
Masa üzerinde aynı klasör bulunmaktadır.
Makroyu çalıştırınca aldığım ekran görüntüsü

0001.jpeg

,
buradakı debug tıkladığımda ise çıkan ekran görüntüsü

0002.jpeg

Saygılar.

[AhmetRasim]

Merhabalar;

Sn.hemso41 'in paylaşmış olduğu kodu şu şekilde kullanabilirsiniz;

Kod: Tümünü seç

Sub Macro1()
'ChDir "C:\users\" & Environ("UserName") & "\Desktop\Track Rear Works\Dailiy Report"
ActiveWorkbook.SaveAs Filename:="C:\Users\" & Environ("UserName") & "\Desktop\Track Rear Works\Dailiy Report\Rear Works" & Format(Date, "yyyy-mm-dd") & ".xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Farklı bilgisayarlarda, farklı kullanıcı ismi ile çalıştırdığınızda, Environ("UserName") kısmı, kod içine bilgisayardaki kullanıcı adını yazar.

Ayrıca,'ChDir "C:\users\" & Environ("UserName") & "\Desktop\Track Rear Works\Dailiy Report" satırını kullanmadan da kayıt yapabilirsiniz, çünkü ActiveWorkbook.SaveAs satırında yolu belirtiyorsunuz.

[mentes]

Ahmet Rasim bey teşekkür ederim.
Başka bir bilgisayarda kodları çalıştırdım ama aşağıdaki resimlerdeki gibi hata mesajları aldım.
Bu hatayı nasıl düzeltebiliriz?

Saygılar

Ekran resmi-01

00001.jpeg

Ekran resmi-02

00002.jpeg

[AhmetRasim]

Merhabalar;
MISSING: ile başlayan özelliğin onay işaretini kaldırıp, Microsoft Office 16.0 Object Library ya da Microsoft Office 15.0 Object Library yani başında missing olmadan ekleyip çalıştırınız.
Şuan farklı bilgisayar ve kullanıcıda denedim ve çalışıyor.

[mentes]

Teşekkür ederim.
Elinize emeğinize sağlık...

[AhmetRasim]

Merhabalar;
Rica ederim, Sizin elinize emeğinize sağlık.
Saygılarımla, iyi çalışmalar.