Tarih ve Saate göre Save As...

[trigger]

Merhaba Arkadaşlar,
Bir sorun var yardımcı olursanız sevinirim. Button`un ButtonClick olayına şöyle birşey yazmak istiyorum:
Buttona her tıklandığında şu anda bulunduğum WorkBooku farklı isimlerde kayedsin. Bu farklı isimler tıklama saati ve tarihi olsun. Örneğin ilk tıkladığımda “Dosya1” isimli dosyayı “01/09/06_19:45:12” ismi ile , 10 dakika sonra tıkladığımda “01/09/06_19:55:23” ismi ile kaydedsin.

 

[Recep İpek]

Aşağıdaki link umarım işinize yarar.

http://www.excel.web.tr/showthread.php?t=18605

MyFileEnd = MyFile & " " & Format(Now, "dd mm yyyy") & ".xls" satırını

MyFileEnd = MyFile & " " & Format(Now, "dd mm yyyy hh:ss") & ".xls" olarak değiştirin.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki koduda kullanabilirsiniz.

Sub Farklı_Kaydet()
    ActiveWorkbook.SaveAs Filename:="C:\Belgelerim\" & Format(Now, "dd.mm.yyyy - hh.mm.ss") & ".xls"
End Sub

 

[trigger]

Teşekkürler arkadaşlar her ikisi de işime yaradı.