Ú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

• #10825 Delila_1 veterán m.zmrzlina #10824

  Új Válasz 2011-07-12 16:37:16 #10825

  Ú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 m.zmrzlina #10824 üzenetére

  Ez nagyon jó. Azonnal frissül, ha a laphoz ezt az üres makrót hozzárendeled:

  Private Sub Worksheet_Change(ByVal Target As Range)
  
  End Sub

  mert figyeli a lapon történt változásokat, és csak frissít.

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