Birleştir kodu makrosu

[emraha]

Arkadaşlar hücrelerdeki metinleri birleştirerek bir hücreye yazmak istiyorum şöyleki
aslında tekel bayiinden bir malibu hattı bağlatmak hiçte fena omazsı
=E1&", "&E2&", "&E3&", "&E4&", "&E5&", "...................................&E65535&", "&E65536&", "

bunu makroyla nasıl yapabilirm?
yada excel formülleriyled yapılabiliyorsa o çözümde kabulümdür...

 

[hsayar]

bh =Range("A1") & "," &Range("A2")

gibide siz bütün hücrelerimi alacaksınız, ve hangi hücreye yazacaksınız

 

[Levent Menteşoğlu]

65536 hücredeki veriyi tek hücrede birleştiremezsiniz, hücrenin alacağı veri kapasitesi buna yetmez.

Not: Bir hücre en fazla 32767 karakter veri alırken sadece 1024 karakter veriyi gösterir.

 

[emraha]

aslında leventm bana 1000 yada 500 hüceryi birleştirilsede olur
F1 =E1&", "&E2&", "&E3&", "&E4&", "&E5&", "...................................&E500&", "&501&", "

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub birlestir()
For a = 1 To [e65536].End(3).Row
deg = deg & isaret & Cells(a, "e")
isaret = ","
Next
[f1] = deg
End Sub

 

[emraha]

500 hücrenin birleşmesi sonucu hiç bir zaman 32767 karekteri geçmeyecektir.

 

[emraha]

çok teşekkür ederim yardımlarınızdan dolayı çok işime yaradı bu kod... sağolun