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.
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.
Formda zeki Gürsoy beyin paylaştığı dizi metodunuda ekeleyim belki birine lazım olur.
Kod:
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.