Çift tıklama yerine Klavye kısayolu

[teknik]

Arkadaşlar bir çalışmada makrı kodu yazılırken fare çift tıklaması olarak ayarlanmış ben kodu Klavye kısa yolu olarak nasıl değiştirebilirim.
Kod şu:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Calendar1.Value = Date
For a = 1 To 170 Step 8
Calendar1.Height = a
Next
End Sub

Yukarıdaki kod aynen kalacak sadece Klavyeden CTRL+T ile çalışacak

 

[mehmett]

Private Sub Worksheet...

şeklinde başlayan ilk satırı

Sub klavye()

şeklinde değiştirin. (Makronuzun yeni adı klavye oldu. Başka bir kelime de kullanabilirsiniz.)

Yeni bir modül açıp makroyu modülün içine taşıyın.

Sonra, Araçlar, Makro, Makrolar menüsünden bu makroyu (klavye makrosunu) seçin. Başka makro yoksa zaten bu makro seçili gelecektir.

Seçenekler'i tıklayın ve Ctrl+'nın yanındaki boşluğa t yazın.

 

[teknik]

Malesef Makro kısmı boş geliyor dolayısıyla da CTRL+T yazamıyom
Bunu direk kodun içine eklemek mümkün değilmi

 

[Seyit Tiken]

Belki başka yöntemlerde olabilir. Adımları uygulayın : Kodunuzu bir düğmeye atayın. Makro Çalıştır penceresini açın. En alta Seçenekleri tıklayın. Çıkan pencerede küçük "t" yazıp TAMAM deyin. Büyük "T" harfine izin vermiyor. Sistem tarafından atanmış. Yalnız düğmeyi silebilirsiniz.

 

[teknik]

Mehmett kardeş şimdi çalıştı teşekkürler ilginize ben Privite kısmını silmeden yapmıştım çalışmadı o kısmı silip sadece Sub Klavye() yapınca çalıştı
teşekkürler.