merhaba
alternatif olsun
boş bir module kopyalayın ve deneyin
Kod:
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.