Bir makro kodunda kelimeler arasına boşluk koyma

[potifar534]

Aşağıda yer alan kodu forumda daha önce yapılmış bir çalışmadan aldım(http://www.excel.web.tr/f50/alt-alta-yazylmy-yazylary-yan-yana-yazma-ve-t20297.html 10. iletiden).
Kod, bir sütundaki alt alta yazılmış verileri başka bir hücrede aralarına virgül koyarak yan yana yazıyor.
Bu şekilde yazarken virgüllerden sonra bir boşluk bırakmıyor.
Kodun her virgülden sonra bir boşluk verdirmesi sağlanabilir mi?

Sub birleştir()
son = Cells(65536, 1).End(xlUp).Row
For i = 1 To son
ad = Cells(i, 1)
[b1] = [b1] + ad & ","
Next
End Sub

 

[Orion1]

Deneyiniz.

[b1] = [b1] + ad & ", "

 

[Ziynettin]

[b1] = [b1] + ad & ", "

Satırında virgülden sonra boşluk bırakmalısınız.


Evren bey yanıtınızı görmedim.Özür

 

[potifar534]

Değerli arkadaşlarım teşekkür ederim.
Yine aynı kodda kelimeler arasına virgül konulmadan sadece bir boşluk bırakarak yazmak istersek kod nasıl olur?

 

[Orion1]

Değerli arkadaşlarım teşekkür ederim.
Yine aynı kodda kelimeler arasına virgül konulmadan sadece bir boşluk bırakarak yazmak istersek kod nasıl olur?

Buyurun.

" "

 

[Orion1]

[b1] = [b1] + ad & ", "

Satırında virgülden sonra boşluk bırakmalısınız.


Evren bey yanıtınızı görmedim.Özür

estafurullah.

 

[potifar534]

Tekrar teşekkürler.
Sorunsuz işlem yapıyor.