Alt alta olan isimleri aynı hücreye yazdırma.

[sward175]

Herkese Merhabalar,

Alt alta olan isim listesini bir hücreye aralarında virgül ile ayırarak yazdırmak istiyorum.
Konu ile ilgili yardımlarınızı rica ederim.

Saygılarımla,
sward175

 

[Erdem Akdemir]

Merhaba,

Aşağıdaki KTF ile yapabilirsiniz.
Kodu modüle koplayın ve formülü kullanın.

=birles(B5:B24;",")

Function birles(hucre As Range, Optional imlec As String = "") As String

For Each alan In hucre

If alan = "" Then
Else
k = k & alan & imlec
End If
Next alan

If imlec = "" Then
birles = k
Else
birles = VBA.Left(k, VBA.Len(k) - 1)
End If
End Function

 

[sward175]

Sayın , kuvari
Formül, #AD? hatası veriyor.

 

[Erdem Akdemir]

VBA kodunu modüle yapıştırmanız lazım

 

[sward175]

Sayın, kuvari,
Teşekkür ederim sorunu sayenizde çözdüm.
Saygılarımla
sward175

 

[Erdem Akdemir]

Rica ederim.
İyi çalışmalar.