Çözüldü Kod Yardımı

[cavanoos]

Merhaba arkadaşlar;

Filtreleme işlemi yaparken makro çalıştırdım. Filtre seçeneklerinde YANLIŞ da var. O hariç diğerlerini getirmek istiyorum ama sonuç aşağıda. Kod uzuyor. Bu konuda yardım edebilir misiniz ?

ActiveSheet.Range("$A$1:$E$11562").AutoFilter Field:=4, Criteria1:=Array( _
"ACİTY", "ADANA OPTİMUM", "ADANA REAL", "AFIUM", "ANKAMALL", "ANKARA OPTİMUM", _
"ANTALYA MİGROS", "ANTARES", "BURSA CARREFOUR", "CEPA", "DEEPO", "DİYARBAKIR", _
"DOWNTOWN", "ERASTA", "ESPARK", "FABRİKA SATIŞ", "FORUM İSTANBUL", "GALATAPORT", _
"HILLTOWN", "HILLTOWN KARŞIYAKA", "HISTORIA", "İSTANBUL OPTİMUM", "KAYSERİ FORUM", _
"KAYSERİ PARK", "KENT PLAZA", "KONYA", "KORUPARK", "MALL OF ANTALYA", _
"MALL OF İSTANBUL", "MALTEPE PİAZZA", "MARKA BURSA", "MARKANTALYA", "MARMARA FORUM" _
, "MARMARA PARK", "MERSİN FORUM", "PALM CITY", "SAMSUN PİAZZA", "SANAL", "SAYAPARK", _
"VİAPORT", "YEKTA MALL"), Operator:=xlFilterValues

 

[DoğanD]

Merhaba,

Dener misiniz?

Range("$A$1:$E$11562").AutoFilter 4, "<>YANLIŞ"


 

[cavanoos]

Doğan Bey;

Olmadı.

 

[DoğanD]

Merhaba,

Keşke hata aldıysanız hatayı da iletseydiniz. Bir de şu şekilde dener misiniz? Range("C1:D5").AutoFilter 2, "<>" & False

 

[cavanoos]

Doğan Bey;

Oldu, emeğinize sağlık