TextBoxtaki alt alta yazılı verinin excel çalışma sayfasına satır satır getirilmesi

[u.L.a.s]

Merhabalar

Userform üzerinde bulunan Textbox içerisindeki verilerim
Alt alta yazılıdır.
Ben bu verilerin Butona basınca her satırdaki veriyi excel çalışma sayfasın B6 ile B15 hücrelerine yazsın istiyorum

Örnek verecek olursam

Userform içerisindeki textbox veri içeriğim aşağıdaki gibi olsun

aaaaaaaaaaa
bbbbbbbbbbbbbb
cccc
dddddd
....
.......
.........

Bu verileri userformdan commandbuttona basınca.
ilk satır "aaaaaaaaaaa" yı B6 içine atsın
ikinci satır "bbbbbbbbbbbbbb" yi B7 içine atsın
üçüncü satır "cccc" yi B8 içine atsın
Bu şekilde devam etsin....

Bilgi ve yardımlarınızı rica ederim

 

[Erdem Akdemir]

Denermisiniz?

Private Sub CommandButton1_Click()
a = Split(TextBox1.Value, Chr(10))
For i = 1 To UBound(a) + 1
Cells(i, "a") = a(i - 1)
Next i
End Sub

 

[u.L.a.s]

Şimdi bu kod B6 hücresinden sırayla mı atıyor olacak.

yani denediğim zaman A1 hücresinden itibarne sıralıyor bu kod düzeni. acaba neresini değiştirmek icap eder.

 

[Erdem Akdemir]

Bunu kullanın.

Private Sub CommandButton1_Click()

a = Split(TextBox1.Value, Chr(10))
x = 6
For i = 1 To UBound(a) + 1
Cells(x, "b") = a(i - 1)
x = x + 1
Next i
End Sub

 

[u.L.a.s]

Üstadım bende bu çözümün için çok teşekkür ederim.

emeğine bilgine sağlık