Belli Bir Sütundaki Değerleri Tek Bir Hücrede Toplama

[BedriA]

Arkadaşlar,

Örneğin E2'den başlayarak E sütunundaki son dolu satıra kadar olan hücrelerin değerlerini (son dolu satır dahil) G2 hücresine aktarmak istiyorum.

Bağlı Değer Say ile dolu satır sayısını buluyorum.
Sonra "Range("e2:e&son").Select" ile istediğim aralığı kopyalayıp yapıştırmaya çalışıyorum ama hata veriyor.

Yardımcı olabilir misiniz lütfen?

 

[Korhan Ayhan]

Deneyiniz.

Sub TEST()
    Son = Cells(Rows.Count, "E").End(3).Row
    Range("G2").Value = Join(Application.Transpose(Range("E2:E" & Son)), ",")
End Sub

 

[BedriA]

Deneyiniz.

Sub TEST()
    Son = Cells(Rows.Count, "E").End(3).Row
    Range("G2").Value = Join(Application.Transpose(Range("E2:E" & Son)), ",")
End Sub

Çok teşekkür ederim Korhan Hocam.