Çalışma sayfasında oluşturulmuş textboxda satır oluşturmak

[udentr2002]

merhaba arkadaşlar,
Konu başlığı pek açıklaycı olmadı özetle yapmak istediğim şey şu
Çalışma sayfasında bir textbox1 adlı textboxum var. Bu textboxu 7 satıra bölmek ve bu textbox1 e userform üzerindeki

textbox5 içindeki bilgiyi textbox1'in 1. satırına
textbox6 içindeki bilgiyi textbox1'in 2. satırına
textbox7 içindeki bilgiyi textbox1'in 3. satırına
textbox8 içindeki bilgiyi textbox1'in 4. satırına
textbox9 içindeki bilgiyi textbox1'in 5. satırına
textbox10 içindeki bilgiyi textbox1'in 6. satırına
textbox11 içindeki bilgiyi textbox1'in 7. satırına

aktarmak istiyorum Böyle bir şey mümkünmü acaba?

 

[halit3]

bunu denermisiniz.

TextBox1.Text = TextBox5.Text & Chr(13) & TextBox6.Text & Chr(13) & TextBox7.Text & Chr(13) & _
TextBox8.Text & Chr(13) & TextBox9.Text & Chr(13) & TextBox10.Text & Chr(13) & TextBox11.Text

 

[udentr2002]

Halit hocam.

İlgilendiğin ve zaman ayırdığın için çok teşekkür ederim.
Yanlız burdaki Textbox1 Çalışma sayfası üzerinde formdenetimindeki araç kutusu ile oluşturulmuş textboxdur. Bunun için bir şey belirtmemiz lazım değilmi acaba?

 

[halit3]

(Çalışma sayfasında bir textbox1 adlı textboxum var. Bu textboxu 7 satıra bölmek ve bu textbox1 e userform üzerindeki)

Halit hocam.

İlgilendiğin ve zaman ayırdığın için çok teşekkür ederim.
Yanlız burdaki Textbox1 Çalışma sayfası üzerinde formdenetimindeki araç kutusu ile oluşturulmuş textboxdur. Bunun için bir şey belirtmemiz lazım değilmi acaba?

tam olarak ne yapmak istiyorsunuz anlıyamadım

1. sayfa üzerindeki textbox dan userform a mı bilgi göndermek istiyorsunuz.?
2. bütün textboxlar sayfa üzerindemi.?
3.bütün textboxlar userformdamı.?

 

[udentr2002]

Hocam özür,

Gerekli açıklamayı tap yapamadım.

Textobox1 çalışma sayfasında mesala sayfa1 de form denetimi ile çizilmiş bir textbox
diğer textboxlar userform üzerinde
bir button yardımı ile userform üzerindeki textboxlardaki bilgileri çalışma sayfasındaki textbox1'e göndermek istiyorum

 

[halit3]

bunu denermisiniz.

Private Sub CommandButton1_Click()
Sheets("Sayfa1").TextBox1.MultiLine = True
Sheets("Sayfa1").TextBox1.Text = ""
Sheets("Sayfa1").TextBox1.Text = TextBox5.Text & Chr(13) & TextBox6.Text & Chr(13) & TextBox7.Text & Chr(13) & _
TextBox8.Text & Chr(13) & TextBox9.Text & Chr(13) & TextBox10.Text & Chr(13) & TextBox11.Text
End Sub

 

[halit3]

ekli dosyayı inceleyiniz.

 

[udentr2002]

Hocam elinize bilginize sağlık
tam istediğim gibi olmuş. Hatta siz fazlasını bile göndermişsiniz.
Allah razı olsun

 

[halit3]

Hocam elinize bilginize sağlık
tam istediğim gibi olmuş. Hatta siz fazlasını bile göndermişsiniz.
Allah razı olsun

iyi çalışmalar