Hücre birleştirme yardım

[Ergün GÖKER]

Herkesin yeni yılını kutlarım. Eklediğim dosyada bir yardıma ihtiyacım var. Değerli hocalarımın yardımını bekliyorum.
Yapmak istediğim bir Userformda texbox lara verileri girmekteyim bunları aktar butonu ile dosyama aktarıp bir hücrede birleştirmekteyim. Ancak üç gurupta olan metni hücrede hepsini satırbaşı yaparak birleştirmek istiyorum. ve userformda bulunan bilgileri forma getir butonu ile birleştirilmiş metinleri userforma geri almak istiyorum. şimdiden yardımlarınız için teşekkür ederim

http://s6.dosya.tc/server5/gawoih/KAZAMATIK_2016_02.01.2016.xls.html

 

[Ömer BARAN]

Merhaba.
Aşağıdaki gibi olabilir.

[E60][E60] = TextBox1 & Chr(10) & TextBox2 & Chr(10) & TextBox3

 

[Ergün GÖKER]

evet hocam alt satıra atıyor acaba gruplar arası 1 satır boş geçmek istersek kodda nasıl bir işlem yapmam gerekiyor.

 

[PLİNT]

Merhaba
Göndermek için Ömer beyin kodlarına birer Chr(10) daha ekleyip deneyin.

Private Sub CommandButton4_Click()
[E60] = TextBox1 & Chr(10) & Chr(10) & TextBox2 & Chr(10) & Chr(10) & TextBox3
For a = 1 To 3
Controls("TextBox" & a) = ""
Next
End Sub

Geri getirmek içinde "Geri Getir" butonuna aşağıdaki gibi deneyin.

Private Sub CommandButton5_Click()
For a = 0 To 4
s = s + 1
Controls("TextBox" & s) = Split([E60], Chr(10))(a)
a = a + 1
Next
End Sub

 

[Ergün GÖKER]

Merhaba
Göndermek için Ömer beyin kodlarına birer Chr(10) daha ekleyip deneyin.

Private Sub CommandButton4_Click()
[E60] = TextBox1 & Chr(10) & Chr(10) & TextBox2 & Chr(10) & Chr(10) & TextBox3
For a = 1 To 3
Controls("TextBox" & a) = ""
Next
End Sub

Geri getirmek içinde "Geri Getir" butonuna aşağıdaki gibi deneyin.

Private Sub CommandButton5_Click()
For a = 0 To 4
s = s + 1
Controls("TextBox" & s) = Split([E60], Chr(10))(a)
a = a + 1
Next
End Sub

evet hocam istediğim gibi oldu çok teşekkür ederim sağolun

 

[Ömer BARAN]

Tekrar merhaba.
Alternatif olarak;

[E60] = TextBox1 & Chr(10) & Chr(10) & TextBox2 & Chr(10) & Chr(10) & TextBox3

 

[theglacier]

Selamlar,
benzer yapıda textbox'lara listview'den sürükleyerek veri aktarmaktayım.
textbox'ta veriler alt alta gelmekte. burada sorun yok. istediğim gibi geliyor.
yalnız, textbox'taki veriyi excelde belirlenen hücreye aktarırken, alt alta yazmakta.
bunu yan yana nasıl yazdırabilirim acaba?
textbox'ta
111
aaa
222
bbb
ccc
excel hücresinde 111 aaa 222 bbb ccc , bu şekilde yazdırmak istiyorum.

aşağıdaki gibi deniyorum ama maalesef olmadı,

Range("BA9").Select

[ba9] = TextBox52 & vbCrLf & .SubItems(1) & vbCrLf & .SubItems(2) & vbCrLf &

yardımlarınız için şimdiden teşekkürler.

 

[Orion1]

Böyle deneyin.

[ba9] = .SubItems(1) 
[bb9] = .SubItems(2)

 

[ÖmerBey]

Merhaba, şu şekilde deneyiniz:

[ba9] = Replace(TextBox52, Chr(10), " ")

 

[theglacier]

Sayın mucit77, Orion1
yardımlarınız için çok teşekkür ederim.
replace ile istediğim gibi oldu.
Allah razı olsun.