Farklı hücrelerdeki verileri, tek hücreye yazma

[ozandalkiran]

Arkadaşlar merhaba
birden fazla hücredeki verileri aralarına virgül koyarak tek hücreye nasıl yazdırırım
konu hakkında yardımlarınızı rica ederim
iyi çalışmalar

 

[herguder]

dosya ektedir.

 

[ozandalkiran]

dosya ektedir.

teşekkür ederim fakat 100 tane sıra olursa ben tek tek onları gimek istemiyorum.
bu konuda ne yapabiliriz?

 

[apocalyt]

aşağıdaki kodu bir modüle kopyalayıp çalıştırın..

Sub daylight()
Cells(1, 3) = Cells(1, 1)
For x = 2 To [a1000].End(3).Row
Cells(1, 3) = Cells(1, 3) & "," & Cells(x, 1)
Next x
End Sub

 

[tahsinanarat]

Aşağıdaki kodları kullanın

bir modüle yapıştırarak deneyin

Sub birlestir()
Range("C1").Clear
For a = 1 To [a65536].End(3).Row
Range("C1") = Range("C1") & ", " & Cells(a, "a")
    Range("c1").Select
Next
test
End Sub
Sub test()
Dim lastrow As Long
Dim cell As Range
On Error Resume Next
lastrow = Cells(Rows.Count, "C").End(xlUp).Row
For Each cell In Range("C1:C" & lastrow)
cell.Formula = Right(cell, Len(cell) - 2)
Next
Range("c1").Replace What:=", ,", Replacement:=","
End Sub