Değerleri Yapıştır

[NIGRA]

@Korhan Ayhan

Abi merhaba,

Forumda araştırma yaparken bir konuda senin yazdığın şu kodları buldum.

Sub AUTO_OPEN()
    Application.OnKey "{F12}", "DEĞER_YAPIŞTIR"
End Sub

Sub AUTO_CLOSE()
    Application.OnKey "{F12}"
End Sub

Sub DEĞER_YAPIŞTIR()
    On Error Resume Next
    Selection.PasteSpecial xlValues
End Sub

Bunun için verdiğin dosyada şu : Değer Yapıştır

Bu kodu kendi dosyama başarılı bir şekilde uyarlayabiliyorum.

Ancak 1 sorum olacak,

1- Bunu F12 değil de farklı 2 tuş kombinasyonuna nasıl uyarlarım? istediğim tuş kombinasyonu ctrl + fn yada ctrl + windows tuşu yada ctrl + space yada ctrl+alt

 

[Korhan Ayhan]

CTRL+SPACE tuşları için örnek kodlar;

Option Explicit

Sub AUTO_OPEN()
    Application.OnKey "^ ", "DEĞER_YAPIŞTIR"
End Sub

Sub AUTO_CLOSE()
    Application.OnKey "^ "
End Sub

Sub DEĞER_YAPIŞTIR()
    On Error Resume Next
    Selection.PasteSpecial xlValues
End Sub

 

[NIGRA]

Ekteki örnek dosyayı eklenti olarak kayıt edip tüm dosyalarınızda kullanabilirsiniz.

Kopyala komutu verdikten sonra istediğiniz alana F12 tuşuna basarak değer olarak yapıştırabilirsiniz.

CTRL+SPACE tuşları için örnek kodlar;

Option Explicit

Sub AUTO_OPEN()
    Application.OnKey "^ ", "DEĞER_YAPIŞTIR"
End Sub

Sub AUTO_CLOSE()
    Application.OnKey "^ "
End Sub

Sub DEĞER_YAPIŞTIR()
    On Error Resume Next
    Selection.PasteSpecial xlValues
End Sub

teşekkürler abi