Hromadné vypnutí filtrů ve sloupcích Vyřešeno

[MK_Vs]

Dobrý den,

lze hromadně vypnout zapnutý filtr ve sloupcích, tak aby nebylo makro zaznamenáváno pro jednotlivý sloupec, kdy pak jde jeden po druhém a zobrazuje vše.

V příloze vypnutí včech filtrů pro řádek 1.

Děkuji.

[Reklama]

[cmuch]

Kód: Vybrat vše

Worksheets("List1").AutoFilter.Sort.SortFields.Clear

[MK_Vs]

Dobrý den,

pokud vložím tento kód

Kód: Vybrat vše

    Range("A1:D1").Select
    Worksheets("List1").AutoFilter.Sort.SortFields.Clear
    Range("A1").Select

a spustím, na listu ke změně nedojde, filtry zústanou tak jak byly předvoleny.

Nakonec jsem to udělal takto

Kód: Vybrat vše

    Rows("1:1").Select
    Selection.AutoFilter field:=1
    Selection.AutoFilter field:=2
    Selection.AutoFilter field:=3
    Selection.AutoFilter field:=4
    Range("A1").Select

jen to problikávání pokud vracím 50 filtrů je na výkonu počítače.

Děkuji.

[cmuch]

Tak chyba je ve zpětné kompatilibitě Excelu.

-Pro Ex2007

Kód: Vybrat vše

Worksheets("List1").ShowAllData

-Pro Ex2010

Kód: Vybrat vše

Worksheets("List1").AutoFilter.Sort.SortFields.Clear

[MK_Vs]

Dobrý den,

vaše řešení je ovšem elegantější.

Ještě by mě prosím zajímalo, jak obejít debug, když není zapnut ani jeden filtr.

Děkuji.

[cmuch]

Šlo by vyřešit takto

Kód: Vybrat vše

On Error Resume Next
Worksheets("List1").ShowAllData
On Error GoTo 0