İstediğim yere otomatik kayıt

[kotantosi]

Selam,

Foruma yeni katılıyor ve hepinize iyi çalışmalar diliyorum.

Ben herhangi bir tuşa yazılacak bir makroda otomatik olarak hep aynı klasöre, ancak benim belirlediğim bir nümerik sırayla kayıt yapılmasını istiyorum.

ilgilenen arkadaşlara şimdiden teşekkür ederim.

 

[ileriexcel]

F12 Tuşuna bastığınızda c:\ 'de bulunan test klasörüne istediğiniz adda kaydeder.

Sub auto_open()
Application.OnKey "{F12}", " test"
End Sub
Sub auto_close()
Application.OnKey "{F12}", " "
End Sub
Sub test()
On Error Resume Next
yol = InputBox("kayıt numarası girin")
If yol = "" Then
Exit Sub
End If
ActiveWorkbook.SaveAs "C:\test\" & yol
End Sub

 

[kotantosi]

TeŞekkÜrler

Çok teşekkür ederim

deniyeceğim

iyi çalışmalar