Farklı

[abbasonline]

Farklı OLANLARI BULUP YAZDIRMAK İÇİN

Farklı olanları bulup Sayfa 2 yazmak için Makro.

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub gelismis_filtre()
Sheets("Sayfa2").Range("A:F").ClearContents
[c6] = "baslik_1": [d6] = "baslik_2": [e6] = "baslik_3": [f6] = "baslik_4": [g6] = "baslik_5"
    Range("C6:G39000").AdvancedFilter Action:=xlFilterCopy, _
    CopyToRange:=Range("K7"), Unique:=True
    Range("K7:O39000").Copy Sheets("Sayfa2").Range("A1")
    
    Range("K7:O39000").ClearContents
    Application.CutCopyMode = False
End Sub

 

[abbasonline]

kodu girdim ancak Sayfa1 deki verilerin aynısını Sayfa 2 ye yapıştırdı, istediğim E7 ile E39000 arası farklı olanları yazması

 

[abbasonline]

ayrıca A ve B sütununda bulunan verileride almıyor.

 

[abbasonline]

Makroda hata var

 

[abbasonline]

bulunabilirmi.

 

[abbasonline]

Farklı olanları yazdırmak için

 

[abbasonline]

sayfa 1 de E sütununda bulunanların farklılarını Sayfa 2 ye kendi satırındaki veriler ile birlikte yazdırmak için.