Sütundaki veriyi tek satırda yazma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,738
Excel Vers. ve Dili
Excel 2019 Türkçe
Kod:
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

Misafir
Sütundaki veriyi tek satırda yazma
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
konuyu kim kitledi :eek: :kafa::cekic::sinirli:
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst