Satırı listboxta düşey görüntülemek

[feryat]

Bir satırdaki verileri userformdaki listboxta düşey olarak nasıl görüntülerim?

a1 b1 c1
ali ahmet ayşe


listbox1
ali
ahmet
ayşe

 

[hamitcan]

Private Sub CommandButton1_Click()
    For i = 1 To 3
    ListBox1.AddItem Cells(1, i)
    Next
End Sub

 

[feryat]

Teşekkür ederim

Kod gayet güzel çalışıyor. Çok teşekkür ederim.
Sizi fazla yormayacaksa bu işlemi textbox1 e girdiğim değeri a sütunu içinde arayıp bularak o değerin bulunduğu satır için yaptırabilir miyim?

 

[hamitcan]

Bence ufak bir dosya ekleyin.

 

[feryat]

Hallettim teşekkürler

ListBox1.Clear
Dim bak As Range
For Each bak In Range("A1:A" & WorksheetFunction.CountA(Range("A1:A65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(TextBox1.Value, vbUpperCase) Then
bak.Select
For i = 6 To 15
ListBox1.AddItem Cells(bak + 1, i)
Next
Exit Sub
End If
Next bak