Çözüldü Kod Yardımı

cavanoos

Altın Üye
Katılım
17 Aralık 2008
Mesajlar
723
Excel Vers. ve Dili
Microsoft 365
Altın Üyelik Bitiş Tarihi
11-01-2026
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

Altın Üye
Katılım
22 Eylül 2023
Mesajlar
427
Excel Vers. ve Dili
Office 365 TR
Altın Üyelik Bitiş Tarihi
05-10-2028
Merhaba,

Dener misiniz?

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

cavanoos

Altın Üye
Katılım
17 Aralık 2008
Mesajlar
723
Excel Vers. ve Dili
Microsoft 365
Altın Üyelik Bitiş Tarihi
11-01-2026
Doğan Bey;

Olmadı.
 

DoğanD

Altın Üye
Katılım
22 Eylül 2023
Mesajlar
427
Excel Vers. ve Dili
Office 365 TR
Altın Üyelik Bitiş Tarihi
05-10-2028
Merhaba,

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

251396251397
 

cavanoos

Altın Üye
Katılım
17 Aralık 2008
Mesajlar
723
Excel Vers. ve Dili
Microsoft 365
Altın Üyelik Bitiş Tarihi
11-01-2026
Doğan Bey;

Oldu, emeğinize sağlık :)
 
Üst