ListBox1'de seçilen satırın ilk hücresi TextBox1'e gelsin Kod'da sorun

[cocoa35]

Merhaba Üstatlar, Öncelikle Güneydoğu anadolu bölgesinde yaşanan elim deprem faciasında hayatını kaybedenlere allahtan rahmet yakınlarını kaybedenlere baş sağlığı diliyorum. Bir konuda yardımınıza ihtiyacım var. UserForm1 üstünde bulunan ListBox'dan işaretlemiş olduğum satırın ilk hücresinin TextBox'a gelmesini istiyorum. Aşağıdaki formül ile bunu rahatça yapıyorum.

Private Sub ListBox1_Click()
sat = ListBox1.ListIndex
Controls("TextBox2") = ListBox1.List(sat, 0)
End Sub

Ancak benim programımda "Tek klik" olayında formülde başka eklemelerde var, bunları ekleyince Sadece ilk seçtiğim satır TextBox'a gidiyor sonra yaptığım seçimlerde değişmiyor ilk seçimim textbox'da kalıyor. Bu önlemek için Aşağıdaki formülü nasıl düzenlemem gerekiyor. Yani hangi satırı seçiyorsam onun ilk hücresi TextBox'a gelsin

Private Sub ListBox1_Click()
sat = ListBox1.ListIndex
Controls("TextBox2") = ListBox1.List(sat, 0)
For i = 0 To 2
myArr(i) = ListBox1.List(ListBox1.ListIndex, i)
Next i
Do: UserForm28.Label84.Caption = "Lütfen " & Format(ListBox1) & " İçin bir müşteri türü belirleyiniz...": DoEvents: Loop
End Sub

 

[Muzaffer Ali]

Merhaba.

Private Sub ListBox1_Click()
    TextBox2.Text = ListBox1.Value
    For i = 0 To 2
        myArr(i) = ListBox1.List(ListBox1.ListIndex, i)
    Next i
    UserForm28.Label84.Caption = "Lütfen " & ListBox1.Value & " İçin bir müşteri türü belirleyiniz..."
End Sub