• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Hücre birleştirme yardım

Katılım
25 Ağustos 2012
Mesajlar
562
Excel Vers. ve Dili
Office 2003
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
 
Merhaba.
Aşağıdaki gibi olabilir.
Kod:
[E60][E60] = TextBox1 & Chr(10) & TextBox2 & Chr(10) & TextBox3
 
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.
 
Merhaba
Göndermek için Ömer beyin kodlarına birer Chr(10) daha ekleyip deneyin.
Kod:
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.
Kod:
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
 
Merhaba
Göndermek için Ömer beyin kodlarına birer Chr(10) daha ekleyip deneyin.
Kod:
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.
Kod:
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
 
Tekrar merhaba.
Alternatif olarak;
Kod:
[E60] = TextBox1 & Chr(10) & Chr(10) & TextBox2 & Chr(10) & Chr(10) & TextBox3
 
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.
 
Böyle deneyin.:cool:
Kod:
[ba9] = .SubItems(1) 
[bb9] = .SubItems(2)
 
Merhaba, şu şekilde deneyiniz:
Kod:
[ba9] = Replace(TextBox52, Chr(10), " ")
 
Sayın mucit77, Orion1
yardımlarınız için çok teşekkür ederim.
replace ile istediğim gibi oldu.
Allah razı olsun.
 
Geri
Üst