Listboxta tek tıklama ile seçilen satırın aktif olması sorunu

[cihantopuz]

Ekli uygulamada forumdan bulduğum kodlarla ve kod arşiv programlarındaki kodlarla listboxtaki verilere tek (Çift te olabilir) tıklama ile ilgili satırın seçilmesi işlemini denedim. Ancak başarılı olamadım ve sürekli hata ile karşılaştım. Aslında yapmak istediğim şey listboxta seçtiğim satırda düzeltme yapan başka bir form çağırmak. çift tıklama ile formu çağırmayı başarabiliyorum ancak o satırın seçili olması lazım ki istediğim düzeltmeyi diğer userformda yapabileyim.
Yani özetle çift ya da tek tıklama ile seçili satırı aktifleştirebilsem (A Sütununu) süper olacak
örnek ekliyorum. Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

 

[Orion1]

Dosyanız ekte.

Private Sub ListBox1_Click()
If ListBox1.ListCount = 0 Then Exit Sub
Cells(ListBox1.ListIndex + 2, "A").Select
End Sub

 

[cihantopuz]

Dosyanız ekte.

Private Sub ListBox1_Click()
If ListBox1.ListCount = 0 Then Exit Sub
Cells(ListBox1.ListIndex + 2, "A").Select
End Sub

çok teşekkür ederim.

 

[Orion1]

çok teşekkür ederim.

Rica ederim.