Listboxta tıklanan veriye göre hücreye gitme

[uyecik]

Arkadaşlar öncelikle burada ardından birçok forumda aradım ama bulduklarımdan bir sonuca ulaşamadım. Yardım için yazman gerektiğini düşündüm.
Sorunum şu
texbox'daki verileri findnext yöntemi ile buldum.
bunları bulunan değişkenine aktardım. Ardından adresleri ile birlikte listbox'a aktardım
UserForm2.ListBox1.AddItem Bulunan & " " & Bulunan.Address
buraya kadar herşey güzel listbox'da da hem adresler hem de hücredeki veriler gözüküyor.
ama listbox'a verilerden birine çift tıklayınca bulunan.address'e gitmesini istiyorum. Bunu bir türlü yapamadım.

 

[Muzaffer Ali]

Merhaba.

Öncelikle ListBoxun kolon sayısını 2 yapın.
Properties penceresinde ColumnCount özeliğine 2 yazın

Listboxa eleman eklerken aşağıdaki gibi ekleyin

UserForm2.ListBox1.AddItem Bulunan
UserForm2.ListBox1.List(ListBox1.ListCount - 1, 1) = Bulunan.Address

Çift tıklayınca adrese gitmek için aşağıdaki kodları ekleyin.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Range(ListBox1.List(ListBox1.ListIndex, 1)).Select
End Sub

Eğer yapamazsanız dosyanızı ekleyin düzeltelim.

 

[uyecik]

Range(ListBox1.List(ListBox1.ListIndex, 1)).Select

Çok teşekkürler 2. kolan mantığını düşünememişim demek ki. Süpersiniz sağolun var olun.

Yalnız bu şekilde yapınca problem yok ama listbox'ın bulunduğu userformu x düğmesinden kapatınca "This action will reset your project, proceed anyway?" uyarısı çıkıyor. Unload me ekledim ama yine aynı hatayı veriyor.

 

[Muzaffer Ali]

Dosyanızı görmeden bir şey söylemek zor.