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

• #10826 m.zmrzlina senior tag m.zmrzlina #10824

  Új Válasz 2011-07-12 16:41:42 #10826

  Ú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

  

  m.zmrzlina

  senior tag

  válasz m.zmrzlina #10824 üzenetére

  Ez működik!

  Ezt a fv-t másold modulba:

  Function FilterOn(myCell As Range) As Boolean
  On Error Resume Next
  With myCell.Parent.AutoFilter
  With .Filters(myCell.Column - .Range.Column + 1)
  If .On Then FilterOn = True
  End With
  End With
  End Function

  majd formázd feltételesen a következőképpen:

  

  A formázás érvényessége a példa munkalapon =$A:$G

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