Soru Yenilenen Verileri Teke Düşürme

[okan32]

Merhaba Arkadaşlar ben sizleri bu gün biraz uğraştırıyorum ama kusura bakmayın kendime bir program yapıyorum takıldığım yerde ise sizlere soruyorum.
Yenilenen Verileri Teke Düşürmek istiyorum uğraştım ama beceremedim. yapmak istediğim şeyi ekteki örnek dosyamda anlattım. yardımnız için şimdiden teşekkürler.

 

[EmrExcel16]

Deneyiniz..

Sub Tekrarsiz()
    Range("G4:H100000").ClearContents
    Range("G4:H" & Cells(Rows.Count, 3).End(3).Row).Value = Range("C4:D" & Cells(Rows.Count, 3).End(3).Row).Value
    Range("G4:H" & Cells(Rows.Count, 7).End(3).Row).RemoveDuplicates Columns:=2, Header:=xlNo
End Sub

 

[okan32]

Allah Razı olsun EmrExcel16 bey
sizide bugün çok yordum kusura bakmayın.

 

[EmrExcel16]

Allah hepimizden razı olsun , estağfurullah yorulma yok kodları biraz daha toplayıp daha anlaşılır hale getirdim , isterseniz bunları da kullanabilirsiniz.

Sub Tekrarsiz()
    Range("G4:H100000").ClearContents
    Son = Cells(Rows.Count, 3).End(3).Row
    Range("G4:H" & Son).Value = Range("C4:D" & Son).Value
    Range("G4:H" & Son).RemoveDuplicates Columns:=2
End Sub