textbox multiline kayıt özelliği

[marimar]

merhaba arkadaşlar texbox multiline özelliği true olarak ayarlıyorum. verileri shit+enter tuşuna basarak giriyorum. kayıt tuşuna bastığım zaman textbox taki verilerin her satırını ayrı bir hücreye girmek istiyorum.
örneğin
1. satırdaki veri a1 hücresine
2. satırdaki veri a2 hücresine,

bu şekilde girmek istiyorum.,
teşekkürler

 

[halit3]

merhaba arkadaşlar texbox multiline özelliği true olarak ayarlıyorum. verileri shit+enter tuşuna basarak giriyorum. kayıt tuşuna bastığım zaman textbox taki verilerin her satırını ayrı bir hücreye girmek istiyorum.
örneğin
1. satırdaki veri a1 hücresine
2. satırdaki veri a2 hücresine,

bu şekilde girmek istiyorum.,
teşekkürler

bunu denermisiniz.?

Private Sub CommandButton1_Click()
sut = 0
sat = 1
For i = 1 To Len(TextBox1.Text)
If Mid(TextBox1.Text, i, 1) = Chr(13) Then
deg = Mid(TextBox1.Text, sut + 1, (i - sut))
Cells(sat, 1).Value = Replace(deg, Chr(13), "")
sut = i + 1
sat = sat + 1
End If
Next
End Sub

 

[Zeki Gürsoy]

Alternatif metot,

Private Sub CommandButton1_Click()
Dim arr, i As Integer

arr = Split(Me.TextBox1.Text, Chr(10))

For i = 0 To UBound(arr)
    Cells(i + 1, "a") = Replace(arr(i), Chr(10), "")
Next
End Sub