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

• #19093 Delila_1 veterán the radish #19092

  Új Válasz 2013-09-28 10:00:04 #19093

  Ú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

  

  Delila_1

  veterán

  válasz the radish #19092 üzenetére

  A Munka1 lap A1 cellájába írd be idézőjelek nélkül a >=0:00:45 szöveget, a Munka2 lap B2 cellájába pedig <=0:02-t. A két cella értékét 1-1 változóba teszed, és kritériumként ezeket a változókat adod meg.

  kr1 = Sheets("Munka1").Range("A1")
  kr2 = Sheets("Munka2").Range("B2")
  
  Sheets("Filter").Select
  ActiveSheet.Range("$A$1:$C$5001").AutoFilter Field:=3, Criteria1:= _
  kr1, Operator:=xlAnd, Criteria2:=kr2

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