Mükerrer aktarma

[Barons]

merhaba

ekteki dosyada hatirlat sayfasında F kolonunda mükerrer olan verileri sablon sayfasına B5'den itibaren tek değere düşülmüş şekilde aktarmak istiyorum.gelişmiş süzgeçle yapıyorum ama ilk başta çalışırken sonradan hata veriyor.
makro ile yapmak mümkünmüdür?

teşekkürler

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub Aktar()
Dim c As Range
Dim i As Long
Dim j As Long
Dim syfs As Worksheet
Dim syfh As Worksheet
Set syfs = Sheets("sablon")
Set syfh = Sheets("hatirlat")
j = 4
syfh.Select
syfs.Range("B5:B65536").ClearContents
For i = 2 To [F65536].End(3).Row
    Set c = Range("F1:F" & i - 1).Find(Cells(i, "F"), LookIn:=xlValues)
    If c Is Nothing Then
        j = j + 1
        syfs.Cells(j, "B") = Cells(i, "F")
    End If
Next i
MsgBox "Benzersiz Kayıtları Aktardım..", vbOKOnly
End Sub

 

[Barons]

Sn. Necdet,
çok teşekkürler...Karşılıksız,menfaatsiz vede üstelik tanımadığınız insanlara yaptığınız bu yardımlardan dolayı sizin şahsınızda bizlere destek veren kardeşlerimi,abilerimi saygıyla selamlıyorum.gecenin bu saatinde içimden geldi "Allah sizlerin her işinizde yardımcınız olsun,sizleride her türlü sıkıntıdan feraha çıkarsın inşallah..."