Çoklu veriyi Texboxtan Sayfadaki Hücrelere Sıralı Bir Şekilde Aktarma

[sahir73]

Textbox içerisine alt alta dizlimiş veriyi yapıştırarak, texboxtan sayfaya sıralı bir şekilde aktarma konusunda (örnekteki resimdeki gibi )desteğe ihtiyacım var. Şimdiden teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu kullanabilirsiniz.

Private Sub CommandButton1_Click()
    Dim Bak As Integer
    Dim Metin As String
    Dim Sira As Variant
    Range("A2:B" & Rows.Count).ClearContents
    Metin = Replace(TextBox1.Text, Chr(13), "")
    Sira = Split(Metin, Chr(10))
    For Bak = 0 To UBound(Sira)
        Cells(Bak + 2, "A").Value = Bak + 1
        Cells(Bak + 2, "B").Value = Sira(Bak)
    Next
End Sub

Not : TextBox ta yazı yazarken Enter'e basarak bir alt satıra inebilmeniz için TextBoxun EnterKeyBehavior özelliğini True yapmalısınız.

 

[sahir73]

Çok teşekkür ederim

 

[sahir73]

Formda zeki Gürsoy beyin paylaştığı dizi metodunuda ekeleyim belki birine lazım olur.

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