Hücre birleştirme yardım

[uslu45]

herkese merhaba,
ekteki dosyamda a sütunundaki numaraların aynı olanları için b sütunundaki yazlıarı aralarına virgül koyarak c sütununda birleştirmek istiyorum. yardımcı olursanız sevinirim arkadaşlar.
3 tane renkli örnekteki gibi
kolay gelsin...

 

[mustafaine1]

Public Function birlestirara(ALAN As Range, Optional sALAN As String = ",") As String
Dim sonuc As String, c As Range
Application.Volatile
On Error GoTo hata

For Each c In ALAN
    If c <> Empty Then sonuc = sonuc & c.Value & sALAN
Next c
sonuc = Left(sonuc, Len(sonuc) - Len(sALAN))
birlestirara = sonuc

On Error GoTo 0
   Exit Function

hata:
    birlestirara = "#Error#"

End Function

siteden kendi arsivime aldigim bir KTF, isinizi goruyor sanirim..

 

[uslu45]

sn mustafaine , verdiğiniz bilgi makro sanırım ama uygulayamadım bi türlü

 

[muygun]

Merhaba;
Alternatif olsun. İşlevlerle bir çözümde benden.
Eki inceleyin.
İyi çalışmalar.

 

[uslu45]

çok teşekkürler elinize sağlık

Merhaba;
Alternatif olsun. İşlevlerle bir çözümde benden.
Eki inceleyin.
İyi çalışmalar.