Auto filter - sestavljen kriterij

Pomoč pri izdelavi makrov
Odgovori
Buba
Prispevkov: 85
Pridružen: Sr Mar 12, 2008 11:49 am
Kraj: Maribor

Auto filter - sestavljen kriterij

Odgovor Napisal/-a Buba »

Pozdravljeni!
V tabeli bi rad opravil poizvedbo po polju 4, kriterij pa bi moral biti sestavljen (pogoj1 ali pogoj 2 ali pogoj 3).
Želel bi da se izpišejo enkratni zapisi (podvojeni zapsi v polju 4 odpadejo). Problema sem se lotil z "auto filtrom"

Koda: Izberi vse

ThisWorkbook.Activate
Set shSeznam = Worksheets("referenca")

'Call InicReferenca(cSifra, cDelM, cVrstniRed, cIme, cRefDat, cTurnus, cOblDelCas)

Pogoj1 = "strojnik 2"
Pogoj2 = "strojnik 3"
Pogoj3 = "vodja izmene"

PoljePogoja = 4

Set obm = shSeznam.Range("A1").CurrentRegion

shSeznam.Range("A1").AutoFilter Field:=PoljePogoja, Criteria1:=Pogoj1
Parameter pri Criteria1 je narobe zapisan, manjka še dodatek za enolične zapise.

Prosil bi za malo pomoči.

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

Re: Auto filter - sestavljen kriterij

Odgovor Napisal/-a admin »

Naredite to ročno in vmes posnamite makro! S tem vam bo Excel izdelal makro vi pa samo še popravite pogoje
lp,
Matjaž Prtenjak
Administrator
Buba
Prispevkov: 85
Pridružen: Sr Mar 12, 2008 11:49 am
Kraj: Maribor

Re: Auto filter - sestavljen kriterij

Odgovor Napisal/-a Buba »

Hvala za odgovor. Bom poizkusil, pa javim.
Lep dan!
Buba
Buba
Prispevkov: 85
Pridružen: Sr Mar 12, 2008 11:49 am
Kraj: Maribor

Re: Auto filter - sestavljen kriterij

Odgovor Napisal/-a Buba »

Pozdravljeni!
Poizkusil sem z naprednim filtrom. (Z auto filtrom ne vem kako bi. Mogoče ne gre - uporabljam Excel 2003.)

Z rezultatom sem zadovoljen; seznam vsebuje vse zapise, ki vsebujejo pogoj 1 ali pogoj 2, ne vem pa kaj je narobe z parametorom Unique


  • delovno mesto ime
    vodja i Dušan
    vodja i Miran
    vodja i Tone
    vodja i Silvo
    skakač Bine
    strojnik 2 Milan
    strojnik 3 Darko
    strojnik 3 Srečko
    strojnik 2 Peter
    strojnik 3 Grega
    strojnik 2 Ivo
    skakač Bučko
    elektrikar Miha
    elektrikar Boštjan
    elektrikar Erazem
    elektrikar Pavel
    čistilec Zdeno
    strojnik C Jože
    strojnik C Gašper
    strojnik L Aleksander
    strojnik L Sandi

Koda: Izberi vse

Range("A1:J22").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "L1:L4"), CopyToRange:=Range("A27:J27"), Unique:=True

A1:A22 področje podatkov
L1:L4 področje kjer so pogoji (en pod drugim)
A27:J27 področje izpisa rezultatov

Iz tabele, bi rad dobil: vodja i, strojnik 2, strojnik 3


Lep dan!

Dušan
Buba
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Auto filter - sestavljen kriterij

Odgovor Napisal/-a admin »

Unique deluje na nivoju celotnega zapisa. Če vi z naprednim filtriranjem iz seznama potegnete DVA stolpca potem bo edinstvenost podatkov testirana pač a nivoju obeh podatkov in to se lepo vidi tudi pri vas. Nobena vrstica ni podvojena.

Če vi želite dobiti samo ednistvene zapise delovnih mest pa morate iz celotnega seznama filtrirati samo delovna mesta in reči da vas zanimajo edinstveni podatki. V tem primeru vam bo Excel (glede na gornje podatke vrnil: vodja i, skakač, strojnik2, strojnik 3, elektrikar, čistilec, strojnik C in strojnik L).
lp,
Matjaž Prtenjak
Administrator
Buba
Prispevkov: 85
Pridružen: Sr Mar 12, 2008 11:49 am
Kraj: Maribor

Re: Auto filter - sestavljen kriterij

Odgovor Napisal/-a Buba »

Hvala za pomoč.
Buba
Odgovori