ListBox'ta Seçilen TextBox'a Yalnış Geliyor

[ZorBey_]

Merhaba İyi Çalışmalar
TextBoxlara Gelen Verilerde
Yanlışlık Var Bu Konuda Yardımınızı Rica Ediyorum

Süzme Yapıldıktan Sonra Süzülenler
ListBox'a Geliyor
Listbox Üzerinde Süzülenlerden Herhangi Biri Tıklandığında
ListBox Üzerinde Tıklanan Değilde Başkası
Text Boxlara Geliyor
Örneğin = Süzmede
Lütfen A001 Yazın 4 Adet Veri ListBoxa Geliyor
Birinci Olanı Tıklayalım
Text Boxlara Bu Tıklananın Verileri Gelmiyor
Bir Önceki Veri Geliyor.
Çok Teşekkür Ederim İyi Çalışmalar.

 

[asi_kral]

Merhaba
Listbox1_Click kodunu bununla değiştirip dener misiniz_?

Private Sub ListBox1_Click()

    If ListBox1.RowSource <> "" Then
        TextBox1.Text = ListBox1.Column(0)
        TextBox2.Text = ListBox1.Column(1)
        TextBox3.Text = ListBox1.Column(2)
    Else
        sat = WorksheetFunction.Match(ListBox1, Range("A:A"), 0)
        TextBox1.Text = Cells(sat, "A")
        TextBox2.Text = Cells(sat, "B")
        TextBox3.Text = Cells(sat, "C")
    End If
End Sub

 

[ZorBey_]

Süzülen TextBox'a Yalnış Geliyor

Merhaba
Sayın asi kral
İstediğim Gibi
ListBox'ta Seçilen
TextBox'a Geliyor
Çok Teşekkür Ederim
Allah Razı Olsun
İyi Çalışmalar.

 

[asi_kral]

Merhaba
Sayın asi kral
İstediğim Gibi
ListBox'ta Seçilen
TextBox'a Geliyor
Çok Teşekkür Ederim
Allah Razı Olsun
İyi Çalışmalar.

Kolay Gelsin.