Listbox daki satırdaki veriyi enterle çalıştırmak

[rcekinir]

Arkadaşlar
Listboxta listelenen verileri Click DblClick gibi yöntemlerle çalıştırabiliyoruz.Benim istediğim buradaki veriyi aşağı yukarı yön tuşları ile seçip Enter tuşuna basıp işleme tabi tutabilmek.
Bununla ilgili daha önce foruma sorulan Sayfa Adlarını Bir Listboxta Listeleyen ve burada tıklayınca ilgili sayfaya giden bir dosya vardı.Ben bu dosyada küçük değişiklikler yaparak soruma ek olarak gönderiyorum.(Benim dosyamda bu dosyaya çok benziyor)
Dediğim gibi Listbox üzerindeki veriyi istersem dblclick istersem Enter tuşu ile çalıştırmak istiyorum.
Enter tuşuyla çalıştırmayı başaramadım.Yardımcı olusanız sevinirim.
rcekinir

 

[danersin]

listbox içinde olduğunuza göre zaten klavyedeki tuşlar ile birşey yapamazsınız dolayısı ile enter yerine herhangi bir tuşa basıldığında çalışacak şekilde kyepress altına istediğiniz kodu yazın.

Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
msgbox "merhaba"
End Sub

 

[rcekinir]

Sayın Danersin Bende aşağıdaki kodla dediğinizbu işi yapabiliyordum

Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Sheets(ListBox1.List(ListBox1.ListIndex)).Select
End
End Sub

Ama Bana Sadece Enterle çalışacak bir yol gerekliydi.

Olmuyorsa Yapacak Bir şey yok.Çünkü Bende Epey uğraştım.Dediğiniz gibi olmuyor demekki.
İlginize teşekkür ederim.
rcekinir

 

[Levent Menteşoğlu]

Az önce bir deneme yaptım aşağıdaki kod enterle çalışmayı sağlıyor.

Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then
Sheets(ListBox1.List(ListBox1.ListIndex)).Select
End If
End Sub

 

[rcekinir]

Sayın Leventm
Teşekkür ederim.Tam istediğim çözüm elinize sağlık.Ã?zelime haber verdiğiniz içinde ayrıca teşekkür ederim.
Tavlada beni duman ettiniz ama bu yanıtla kendinizi affettirdiniz.
Kolay Gelsin.
rcekinir