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

• #48437 Fferi50 Topikgazda morgusz #48436

  Új Válasz 2022-02-06 08:25:53 #48437

  Ú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

  

  Fferi50

  Topikgazda

  válasz morgusz #48436 üzenetére

  Szia!
  Íme:
  Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
   If Left(ws.Name, 4) = "alap" Then
      With ws.Sort
         .SortFields.Clear
         .SortFields.Add2 Key:=Range("A1:AP1") _
         , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
         .SetRange Range("A1:AP150")
         .Header = xlYes
         .MatchCase = False
         .Orientation = xlLeftToRight
         .SortMethod = xlPinYin
         .Apply
      End With
   End If
Next
  Az alap - pal kezdődő nevű munkalapokon végrehajtja műveleteket. Nem szükséges minden munkalapot Select-tel kiválasztani - (azt csak a makrórögzítő csinálja).
  Üdv.

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