Sütundaki veriyi tek satırda yazma

[yasar145]

Sütundaki veriyi tek satırda yazma

 

[hamitcan]

Sub nn()
a = [a1]
For i = 2 To [a65536].End(3).Row
a = a & ";" & Cells(i, 1)
Next
[j1] = a
msgbox "bitti"
End Sub

 

[İhsan Tank]

Sütundaki veriyi tek satırda yazma

merhaba
alternatif olsun
boş bir module kopyalayın ve deneyin

Option Explicit
Sub birleş()
Dim ts, kaplan
kaplan = MsgBox("A sütununu J1 Hücresinde Birleştiriyorum", vbYesNo, "Onay")
If kaplan = vbNo Then Exit Sub
Application.ScreenUpdating = False
Range("J1").ClearContents
For ts = 1 To Cells(65536, "A").End(xlUp).Row
If ts = 1 Then
Range("J1") = Cells(ts, "A")
Else
Range("J1") = Range("J1") & ";" & Cells(ts, "A")
End If
Next
Application.ScreenUpdating = True
MsgBox "A sütunu J1 Hücresinde Birleştirdim", vbInformation, "Bitiş"
End Sub

konuyu kim kitledi :kafa::cekic::sinirli: