Farklı Kaydet

[staluer]

Merhaba,
Ek'teki dosyada açılışta userform açılacak.yükselteç ismi kısmına isim girildikten sonra tarih ve saat ekleyerek bu dosya ismiyle farklı kaydedecek ve kitapta çalışmaya devam edilecek.
Lütfen yardım....

 

[Ömer]

Merhaba,

Formun kod olayına kopyalayınız..

Private Sub CommandButton1_Click()
 
isim = CreateObject("Wscript.Shell").SpecialFolders.Item("Desktop") & _
Application.PathSeparator & TextBox1.Text & "_" & _
Format(Now, "dd/mm/yyyy hh/mm") & ".xls"
 
    ActiveWorkbook.SaveCopyAs isim
    Unload UserForm1
 
End Sub

.

 

[staluer]

Teşekkürler.
Fakat bu kod ile desktopa o haliyle bir kopyasını kaydediyor.Mevcut kitap ismi değişmiyor.
Bu koddan sonra yeni ismiyle kitapta çalışmak istiyorum....
Teşekkürler...

 

[Ömer]

ActiveWorkbook.SaveCopyAs isim

yukarıdaki kodu aşağıdakiyle değiştiriniz..

ActiveWorkbook.SaveAs isim

 

[staluer]

Çok teşekkür ediyorum..

 

[baydeniro]

Sayın Ömer çok güzel bir kod. Elinize sağlık. Bu koda Desktop yerine başka bir Kataloğu nasıl monte edebiliriz.

 

[Ömer]

isim değişkenini aşağıdaki gibi tanımlayabilirsiniz..

isim =  "C:\Yedek\" & Format(Now, "dd/mm/yyyy hh/mm") & ".xls"