Sütünları virgülle birleştirip liste oluşturma

[sermest]

Öncelikle yardımlarınız için şimdiden teşekkür ediyorum

Excel doyasında D1.D2,D3.....D40 sütünlarına girmiş olduğum verilerin sayfa 2 de A2 satırında aralarında virgül konularak yazılmasını sağlamak, bundan sonra D sutunlarındaki verileri silip yeni veri girdiğimde yeni değerleri de aralarına virgül koyarak sayfa 2 de A3 satırına yazmak istiyorum

Forumda buna benzer örnekler okudum ama hem virgülle bağlayıp hemde bir alt satıra yazdırma olayını bu saate kadar yapamadım.Konu ile ilgili tecrübem de bulunmamakta
Konu hk bilgisi bulunan uzman arkadaşların yardımlarını bekliyorum

saygılarımla

 

[halit3]

bu kodu denermisiniz.

Sub aktar()
sat = Worksheets("Sayfa2").[A65536].End(3).Row + 1
deg = ""
For i = 1 To Worksheets("Sayfa1").[d65536].End(3).Row
If i = Worksheets("Sayfa1").[d65536].End(3).Row Then
deg = deg & Worksheets("Sayfa1").Cells(i, "D").Value
Else
deg = deg & Worksheets("Sayfa1").Cells(i, "D").Value & ","
End If
Next
Worksheets("Sayfa2").Cells(sat, "A").Value = deg
MsgBox "işlem tamam"
End Sub

 

[sermest]

teşekkür ederim

Halit bey saygılarımı arz ederim
çok işime yaradı teşekkür ederim
saygılarımla

 

[halit3]

Halit bey saygılarımı arz ederim
çok işime yaradı teşekkür ederim
saygılarımla

rica ederim iyi çalışmalar