CONCATENATE ( Birleştir..)

[SER973]

Selam
Benim Bir sorum alacak. Birleştir (CONCATENATE) fonksiyonu ile ilgili
Uzun Bir tablom var.. Bu Tabloda Çeşitli Numaralar ve bunlarım karşılarında isimler var.

Benim İstediğim Ayrı bir sayfada Tablodaki Numaralardan birini yazdığımda aynı numaranın karşısına gelen isimleri aralarına + koyarak birleştirsin... Yada EBİRLEÞTİR GİBİ BİR KOMUT VARMI......

Not: Aynı Numaradan Birden fazla olabilir. Yardımlarınız için TÞK.

 

[danersin]

Bir modüle aşağıdaki kodları yazıp deneyin.

[vb:1:3d0eef6749]
Sub Makro1()
For i = 4 To Cells(4, 7).End(xlDown).Row
birles = ""
For j = 4 To Cells(4, 1).End(xlDown).Row
If Cells(j, 1) = Cells(i, 7) Then
birles = birles & "+" & Cells(j, 2)
End If
Next j
Cells(i, 8) = Mid(birles, 2, Len(birles) - 1)
Next i
End Sub[/vb:1:3d0eef6749]

 

[SER973]

TEÞEKÜRLER.....

:hey:

 

[Turk]

Bu konuyla ilgili olarak benim de bir sorum var. Birlestir fonksiyonu sanirim 1200-1300 karakterden sonra verileri birlestiremiyor. Bunun bir alternatifi var mi? Ben 5000 karakterlik bir kac metni tek hucrede birlestirmek istiyorum, bana bu konuda yol gosterebilir misiniz?
Saygilarimla,

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.


=A1 & A2 & A3 & A4...................

 

[Levent Menteşoğlu]

Yukarıda önerdiğim şekilde de olmuyor,bu durumda makro yazmak gerekir.
[vb:1:29aeac6f4a]Sub birleştir()
For a = 1 To 20
c = Cells(a, 1) & c
Next a
[b1] = c
End Sub
[/vb:1:29aeac6f4a]
Bu kod A1 ile A20 hücrelerindeki verileri birleştirerek B1 hücresine yazar.

Not:Bir excel hücresinin alabileceği veri kapasitesi sınırlıdır. Bunun içinde aşağıdaki linki inceleyin.
http://www.excel.web.tr/viewtopic.php?t=1946&highlight=bir+h%FCcre+ka%E7

 

[Turk]

Sayin leventm,
Ben A1 ve A20 arasindaki hucreleri degil, (mesela) Sayfa1'den D1, Sayfa3'ten C2'yi ve bu sekilde degisik degisik 30-40 tane hucreyi seciyorum birlestirmek icin. Yani alt alta, ya da yan yana bir sayfada siralanmis metinler degil, farkli sayfalardan farkli hucreler ve sutunlara yazilmis metinleri birlestirmem gerekiyor; maalesef bu metinleri ayni sayfada bulusturma sansim yok. Bu konuda ne yapabilirim bunu ogrenebilir miyim?
Saygilarimla,

 

[danersin]

sorunuza makrolu çözümmü yoksa fonksiyonla çözümmü arıyorsunuz onu belirtseniz iyi olacak..
gerçi her halikarda birleşecek hücreler okadar dağınıksa tek tek yazmaktan başka
şansınız yok. yani
=a2 & b8 & ee5000 &......
makro ilede yapsanız aynı şey.

 

[Turk]

Sevgili Ersin,
Ben tek tek yazmaktan sikayetci degilim; 1200-1300 karakterden uzun, sozgelimi toplam maksimum 5000 karakter, bir kac hucreyi tek hucrede birlestirememekten muzdaribim. Sevgili leventm verdigi linkle bir hucrenin en cok kac karakteri gosterebilecegini belirtmis, ben 5000 karakteri bir hucreye yerlestirmenin ne derece ve nasil mumkun olabilecegini ogrenmeye calisiyorum.
Saygilarimla,

 

[Levent Menteşoğlu]

Aşağıdaki koda birleştirilmesini istediğiniz hücreleri tek tek yazın. Birleştirmeyi A1 hücresinde gösterecektir.
[vb:1:d810e3865b]Sub birleştir()
[a1] = sayfa1.[d1] & sayfa3.[c3] & sayfa.................
End Sub[/vb:1:d810e3865b]

 

[Turk]

Aşağıdaki koda birleştirilmesini istediğiniz hücreleri tek tek yazın. Birleştirmeyi A1 hücresinde gösterecektir.
[vb:1:f49a791c07]Sub birleştir()
[a1] = sayfa1.[d1] & sayfa3.[c3] & sayfa.................
End Sub[/vb:1:f49a791c07]

Sevgili leventm,
Bu kodu nereye yazacagim? Ben Module1'de denedim ama calistiramadim, nerede yanlis yapiyorsam duzeltmek istiyorum.
Saygilarimla,

 

[danersin]

Module1'e yazdı iseniz doğru çalışması gerekir. Sayfa isimlerinizi düzeltirken hata yapmış olabilirmisiniz. Yada isterseniz dosyanızı ekleyin.

 

[Turk]

Sevgili Levent ve Ersin,
Nazik ilginiz icin tesekkur ederim. Kodlar ve cozumler cok isime yaradi ama ne yazik ki bir hucrenin alabilecegi karakter sayisi sinirli oldugu icin ben ne yaparsam yapayim 5000 karakter uzunlugundaki bir metni bir hucrede birlestiremiyorum. Galiba konu Birlestir fonksiyonundan cok, bir hucrenin gosterebilecegi karakter sayisina dogru kaydi. Bu konuda yapabilecegimiz herhangi bir sey var mi? Ayrica burada baska bir ofis yazilimindan bahsetmek belki yanlis olabilir, gerekirse bu kismi cikartabilirim yazimdan fakat soylemeden gecemeyecegim: Openoffice'de bir hucreye bu istegimi karsilayabiliyorum. Oysa ben bunu Excel'de yapmak istiyorum.
Saygilarimla,

 

[danersin]

Sn. Turk aklıma bir tek eğer birleştime işini makrolar ile yapıyorsanız, oluşan 5000 karakterlik metnide sayfa içine yerleştireceğiniz bir metin kutusu içine yazmak geliyor. Görüntü olarak kenarlıklarını vs kaldırıp aynı görüntüyü yakalayabilirsiniz. (denediğim bişey değil, aklıma gelmeyen bir sorun çıkarmı bilemiyorum)