Alt Alta 50 Satırın Birleştirilerek Bir Hücreye Yazılması

[Sarigol_937]

Merhaba arkadaşlar elimdeki formda A1 hücresinden A50'ye kadar olan satırların her birinde ad soyad yazıyor bu ad soyadların, B1 hücresinde topluca yazdırmam mümkünmüdür.Örnek ;
A1---Ahmet UÇAR
A2---Veli GÜLMEZ
A3---Metin GÜR
A4---Yahya GÜR
"
"
"
A50---Kemal SAĞLAM

Olması Gereken Sonuç : Birleştirildikten Sonra B1 hücresine şu şekilde yazmalı Ahmet UÇAR, veli GÜLMEZ, Metin GÜR.....


-Bunu karşılaştırma tablam var orda bulamadığı kişilerin isimlerini yazıyor onda ki ismleri liste halinde bir hücreye topluycam ondan lazım.

 

[bzace]

Merhaba,
Şu şekilde denermisiniz.

Sub birleştir()
    For a = 1 To [A65536].End(3).Row
       Range("B1") = Range("b1") & Cells(a, "A") & ","
    Next
End Sub

 

[Sarigol_937]

Çok Teşekkürler tam istediğim gibi olmuş.

 

[Sarigol_937]

Birleştir butonuna güncellemek için bastığımda yana doğru d1 yazdığı verileri öncekinin üzerine yığıyordu geliştirip şu şekilde yaptım kodu sorunum çözüldü. Sub birleştir()
Range( _
"D1: D1" _
).ClearContents
For c = 1 To [C65536].End(3).Row
Range("D1") = Range("D1") & Cells(c, "C") & ","
Next
End Sub