..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

Filtriranje po več kriterijih

Pomoč pri izdelavi makrov

Filtriranje po več kriterijih

OdgovorNapisal/-a jumanjy » Ne nov 26, 2017 2:15 pm

Pozdravljeni,
Koda: Izberi vse
 ActiveSheet.Range("$E$9:$E$50").AutoFilter Field:=1, Criteria1:=Range("D8")

Vprašal bi vas, če je možno zgornjo kodo s katero filtriram neko območje prilagoditi tako, da bi filtrirala po več kriterijih ki bi bila podana na območju "D8:D12".
jumanjy
 
Prispevkov: 116
Pridružen: To jan 12, 2010 1:00 pm



Matjazev.NET
 

Re: Filtriranje po več kriterijih

OdgovorNapisal/-a admin » Ne nov 26, 2017 3:13 pm

Seveda,

To vam pove že Excel sam, če posnamete makro in pogladate kaj je naredil. Videli boste nekaj takšnega:
Koda: Izberi vse
 ActiveSheet.Range("$E$9:$E$50").AutoFilter Field:=1, Criteria1:=Range("D8")
 ActiveSheet.Range("$E$9:$E$50").AutoFilter Field:=2, Criteria1:=Range("C8")
 ActiveSheet.Range("$E$9:$E$50").AutoFilter Field:=3, Criteria1:=Range("B8")
lp,
Matjaž Prtenjak
Administrator
admin
Site Admin
 
Prispevkov: 3428
Pridružen: Sr jul 20, 2005 10:06 pm

Re: Filtriranje po več kriterijih

OdgovorNapisal/-a jumanjy » Ne nov 26, 2017 5:45 pm

Pozdravljeni,
Mogoče nisem bil dovolj razumljiv z vprašanjem, tak makro kot ste mi ga ponudili pride, če posnamem ko filtriram po več kolonah jaz bi pa rad v eni koloni filtriral po več kriterijih ki jih imam napisane v drugem stolpcu. Poizkusil sem ga posneti in pride nekaj takega kot je spodaj vendar namesto "1","2","3" bi rad imel sklic na celice v katerih so kriteriji.
Koda: Izberi vse
 ActiveSheet.Range("$A$1:$A$20").AutoFilter Field:=1, Criteria1:=Array("1", _
        "2", "3"), Operator:=xlFilterValues
jumanjy
 
Prispevkov: 116
Pridružen: To jan 12, 2010 1:00 pm

Re: Filtriranje po več kriterijih

OdgovorNapisal/-a admin » Ne nov 26, 2017 10:48 pm

Potem pač vstavite polje vrednosti:
Koda: Izberi vse
  Dim vrednosti(3) As String
 
  vrednosti(1) = Range("B2")
  vrednosti(2) = Range("c2")
  vrednosti(3) = Range("d2")
  ActiveSheet.Range("$A$1:$A$20").AutoFilter Field:=1, Criteria1:=vrednosti, Operator:=xlFilterValues
lp,
Matjaž Prtenjak
Administrator
admin
Site Admin
 
Prispevkov: 3428
Pridružen: Sr jul 20, 2005 10:06 pm

Re: Filtriranje po več kriterijih

OdgovorNapisal/-a jumanjy » Po nov 27, 2017 4:20 pm

Sedaj pa deluje tako kot mora.
Najlepša hvala!
jumanjy
 
Prispevkov: 116
Pridružen: To jan 12, 2010 1:00 pm


Vrni se na VBA

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 2 gostov

cron