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

• #48436 morgusz csendes tag

  Új Válasz 2022-02-05 23:06:24 #48436

  Ú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

  

  morgusz

  csendes tag

  Sziasztok!

  Rögzítettem egy makrót, aminek 35 munkalapon (alap1..alap35) kellene lefutnia.
  Sajnos nem tudom, hogy kell azt megadni.
  Bocsánat! Ezt egy meglevő makró folytatásaként, a végére kellene berakni.
  Előre is köszönöm a segítséget!
  Sheets("alap1").Select
  ActiveWorkbook.Worksheets("alap1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("alap1").Sort.SortFields.Add2 Key:=Range("A1:AP1") _
  , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
  With ActiveWorkbook.Worksheets("alap1").Sort
  .SetRange Range("A1:AP150")
  .Header = xlYes
  .MatchCase = False
  .Orientation = xlLeftToRight
  .SortMethod = xlPinYin
  .Apply
  End With
  End Sub

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