Yan yana hücrelerdeki kelimeleri birleştirmek

[raxxul]

Merhaba Arkadaşlar,
Sitede aklıma gelen şekillerde arama yaptım lakin bir sonuca varamadım. 2 saatlik arayışımın ardından aslında excelde var olan Concatenate veya birleştir diye bildiğimiz komuta vba ile çözüm bulma hususunda bu başlığı açtım. Hali hazırda varsa yarattığım kalabalık için özürümü kabul edin lütfen.
Geleyim ne yapmak istediğime;
Mevcuttaki excel tablomdaki sütun ve satır sayısı sürekli yeni veriler geldikçe artmaktadır. Ama şu anda 12bininci satır ve BV sütununda olduğumu söylemek isterim. Bu excelde yer alan verileri (yazı ve harf olarak karışık şekildedir)A1'den BV1'e kadar (BV1 dahil) BW1 hücresine aralarına noktalı virgül ( koyarak yazdırmalıyım ve bunu her satır için tekrarlamalıyım. Sütün sayısı ve satır sayısı çok olunca bunu standart şekilde & kullanarak veya birleştir komutuyla yapmak bir işkence haline geliyor. Bu konuda yardımlarını bekliyorum. Şimdiden Teşekkürler.

 

[ynmcan]

Syn. raxxul;
Aşağıdaki link te 6. nesajda Syn.Korhan AYHAN beyin kulanıcı tanımlı fonksiyon ile yapılmış olduğu bir örnek var. Bir bakın işinize yararmı?http://www.excel.web.tr/f48/tek-bir-hucrede-metin-birlestirme-t99471.html
Örnek dosyayıda inceleyin ( kulanıcı tanımlı fonksiyonun kodu kod sayfasında modül içinde )

 

[Teoman06]

Ben de tam aşağıdaki KTF'nu önerecektim ki cevap verildiğini gördüm.

Ama yine de vereyim :biggrin:

Function BirlestirX(Alan As Range, Karakter As String)

    For Each x In Alan
        y = y & x.Text & Karakter
    Next
    
    BirlestirX = Left(y, Len(y) - 1)
    
End Function

Daha sonra, örneğin BW1 hücresine aşağıdaki fonksiyonu yazacaksınız.

=birlestirx(A1:BU1;";")

 

[raxxul]

Teşekkürler ederim. Elinize sağlık