Hücre birleştirme

[yyhy]

B Sütununda isim listem var. Sayı değişiyor sabit olmuyor. Bazen 100 veya 150 civarında değişiyor. İsimleri birleştirmem Gerekiyor C6 hücresinde olduğu gibi. Bu birleştirme yaptığım isimleri outlook'ta kullanıyorum. Kişileri bir bir girmektense kopyalayıp kime bölümüne ekliyorum.
Formülle veya macro ile yapılabilir mi? Yardımcı olan arkadaşlara teşekkürler...

 

[mrwarrior]

http://www.excel.web.tr/f14/birle-tir-komutu-t148602.html

__________________

 

[veyselemre]

Kodu çalıştırdığınızda B sütunundaki verilerinizi ; ile birliştirip hafızaya atacaktır. İstediğiniz yere yapıştırabilirsiniz.

Sub birlestirHafızayaKopyala()
    ver = Join(Application.Transpose(Range("b5", Cells(Rows.Count, "B").End(3)).Value), ";")
    Set DataObj = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    DataObj.settext ver
    DataObj.PutInClipboard
    Set DataObj = Nothing
End Sub

 

[yyhy]

Teşekkürler

Sayın mrwarrior, veyselemre ihtiyaca cevap verdi. Elleriniz dert görmesin.