Method 'Range' of Object '_Global' failed hatası

[desinger07]

ekteki dosyada kodlar düzgün çalışıyor ama listbox ta combobox1 e girilen veri ile süzüyor süzülen veri listboxta tıkladığım zaman textboxlara veri atıyor

ama asıl sorun combobox2 ye girilen verileride listbox ta süzüyor listboxta çift tıkladığım zaman Method 'Range' of Object '_Global' failed hatası veriyor

bu sorun neden kaynaklanabilir acaba yardımcı olursanız sevinirim
teşekkürler

 

[hamitcan]

İlgili kodu aşağıdaki ile değiştirin.

Private Sub analist_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Yeni_mi = False
[color=red]Bulunan_Satir_No = analist.ListIndex + 2[/color]
    TextBox1.Text = Range("B" & Bulunan_Satir_No).Value
    TextBox2.Text = Range("C" & Bulunan_Satir_No).Value
    TextBox3.Text = Range("D" & Bulunan_Satir_No).Value
    TextBox4.Text = Range("E" & Bulunan_Satir_No).Value
    TextBox5.Text = Range("N" & Bulunan_Satir_No).Value
    TextBox6.Text = Range("F" & Bulunan_Satir_No).Value
    TextBox7.Text = Range("G" & Bulunan_Satir_No).Value
    TextBox8.Text = Range("H" & Bulunan_Satir_No).Value
    TextBox9.Text = Range("I" & Bulunan_Satir_No).Value
    TextBox10.Text = Range("J" & Bulunan_Satir_No).Value
    TextBox11.Text = Range("K" & Bulunan_Satir_No).Value
    TextBox12.Text = Range("L" & Bulunan_Satir_No).Value
    TextBox13.Text = Range("M" & Bulunan_Satir_No).Value
End Sub

 

[desinger07]

teşekkürler

 

[desinger07]

çok özür ama burada bir sorun oldu

kodu değiştirdiğim zaman her zaman 2 satırdaki değerleri yazıyor
bunun nedeni ne olabilir
teşekkürler

 

[hamitcan]

Kodu bir de böyle deneyin.

Private Sub analist_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Yeni_mi = False
Bulunan_Satir_No = Sayfa1.Cells.Find(analist.List(analist.ListIndex), lookat:=xlWhole).Row
    TextBox1.Text = Range("B" & Bulunan_Satir_No).Value
    TextBox2.Text = Range("C" & Bulunan_Satir_No).Value
    TextBox3.Text = Range("D" & Bulunan_Satir_No).Value
    TextBox4.Text = Range("E" & Bulunan_Satir_No).Value
    TextBox5.Text = Range("N" & Bulunan_Satir_No).Value
    TextBox6.Text = Range("F" & Bulunan_Satir_No).Value
    TextBox7.Text = Range("G" & Bulunan_Satir_No).Value
    TextBox8.Text = Range("H" & Bulunan_Satir_No).Value
    TextBox9.Text = Range("I" & Bulunan_Satir_No).Value
    TextBox10.Text = Range("J" & Bulunan_Satir_No).Value
    TextBox11.Text = Range("K" & Bulunan_Satir_No).Value
    TextBox12.Text = Range("L" & Bulunan_Satir_No).Value
    TextBox13.Text = Range("M" & Bulunan_Satir_No).Value
End Sub

 

[desinger07]

çok teşekkürler kodlar çalıştı elinize sağlık