Kısa Yol

[HaRaMi]

İyi Akşamlar,
Formda bulduğum ve Sayın Leventm tarafından hazırlarlanan kısa yola ilişkin aşağıda ki kod ile makro çalıştırıldığında gerek hücre gerekse userform da sadece bir kez kullanılabilmekte. Aynı hücre veya userform üzerindeki aynı listbox veyahut combobox da da iekinci kez kullanılamamakta. Bu kodun daimi olması için değiştirilmesi veya eklenmesi gereken nedir. Teşekkürler.

Sub calistir()
ActiveCell = "¶"
End Sub

Sub auto_open()
Application.OnKey "+{u}", "calistir"
End Sub

Sub auto_close()
Application.OnKey "+{u}"
End Sub

 

[Levent Menteşoğlu]

Verdiğiniz kodlar aktif hücreye "¶" işaretini shift+u kısayolu yazmak içindir. Ve auto_open kodu çalıştıktan sonra bu işaret kısayola atanır. Yukarıdaki kodları bir dosyanın modulüne kopyalayın ve dosyayı kapatıp tekrar açın. Sayfa üzerinde shfit+u kısayolunu tıklayarak neticeyi görebilirsiniz.

 

[HaRaMi]

Sayın leventm, kodları verdiğiniz yerde de aynı açklamalar var, ve gayet de iyi çalışıyor. Çalıştırdım.
Ancak,
Yukarıda da sözününe ettiğim gibi userform'da bulunun aynı listbox veya combobox da bir kez kullanılabilmekte. İkinci ve sonrası işlem yapmamakta. Ben bunun çözümü varsa nasıl olacağını öğrenmek istemiştim. İlgin için teşekkürler.
AYRICA;
Bu kısa yolu userformda bulunan bir butona atayarak, listbox içeriğine yazdırabilirmiyiz Tabiki gerektiğinde birden fazla olarak.

 

[HaRaMi]

Sanırım istediğim gibi çözüm mümkün değil.

 

[HaRaMi]

imkansız mı

 

[Levent Menteşoğlu]

Bunun yerine aşağıdaki gibi daha basit bir kod kullanabilirsiniz, örneğin userform üzerindeki bir textboxa aşağıdaki kodu yazarsanız, F1 tuşuna bastığınızda "¶" işaretini textboxa yazacaktır.

[vb:1:42f8282aa5]Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 112 Then TextBox1 = TextBox1 & "¶"
End Sub
[/vb:1:42f8282aa5]