Ara Bul kodunda sorun yadımcı olursanız!!

[kurd27]

Forumda ara bul hakkında yapılmış guzel bir çalışma vardı 3 sayfalı bir arama kodu yazılmış
ben bunu tek sayfalı 2 sutunlu sekle dönüştürdum fakat
kodu değiştirince sorun yapıyor
kodlarda takılma oluyor
bi incelerseniz ben duzeltemedim
ilgilenecek arkadaşlara şimdiden teşekkur ederim?


Private Sub ListBox1_Click()
If ListBox1.ListCount < 1 Then Exit Sub
Sheets(ListBox1.Column(0, ListBox1.ListIndex)).Select ((((BU SATIR HATA VERİYOR)))
Range(ListBox1.Column(1)).Select

 

[Orion1]

Forumda ara bul hakkında yapılmış guzel bir çalışma vardı 3 sayfalı bir arama kodu yazılmış
ben bunu tek sayfalı 2 sutunlu sekle dönüştürdum fakat
kodu değiştirince sorun yapıyor
kodlarda takılma oluyor
bi incelerseniz ben duzeltemedim
ilgilenecek arkadaşlara şimdiden teşekkur ederim?


Private Sub ListBox1_Click()
If ListBox1.ListCount < 1 Then Exit Sub
Sheets(ListBox1.Column(0, ListBox1.ListIndex)).Select ((((BU SATIR HATA VERİYOR)))
Range(ListBox1.Column(1)).Select

Dosyanız ektedir.