sütunlardaki verileri aralara virgül koyarak tek hücreye yazdırmak

[ozandalkiran]

Arkadaşlar merhaba
benim sıkıntı yaşadığım durum örneğin A sütununda yukarıdan aşagıya 150 tane data var, ben bunların hepsini tek hücreya aralara virgül koyarak yazdırmak istiyorum. konu hakkında yardımlarınızı rica ederim
iyi çalışmalar

 

[monelogg]

Merhaba, şu kodları deneyiniz.

Sub adf()
For i = 1 To [a60000].End(xlUp).Row
Range("C1") = Range("C1") & "," & Range("A" & i).Value
Next

End Sub

 

[ozandalkiran]

öncelikle teşekkür ederim fakat bu kodu nereye yazacağım macro'mu yazacağım
yardımcı olursan sevinirim
iyi çalışmalar

 

[17bn57]

Excel sayfasında iken alt+F11 tuşlarına basın VBA ekranına geçersiniz üstte "Insert" yazan yerden Modüle oluşturun. sayın monelogg beyin yazdığı kodları oraya kopyala yapıştır yapın.
Eğer bir butona atama yapacaksanız. eklediğiniz butona sağ tuş makro ata komutları ile ekleme yapabilirsiniz.