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

• #21609 Louro őstag

  Új Válasz 2014-05-14 13:51:58 #21609

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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