Süzüp ve süzülen alandaki mükerrer kayıtları hariç kopyalama

[OZCANLOK]

Formda aradım fakat buna göre bir örnek bulamadım
YArdımlarınız için şimdiden teşekkürler

ekteki örnek dosyada anlattığım gibi

veri sayfasında a kolonuna göre süzdüğümüz verileri
mükerer olmadan kopyala sayfasına nasıl aktarabiliriz.

 

[Recep İpek]

Aşağıdaki kodları kullanabilirsiniz.

Sub Aktar()
On Error Resume Next
Application.ScreenUpdating = False
Set s1 = Sheets("veri")
Set s2 = Sheets("kopyala")

Set alan1 = s1.Range("a2:c100")
Set alan2 = s2.Range("g2:g3")
Set alan3 = s2.Range("a2:c100")

alan3.ClearContents
  
alan1.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=alan2, CopyToRange:=alan3, Unique:=True
Application.ScreenUpdating = True

End Sub

 

[emrexcel123]

en basit yolu süzdükten sonra benzersiz kayıtları sıralatmaktır sayın ripek 'in yaptığı gibi veri > gelişmiş filtre > benzersiz kayıtlar > başka bir yere kopyala gibi...

 

[excellcan]

merhaba arkadaşlar. gelişmiş süzgeci çalıştıramıyorum. nedenleri konusunda
beni aydınlatabilir misiniz. herkese iyi geceler. herşey gönlünüzce olsun.

 

[Recep İpek]

Örnek bir dosya eklerseniz hatayı inceleme fırsatı bulabiliriz.

Dosya ekleme ile ilgili detaylı bilgiyi aşağıdaki linkte bulabilirsiniz.

http://www.excel.web.tr/showthread.php?t=32554