yan yana yazdırma makrosu

[mahocamelon]

altalta yazan örneğin A1 hücresinden A65 hücresine kadar yazan sayıları B1 hücresine yanyana ve aralarında virgül koyarak yazdırma makrosu konusunda yardımlarınızı bekliyorum forumdan aratıp bulduğum bir makro vardı ancak çalışmadı makroyu aşağıda gönderdim.

Sub birleştir()

son = Cells(65, 1).End(xlUp).Row
For i = 1 To son

ad = Cells(i, 1)
[b1] = [b1] + ad & ","

Next
End Sub

 

[AS3434]

Sayın mahocamelon

Makroyu şöyle düzenleyebilirsiniz.
Verilerin A sütununda olduğu varsayılmıştır.

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

 

[mahocamelon]

çok teşekkür ederim yardımlarınız için gönderdiğiniz makro çalıştı