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
Prosil bi za malo pomoči.
Lep dan!