Sütudaki verileri bir hücre içine araya virgül koyarak birleştirme

[ozgurruya]

Not: İlgili dosya ektedir.

 

[Necdet]

Merhaba,

İyi bayramlar. Aşağıdaki kodları kullanabilirsiniz.

Sub Birlestir()
Dim i As Integer
Application.ScreenUpdating = False
[F6].ClearContents
For i = 4 To [B65536].End(3).Row
    If [F6] = "" Then
        [F6] = Cells(i, "B")
    Else
        [F6] = [F6] & "," & Cells(i, "B")
    End If
Next i
Application.ScreenUpdating = True
End Sub

 

[ozgurruya]

Yardımlarınız için çok teşekkür ederim Sayın Necdet Yeşertener. Çok sağ olun. Size de iyi bayramlar.

 

[jasrsnmz]

hocam çok teşekkürler aradığım bir sorundu