F1,F2,F3,F4 kısayolları

[dr_1356]

F1,F2,F3,F4....... yani F lerden birine basınca a.xls dosyası kopyalanıp DEPO ADLI KLASÖRE KOPYALANIP xls dosyasının isminide günü yazabilirmi yani bugun ayın 14 u 14.xls olabilirmi şimdiden teşekürler

 

[hamitcan]

"F5" tuşuna bastığınızda çalışır.

Sub Dosya_Kopyala()
    Dim ds
    Set ds = CreateObject("Scripting.FileSystemObject")
    ds.CopyFile "C:\a.xls", "C:\DEPO\" & Format(Date, "dd.mm.yyyy") & ".xls"
End Sub
Sub auto_open()
    Application.OnKey "{F5}", "Dosya_Kopyala"
End Sub

Sub auto_close()
    Application.OnKey "{F5}", ""
End Sub

 

[dr_1356]

hamitcan çok teşekür ederim ama olmadı siz yapabilirmisiniz . makroyu attım hepsini kapattım f5 e bastım olmadı

 

[dr_1356]

daha dogrusu makroyu nereye atacagım ben axls dosyasına attım bana tam açıklarmısınız çok teşekür ediyorum

 

[hamitcan]

Çalıştığınız dosyanın "a.xls" olduğunu varsayalım. Verdiğim kodları Vba içinde bir modüle ekleyin. Sonra "auto_open" makrosunu çalıştırın.Bundan sonra artık "F5" tuşu aktif hale gelmiş olacaktır. Dosya kapandığında ise "F5" tuşuna yüklediğimiz görev sona erecektir.
Not:"a.xls" dosyasının ve "DEPO" klasörünün yolunu doğru belirtmeniz gerekiyor.

 

[dr_1356]

meraba hamitcan bana çok şey ögrettiniz çok çok çok teşekür edrim bana zaman ayırıp cevap yazdıgınız için görüşmek üzere hoşçakal..............