gkcn33
Altın Üye
- Katılım
- 1 Nisan 2011
- Mesajlar
- 4
- Excel Vers. ve Dili
- 2019
- Altın Üyelik Bitiş Tarihi
- 27-04-2026
Merhaba,
Ortak ağda bulunan bir excel tablosu belirli kişilerin erişimine açılmıştır. Bu excel dosyasında işlem yapıldıktan sonra kaydedildiğinde güncel tarih saat ve başında to-do-list yazmasını istiyorum. Makro bilgisayarımda belgeler klasöründe istediğim formatta kayıt oluşturabiliyorken belirtilen ortak ağdaki klasöre kayıt yaparken hem yedek hemde başlıktaki yazı karakterini bozarak kayıt yapıyor.
Belgeler klasörüne atılan kayıt adı : To-do-list-03-07-24 10-39
Ortak ağdaki kayıt yaptığı isim: to-6o-li58t-03-06-2024 10-39 (1 tane de yedek oluşuyor yedek oluşmasını istemiyorum.)
komut aşağıdaki gibidir;
Sub DateiUnterTagesdatumAbspeichern()
Tagesdatum = Application.Text(Now(), "-mm-dd-yy hh-mm")
Sicherung = "To-do-list" & Tagesdatum & ".XLSM"
ActiveWorkbook.SaveAs Sicherung
Dim dname As String, strTest As String
dname = "\\10.33.0.4\Bilgi_İslem\Erp_Ortak\SAP_PROJE_DOKUMANLARI\#SAP_Proje_Dokümanları\02_Yapılacaklar_Listesi\" & Application.Text(Now(), "mm-dd-yyyy hh-mm")
strTest = Dir(dname)
ActiveWorkbook.SaveCopyAs dname & ".xlsm" & Range("A1") & Range("a2")
ActiveWorkbook.Save
End Sub
yardımlarınızı rica eder iyi çalışmalar.
Ortak ağda bulunan bir excel tablosu belirli kişilerin erişimine açılmıştır. Bu excel dosyasında işlem yapıldıktan sonra kaydedildiğinde güncel tarih saat ve başında to-do-list yazmasını istiyorum. Makro bilgisayarımda belgeler klasöründe istediğim formatta kayıt oluşturabiliyorken belirtilen ortak ağdaki klasöre kayıt yaparken hem yedek hemde başlıktaki yazı karakterini bozarak kayıt yapıyor.
Belgeler klasörüne atılan kayıt adı : To-do-list-03-07-24 10-39
Ortak ağdaki kayıt yaptığı isim: to-6o-li58t-03-06-2024 10-39 (1 tane de yedek oluşuyor yedek oluşmasını istemiyorum.)
komut aşağıdaki gibidir;
Sub DateiUnterTagesdatumAbspeichern()
Tagesdatum = Application.Text(Now(), "-mm-dd-yy hh-mm")
Sicherung = "To-do-list" & Tagesdatum & ".XLSM"
ActiveWorkbook.SaveAs Sicherung
Dim dname As String, strTest As String
dname = "\\10.33.0.4\Bilgi_İslem\Erp_Ortak\SAP_PROJE_DOKUMANLARI\#SAP_Proje_Dokümanları\02_Yapılacaklar_Listesi\" & Application.Text(Now(), "mm-dd-yyyy hh-mm")
strTest = Dir(dname)
ActiveWorkbook.SaveCopyAs dname & ".xlsm" & Range("A1") & Range("a2")
ActiveWorkbook.Save
End Sub
yardımlarınızı rica eder iyi çalışmalar.