Stránka 1 z 1
Hromadné vypnutí filtrů ve sloupcích Vyřešeno
Napsal: 04 bře 2013 18:16
od 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.
Re: Hromadné vypnutí filtrů ve sloupcích
Napsal: 04 bře 2013 19:55
od cmuch
Kód: Vybrat vše
Worksheets("List1").AutoFilter.Sort.SortFields.Clear
Re: Hromadné vypnutí filtrů ve sloupcích
Napsal: 05 bře 2013 05:57
od 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").Selectjen to problikávání pokud vracím 50 filtrů je na výkonu počítače.
Děkuji.
Re: Hromadné vypnutí filtrů ve sloupcích
Napsal: 05 bře 2013 06:24
od cmuch
Tak chyba je ve zpětné kompatilibitě Excelu.
-Pro Ex2007
-Pro Ex2010
Kód: Vybrat vše
Worksheets("List1").AutoFilter.Sort.SortFields.Clear
Re: Hromadné vypnutí filtrů ve sloupcích
Napsal: 05 bře 2013 06:34
od 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.
Re: Hromadné vypnutí filtrů ve sloupcích
Napsal: 05 bře 2013 08:59
od cmuch
Šlo by vyřešit takto
Kód: Vybrat vše
On Error Resume Next
Worksheets("List1").ShowAllData
On Error GoTo 0