Listelenen verileri virgül ile ayırma

[prepositions]

Arkadaşlar Merhaba,
Ekte sorunumu çok daha iyi anlatacak excel yer almakta.
Listelenen verileri , ve bir boşluk ile ayıracak bir makroya ihtiyacım var.
Yardımlarınız için şimdiden çok teşekkür ederim.
Saygılarımla,
Cihan

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Not : A sütununa göre sıralandığı varsayılmıştır, kodlar içinde sıralama kullanılmamıştır, gerekirse hem sıralama kullanılabilir, sıralanma kullanılmaması istenirse kodlarda değişiklik yapmak gerekir.

Sub Birlestir()
Dim i As Long
Dim j As Long
Dim id As String
Application.ScreenUpdating = False
j = 1
For i = 2 To [a65536].End(3).Row
    If id <> Cells(i, "A") Then
        j = j + 1
        Cells(j, "D") = Cells(i, "A")
        id = Cells(i, "A")
        Cells(j, "E") = Cells(i, "B")
    Else
        Cells(j, "E") = Cells(j, "E") & ", " & Cells(i, "B")
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamam", vbInformation, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub

 

[prepositions]

Çok teşekkürler,
Ellerinize sağlık.

 

[Necdet]

Rica ederim, güle güle kullanınız.