Soru Liste Biçimlendirme

[birliksan]

Merhaba saygı değer forum üyeleri sizlere ufak bir sorum olacak. Elimde alt alta yazılmış rakamlar listesi var. Ben bu listeyi tek hücre içine yanyana ve bi virgül ve bir boşluk olacak şekilde yazdırmak istiyorum. Örnek: 120, 512, 630, 742,
Bunu nasıl yapabilirim. Konu hakkında bilgisi olan arkadaşların yardımını rica ediyorum. Şimdiden teşekkür ederim.

 

[Muzaffer Ali]

Eğer liste azsa şu formülle yapabilirsin.
Rakamların "A" sütununda olduğunu düşünürsek

=a1&", "&a2&", "&a3&", "&a4

Eğer liste çok uzunsa formül çok uzun süreceği için kod ile yapılabilir.

Sayfa adını sağ tıklatın "Kod Görüntüle" seçin aşağıdaki kodu açılan sayfaya yapıştırın.
Kodlarda herhangi bir satır seçili ike "F5" tuşuna basarak kodları çalıştırın.
Sonuç "B1" hücresine yazdırılır.

Sub Test()
    Dim Bak As Integer
    Range("B1").ClearContents
    For Bak = 1 To Cells(Rows.Count, "A").End(3).Row
        Range("B1") = Range("B1") & Cells(Bak, "A") & ", "
    Next
End Sub

 

[birliksan]

çok teşekkür ederim dalgalıkur sağol varol (bilgi başka bir şey vallahi) emeğine sağlık ...