Hirdetés

Új hozzászólás Aktív témák

  • Louro

    őstag

    Sziasztok!

    Csúnyán elakadtam és a neten fellelhető megoldás se segített. Autofilternél 3 opcióra kellene szűrnöm (sajnos nem tudom kettőbe préselni :( )

    A kód:
    ActiveSheet.Range(Cells(1, 2), Cells(sor - 21, 18)).AutoFilter Field:=1, Criteria1:= _
    "<>*pre*", Operator:=xlAnd, Criteria2:="<>*post*"

    Ezt kellene kiegészítenem "<>*migr" szűréssel. Az oké, hogy 3. kritéria nem adható meg.

    Amit a neten találtam, hogy konstansban megadom a három feltételt:
    Const opt1 As String = "<>*post*"
    Const opt2 As String = "<>*pre*"
    Const opt3 As String = "<>*migr*"

    Utána tömbben adnám meg a három feltételt:
    Criteria1:=Array(opt1, opt2, opt3), Operator:=xlFilterValues

    Pls help. Próbálom önállóan megtalálni a megoldásokat, mert úgy marad meg igazán, de ez nem akar összejönni most.

Új hozzászólás Aktív témák