Userform Sorusu

[Qmer1981]

Ekli dosyada çok kısa bir sorum var lütfen yardım edin

 

[Orion1]

Dosyanız ekte.

Private Sub ListBox1_Click()
If ListBox1.ListCount < 1 Then Exit Sub
TextBox1.Text = ListBox1.Column(0)
TextBox2.Text = ListBox1.Column(1)
TextBox3.Text = ListBox1.Column(2)
End Sub

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 3
ListBox1.RowSource = "A6:C" & WorksheetFunction.CountA(Range("B6:B65536")) + 5

End Sub