exce kitap her kapandığında ogünün tarih ve saati adını alsın

[yusufymr]

herkese merhaba arkadaşlar malum excel le uğraşıyoruz benim sorunum çalışmamda devamlı yenileme yapıyorum kitap isimleri bazen karışıyor en son çalışmamı kapattığımda o çalışma kitabımın ismi otomatik olarak günün tarihive saati diye değişse ne iyi olur bu mümkünmü acaba yardım ececek arkadaşlara çok teşekkür ederim.

 

[İhsan Tank]

bunu farklı kaydet ile mi yapacaksınız yoksa hep aktif kitab'ın adı mı olacak

 

[yusufymr]

hocam farklı bilgisayarlarda aynı dosya üzerinde çalışıyorum usb ye de devamlı yedek alıyorum en son çalıştığım dosyanın belli olması açısından istiyorum bazen farklı kaydetmeyi unutuyorum yani çalışma sayfam her kapandığında dosya adı faklı kaydolsun istiyorum en son sürüm içinde o günün tarihi ve saati veya başka bi mantık da olabilir

 

[yusufymr]

Cevap yok galiba

 

[İhsan Tank]

Cevap yok galiba

merhaba

Sub farklı_kaydet()
ActiveWorkbook.SaveAs Filename:="[COLOR="Red"]D:\[/COLOR]" & Format(Now, "dd.mm.yyyy hhmm") & ".xlsm"
End Sub

bu şekilde dener misin. D:\ sürücüsünde farklı kayıt yapar
işinizi görmüyor ise ek olarak ne istediğinizi söyleyin ona göre hareket edelim

 

[yusufymr]

Hocam beceremedim workbook kod sayfasına ypıştırdım kaydettim denedim ama olmadı
makro ile dosya ismini günün tarihi ve saati dakikası olarak farklı kaydedecek bi kod yazarmısınız . Makro ile çıkış yapayım

 

[İhsan Tank]

Hocam beceremedim workbook kod sayfasına ypıştırdım kaydettim denedim ama olmadı
makro ile dosya ismini günün tarihi ve saati dakikası olarak farklı kaydedecek bi kod yazarmısınız . Makro ile çıkış yapayım

merhaba
kitabınızın thisworkbook bölümüne

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.SaveAs Filename:="D:\" & Format(Now, "dd.mm.yyyy hhmm") & ".xlsm"
End Sub

bu kod'y yazarak denermisiniz

 

[yusufymr]

Tamamdır hocam kod çalıştı allah razı olsun çok işime yarayacak çok teşekkür ederim

 

[İhsan Tank]

Tamamdır hocam kod çalıştı allah razı olsun çok işime yarayacak çok teşekkür ederim

Allah Hepimizden Razı Olsun
rica ederim
:yazici:

 

[1mak1mak]

merhaba
kitabınızın thisworkbook bölümüne

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.SaveAs Filename:="D:\" & Format(Now, "dd.mm.yyyy hhmm") & ".xlsm"
End Sub

bu kod'y yazarak denermisiniz

Acaba bu kodu diyelimki dosya ismi var o ismin sonuna Tarih ekleyecek şekilde yapabilirmiyiz.

 

[İhsan Tank]

Acaba bu kodu diyelimki dosya ismi var o ismin sonuna Tarih ekleyecek şekilde yapabilirmiyiz.

merhaba

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.SaveAs Filename:="D:\" & "[COLOR="Red"]1mak1mak [/COLOR]" & Format(Now, "dd.mm.yyyy hhmm") & ".xlsm"
End Sub

kırmızı yeri kendinize göre uyarlayınız

 

[yusufymr]

hocam bu kod çok güzel oldu fakat şöyle bi sorun var çalışmamızda değişiklik yapıp da save yaptığımız zaman değilde excel i veya çalışma kitabını x dan kapattığımız zaman çalışsa daha kullanışlı olur -zahmtet olucak ama bi düzenleme olurmu acaba -teşekkürler

 

[İhsan Tank]

hocam bu kod çok güzel oldu fakat şöyle bi sorun var çalışmamızda değişiklik yapıp da save yaptığımız zaman değilde excel i veya çalışma kitabını x dan kapattığımız zaman çalışsa daha kullanışlı olur -zahmtet olucak ama bi düzenleme olurmu acaba -teşekkürler

merhaba
kitabınızın thisworkbook bölümüne

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs Filename:="D:\" & "1mak1mak " & Format(Now, "dd.mm.yyyy hhmm") & ".xlsm"
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.SaveAs Filename:="D:\" & "1mak1mak " & Format(Now, "dd.mm.yyyy hhmm") & ".xlsm"
End Sub

bu kodları yapıştırınız.
lütfen bilgi veriniz

 

[yusufymr]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs Filename:="D:\" & "1mak1mak " & Format(Now, "dd.mm.yyyy hhmm") & ".xlsm"
End Sub

hocam bu kod çalışıyor save yapıyorum x den direk kapadığımda farklı kaydediyor elinize sağlık çooook teşekkürler sizden öğreneceğimiz çok şey var umarım bizden bıkmazsınız.

 

[İhsan Tank]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs Filename:="D:\" & "1mak1mak " & Format(Now, "dd.mm.yyyy hhmm") & ".xlsm"
End Sub

hocam bu kod çalışıyor save yapıyorum x den direk kapadığımda farklı kaydediyor elinize sağlık çooook teşekkürler sizden öğreneceğimiz çok şey var umarım bizden bıkmazsınız.

bıkmaktan kastınız siteyi bırakmaksa bunu yapamam çünkü bende buradan çok şey öğrendim ve borçluyum ayrılmam sadece adminler'in söylemesi ile olur diye düşünüyorum.
rica ederim
:yazici: