textbox içindeki satırları çalışma sayfasında ayrı hücrelere yazdırma.

[ndakooo]

Merhabalar vba konusunda daha yeniyim birçok sorunu bu site sayesinde çözüyorum öncelikle katılım gösteren herkeze çok teşekkürler.

Soruma gelince basit bir araç servis takip programı yapmaya çalışıyorum. bir adet textbox olmalı ki içerisine araç için serviste yapılan işlemler yazılacak. ben bunu oluşturdum. Her ENTER e basıldıkça textbox içinde bir alt satıra geçiliyor.

Fakat daha sonra bu textbox' ı çalışma sayfasına yazdırınca tek bir hücreye yazdırıyor.

Benim istediğim bu textbox içerisinde oluşan satırların herbirini çalışma sayfasında alt alta hücrelere yazdırmak.

Böyle bir şey yapılabilir mi?

Teşekkürler...

 

[mancubus]

hücrelere yazdırma işleminin UserForm üzerindeki bir düğme ile gerçekleştirileceğini varsayarak...

Private Sub CommandButton1_Click()

    Range("A1").Resize(UBound(Split(TextBox1.Text, vbCrLf)) + 1) = Application.Transpose(Split(TextBox1.Text, vbCrLf))

End Sub

 

[ndakooo]

Hocam çok çok teşekkürler mükemmel çalışıyor...

 

[mancubus]

rica ederim.

iyi geceler.

 

[okinava14]

hücrelere yazdırma işleminin UserForm üzerindeki bir düğme ile gerçekleştirileceğini varsayarak...

Private Sub CommandButton1_Click()

    Range("A1").Resize(UBound(Split(TextBox1.Text, vbCrLf)) + 1) = Application.Transpose(Split(TextBox1.Text, vbCrLf))

End Sub

Emeğine sağlık çok işime yaradı.