brisanje filtriranja

Pomoč pri izdelavi makrov
Odgovori
jumanjy
Prispevkov: 133
Pridružen: To Jan 12, 2010 1:00 pm

brisanje filtriranja

Odgovor Napisal/-a jumanjy »

Pozdravljeni

V excelu imam tabelo, ki jo filtriram (približno 80 kolon). Posnel sem si macro, ki mi pobriše filtriranje, da mi ni potrebno ročno klikat vsakega filtra posebej.

Koda: Izberi vse

    ActiveSheet.Range("$A$8:$BV$3841").AutoFilter Field:=1
    ActiveSheet.Range("$A$8:$BV$3841").AutoFilter Field:=2
    ActiveSheet.Range("$A$8:$BV$3841").AutoFilter Field:=3
Tako izgleda začetek kode, ki sicer deluje vendar traja kar nekaj sekund, da se izvede.
Vprašal bi vas, če obstaja kakšna bljižnica, ki bi "resetirala" vse filtre na začetek.

Lep pozdrav!
AndrejL
Prispevkov: 25
Pridružen: Po Nov 10, 2008 9:22 pm

Re: brisanje filtriranja

Odgovor Napisal/-a AndrejL »

Koda: Izberi vse

ActiveSheet.ShowAllData
jumanjy
Prispevkov: 133
Pridružen: To Jan 12, 2010 1:00 pm

Re: brisanje filtriranja

Odgovor Napisal/-a jumanjy »

Deluje hvala!
Lep pozdrav.
jumanjy
Prispevkov: 133
Pridružen: To Jan 12, 2010 1:00 pm

Re: brisanje filtriranja

Odgovor Napisal/-a jumanjy »

Pozdravljeni še enkrat!
Pri tem macru mi javi napako oz. Metoda ni mogoča, če je že vse prikazano. Poskušal sem dopisat kodo On error vendar brez uspeha.

Koda: Izberi vse

Sub Gumb1_Klikni()
  ActiveSheet.ShowAllData
  On Error GoTo Err
Err:
    Exit Sub
End Sub
Najbrž bi moral prvo preveriti z kodo, če je kaj za prikazat naj prikaže, če ne naj ne naredi ničesar. Na forumu nisem uspel najti nič ustreznega pa bi vas prosil, če kdo ve kako se to naredi ali kje bi našel odgovor.

Lep pozdrav
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: brisanje filtriranja

Odgovor Napisal/-a admin »

Samo malce morate obrniti vstice, pa bi moralo biti vse ok:

Koda: Izberi vse

Sub Gumb1_Klikni()
  On Error GoTo Err
  ActiveSheet.ShowAllData
Err:
End Sub
PS: 'Exit Sub' pa tudi ne potrebujete, saj ob napaki skočite na vrstico 'Err:', ki ji tako ali tako sledi konec procedure ;)
lp,
Matjaž Prtenjak
Administrator
jumanjy
Prispevkov: 133
Pridružen: To Jan 12, 2010 1:00 pm

Re: brisanje filtriranja

Odgovor Napisal/-a jumanjy »

Sem bil pa blizu :wink:
Deluje hvala za odgovor.

Lep dan!
Odgovori