bir sayfadan diğer sayfaya tekrarsız bilgi aktarımı

[abdullah016]

bir sayfada yazılan bilgileri diğer sayfaya tekrarsız olarak nasıl aktarabilirim.
yardımcı olursanız sevinirim.
örnek dosya ektedir.

 

[muygun]

Merhaba;
Eki inceleyin.
İyi çalışmalar.

 

[Orion1]

Dosyanız ektedir.

Sub tekrarsiz_59()
Dim a As Long, z As Object, liste()
Sheets("aktarılmış bilgiler").Select
Range("A1:A65536").ClearContents
Set z = CreateObject("Scripting.Dictionary")
liste = Sheets("veriler").Range("A2:A" & Sheets("Veriler").Cells(65536, "A").End(xlUp).Row).Value
For a = LBound(liste) To UBound(liste)
    If Not z.exists(liste(a, 1)) Then
        z.Add liste(a, 1), Nothing
    End If
Next
Erase liste
Range("A1").Resize(z.Count, 1) = Application.Transpose(Array(z.keys))
Set z = Nothing
End Sub

 

[abdullah016]

ilginiz için çok teşekkür ederim.