makro ile birleştirme

[benelexcel]

selamlar

B SÜTUNUNDA TELEFON NUMARALARI YAZILI (AYNI SÜTUNDA BOÞ HÜCRELER DE VAR) VE LİSTE DE GİTTİKÇE UZUYOR. İSTEDİÐİM ÞEY İSE MESELA A1 HÜRCESİ İÇERİSİNE BÜTÜN SÜTUNDAKİ NUMARALARI BİRLEÞTİREREK VE ARALARINDA BİRER KARAKTERLİK BOÞLUK OLACAK ÞEKİLDE YAZDIRMAK İSTİYORUM.
YÜZ SATIR FİLAN OLSAYDI EXCELİN BİRLEÞTİR FONKSİYONU İLE YAPARDIM AMA LİSTE ÇOK UZUN.
BEN BÜTÜN SÜTUNU MAKRO İLE YAPMAK İSTİYORUM.
YARDIMCI OLACAK ARKADAÞLARA ÞİMDİDEN TEÞEKKÜR EDERİM.

 

[Levent Menteşoğlu]

Aşağıdaki kod sanırım işinizi görür. Ekide inceleyiniz. Burada hatırlatmam gereken bir şey var, bir hücrenin alabileceği veri kapasitesi sınırlıdır. Bununla ilgili olarak aşağıdaki linki inceleyiniz.

http://www.excel.web.tr/viewtopic.php?t=1946
[vb:1:d60cd2f6f1]Sub birlestir()
For b = Cells(65536, 2).End(xlUp).Row To 1 Step -1
If Cells(b, 2) = "" Then GoTo 10
c = Cells(b, 2) & " " & c
10 Next b
[a1] = c
End Sub
[/vb:1:d60cd2f6f1]