[Yardım]  Farklı kaydet makrosu

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Farklı kaydet makrosu

İleti#1)  mentes » 11 Ekm 2018 12:28

İ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
Kullanıcı avatarı
mentes
Siteye Alışmış
 
Adı Soyadı:Reşit Mentesoglu
Kayıt: 25 May 2009 15:32
Konum: Çekmeköy / İstanbul
Meslek: İnşaat Müh
Yaş: 43
İleti: 139
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Riyadh / Arabistan

Cevap: Farklı kaydet makrosu

İleti#2)  hemso41 » 11 Ekm 2018 15:00

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
Kullanıcı avatarı
hemso41
Siteye Alışmış
 
Kayıt: 22 Eyl 2015 10:04
Meslek: BİLGİ İŞLEM
Yaş: 38
İleti: 364
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir/karşıyaka

Cevap: Cevap: Farklı kaydet makrosu

İleti#3)  mentes » 11 Ekm 2018 15:26

hemso41 yazdı:
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?
Kullanıcı avatarı
mentes
Siteye Alışmış
 
Adı Soyadı:Reşit Mentesoglu
Kayıt: 25 May 2009 15:32
Konum: Çekmeköy / İstanbul
Meslek: İnşaat Müh
Yaş: 43
İleti: 139
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Riyadh / Arabistan

Cevap: Farklı kaydet makrosu

İleti#4)  hemso41 » 11 Ekm 2018 16:58

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.
Kullanıcı avatarı
hemso41
Siteye Alışmış
 
Kayıt: 22 Eyl 2015 10:04
Meslek: BİLGİ İŞLEM
Yaş: 38
İleti: 364
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir/karşıyaka

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Farklı kaydet makrosu

İleti#5)  mentes » 11 Ekm 2018 18:22

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.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
mentes
Siteye Alışmış
 
Adı Soyadı:Reşit Mentesoglu
Kayıt: 25 May 2009 15:32
Konum: Çekmeköy / İstanbul
Meslek: İnşaat Müh
Yaş: 43
İleti: 139
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Riyadh / Arabistan

Cevap: Farklı kaydet makrosu

İleti#6)  AhmetRasim » 11 Ekm 2018 21:33

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.
Kullanıcı avatarı
AhmetRasim
Site Dostu
 
Adı Soyadı:Ahmet Rasim
Kayıt: 20 Kas 2013 23:40
Konum: İstanbul
Meslek: Serbest
Yaş: 32
İleti: 1085
 
Cinsiyet: Bay

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Farklı kaydet makrosu

İleti#7)  mentes » 13 Ekm 2018 09:07

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
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
mentes
Siteye Alışmış
 
Adı Soyadı:Reşit Mentesoglu
Kayıt: 25 May 2009 15:32
Konum: Çekmeköy / İstanbul
Meslek: İnşaat Müh
Yaş: 43
İleti: 139
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Riyadh / Arabistan

Cevap: Farklı kaydet makrosu

İleti#8)  AhmetRasim » 13 Ekm 2018 23:07

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.
Kullanıcı avatarı
AhmetRasim
Site Dostu
 
Adı Soyadı:Ahmet Rasim
Kayıt: 20 Kas 2013 23:40
Konum: İstanbul
Meslek: Serbest
Yaş: 32
İleti: 1085
 
Cinsiyet: Bay

Cevap: Farklı kaydet makrosu

İleti#9)  mentes » 14 Ekm 2018 16:45

Teşekkür ederim.
Elinize emeğinize sağlık...
Kullanıcı avatarı
mentes
Siteye Alışmış
 
Adı Soyadı:Reşit Mentesoglu
Kayıt: 25 May 2009 15:32
Konum: Çekmeköy / İstanbul
Meslek: İnşaat Müh
Yaş: 43
İleti: 139
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Riyadh / Arabistan

Cevap: Farklı kaydet makrosu

İleti#10)  AhmetRasim » 15 Ekm 2018 10:09

Merhabalar;
Rica ederim, Sizin elinize emeğinize sağlık.
Saygılarımla, iyi çalışmalar.
Kullanıcı avatarı
AhmetRasim
Site Dostu
 
Adı Soyadı:Ahmet Rasim
Kayıt: 20 Kas 2013 23:40
Konum: İstanbul
Meslek: Serbest
Yaş: 32
İleti: 1085
 
Cinsiyet: Bay


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Google Adsense [Bot] ve 4 misafir

cron
Bumerang - Yazarkafe