Farklı Listedeki Sayıları Alt Alta Getirmek

[altan888]

Merhabalar;
Ekteki excel tablosunda da görüleceği üzere,

Tabloda sol taraftaki 4 adet listedeki sayıları, sağdaki sarı renkteki alanda görüleceği üzere kendi içinde "liste bazlı" olarak sayıları alt alta getirmek istiyorum.

Bir fikir vermesi açısından tabloda manuel olarak listeleri alt alta getirdim. Bunu makrosuz nasıl yaparım, yardımcı olmanızı rica ederim, şimdiden çok teşekkürler.

 

[antonio]

Merhaba,
Aşağıdaki kodları deneyiniz.

Sub farkli_listeleri_alt_alta_getirmek()
Dim sh As Worksheet, ss As Long, alan As Range
ilk = 3
Set sh = Sheets("Sayfa1")

sh.Range("F3:F5000").ClearContents
For d = 1 To 4
    ss = sh.Cells(Rows.Count, d).End(3).Row
    Set alan = sh.Range(sh.Cells(3, d), sh.Cells(ss, d))
    sh.Range("F" & ilk).Resize(ss - 2, 1).Value = alan.Value
    ilk = ilk + (ss - 2)
Next d
MsgBox "İşlem tamamlandı.", vbInformation, "antonio"
End Sub