Makro İle Diğer Sayfadan Veri Al

[ormann]

İyi akşamlar;
Ekli örnek dosyada Liste sayfasında A sütüünda bulunan verileri makro ile Verim sayfasındaki buton ile L sütününda L4:L5000 hücre aralığına aynı sayıları tek olcak şekilde nasıl getirebiliriz?
Örneğin:Liste sayfasında A1 sütünunda 3 rakamından 5 adet var .Bu verim sayfasına tek 3 olarak getilecek.

http://dosya.co/65y50qrnh7p9/öRNEK-1.xlsm.html

 

[Ziynettin]

Merhaba,

...

Sub getir()
Dim s1, s2, d As Object
Set s1 = Sheets("Liste")
Set s2 = Sheets("VERİM")
a = s1.Range("A2:A" & s1.Cells(Rows.Count, 1).End(3).Row)
Set d = CreateObject("scripting.dictionary")
    For i = 1 To UBound(a)
        If Not d.exists(a(i, 1)) Then
            d(a(i, 1)) = d.Count + 1
        End If
    Next i
    ReDim b(1 To d.Count, 1 To 1)
    For i = 1 To UBound(a)
        sat = d(a(i, 1))
        b(sat, 1) = a(i, 1)
    Next i
s2.[L4].Resize(d.Count) = b
MsgBox "Tamam.", vbInformation
End Sub