klavye tüşüna komut atama

[teonet]

Merhabalar,
Örneğin klavyedeki F9 tuşuna bastığımda seçili hüçreye geçerli tarihi yazdırabilir miyiz? yada belirttiğim bir bilgiyi yazabilir mi? (mesela F9 a bastığım tarih yada atıyorum kalem yazsın istiyorum)

Yardımcı olan arkadaşlara şimdiden teşekkürler

 

[Ömer]

F9 tuşuna bastığımda seçili hüçreye geçerli tarihi yazdırabilir miyiz? yada belirttiğim bir bilgiyi yazabilir mi?

Merhaba,

Module;

Sub Yaz()
    ActiveCell = Date
End Sub

ThisWorbook'a;

Private Sub Workbook_Activate()
    Application.OnKey "{F9}", "Yaz"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "{F9}", ""
End Sub
Private Sub Workbook_Deactivate()
    Application.OnKey "{F9}", ""
End Sub
Private Sub Workbook_Open()
    Application.OnKey "{F9}", "Yaz"
End Sub

.

 

[teonet]

Sayın Ömer elleriniz dert görmesin..Süper oldu. Teşekkürler...

Tarih yerine özel isim yazmak istediğimde ne yapmam gerekiyor. aşağıda date yerine isim yazdım fakat olmadı (dene yanılma)

Sub Yaz()
ActiveCell = Date
End Sub

 

[Mahir64]

Merhaba,

Sub Yaz()
ActiveCell = "Mahir"
End Sub

Bu şekilde deneyin.

 

[teonet]

Teşekkürler Sayın Mahir,
Ben tırnakları koymamıştım.

Son bi soru tarihin yanına saat nasıl ekleye bilirim.. Şimdiden teşekkürler

 

[Korhan Ayhan]

Merhaba,

Date yerine Now yazın.

 

[teonet]

Sayın Korhan Bey
Çok teşekkürler... Sayeniz bir şey daha öğrendim... İyi böyle bir site kurmuşsunuz..