Listboxta tıklanan veriye göre hücrelere yazma

[eagle28]

Merhaba,
lisbox a tıkladığımda veri hücreye yazıyor faka yapmak istediğim, tıklandığında "Ahmet Mehmet Sarı" yazısı diyelim Ahmet'i A hücresine "Mehmet" i hemen yan hücreye "Sarı" yıda onun yan hücresine
yani tıkladığımda metni boşluklara göre hücrelere yazması istiyorum mümkün müdür.
Teşekkürler

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub ListBox1_Click()

adlar = Split(ListBox1, " ")

Range("A1:D1").ClearContents

For a = 0 To UBound(adlar)
Cells(1, a + 1) = adlar(a)
Next

End Sub

 

[eagle28]

Levent Hocam teşekkürler ilginiz için
Yapmak istediğimi yanlış ifade ettim kusura bakmayın. tıkladığım hücre ve sağ tarafına doğru yazması olabilirmi

Örnek: B20 hüçresi seçili iken listbox tıkladığımda Ahmet=B20 ye mehmeti C20 ve Sarı D20 gibi

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

adlar = Split(ListBox1, " ")

For a = 0 To UBound(adlar)
If a = 0 Then
Cells(ActiveCell.Row, ActiveCell.Column) = adlar(a)
Else
Cells(ActiveCell.Row, ActiveCell.Column + c).Next = adlar(a)
c = c + 1
End If
Next

 

[eagle28]

Teşekkürler Tam istediğim gibi