DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Kriter alanını mümkün olduğu kadar kısıtlı tutun çünkü boşlukları da kriter gibi düşünüyor.
[code]Sheets("Sayfa1").Range("A1:O22").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets( _
"Sayfa2").Range("A1:o2"), CopyToRange:=Sheets("Sayfa3").Range("A1:O1"), Unique:=False