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

• #31201 tgumis tag

  Új Válasz 2016-04-03 01:04:49 #31201

  Ú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

  

  tgumis

  tag

  Sziasztok!
  Hogy tudnám azt megoldani hogy ne kelljen kétszer is futtatnom a lenti makrót azért, hogy az autó szűrő működjön. Szóval fixen az itt beállított soron legyen a szűrés. Mert vannak munkalapok amelyiken van beállítva csak más soron van amelyiken nincs és van amelyiken a makróban megjelölt sorban. Mert most csak akkor kerül oda ha nincs bekapcsolva ha már van szűrés a munkalapon akkor a futtatás után eltűnik.
  Illetve hogyan tudnám azt megcsinálni, hogy az összes munkalapon egy indítással fusson le az egész.
  Ja esetleg annyi hogy az ablaktábla rögzítést fixen az az A 10 cellán állva szeretném.
  Sub fejlec_formazas()
  ActiveSheet.Unprotect Password:="Lufi09"
  With ActiveWindow 'ablaktabla rogzites
  .SplitColumn = 1
  .SplitRow = 10
  End With
  ActiveWindow.FreezePanes = True 'ablaktabla rogzites vége
  Range("I1:I3").Select 'szinezés
  With Selection.Interior
  .Pattern = xlSolid
  .PatternColorIndex = xlAutomatic
  .Color = 14336204
  .TintAndShade = 0
  .PatternTintAndShade = 0
  End With 'szinezés vége
  Range("B1:D3,B8:D158,I8:J158,M8:N158,P8:P158,S8:V158,Y8:Y158").Select 'cellatulajdonságok nem zárolt nem rejtett
  Selection.Locked = False
  Selection.FormulaHidden = False
  Range("A6:J6").Select 'autoszűrő
  Selection.AutoFilter
  'kodolás
  ActiveSheet.Protect Password:="Lufi09", UserInterfaceOnly:=True _
  , AllowFormattingColumns:=True, AllowFiltering:=True
  ActiveSheet.EnableSelection = xlNoRestrictions
  End Sub
  Remélem tudtok segíteni.

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