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

• #40785 Pakliman tag visit #40782

  Új Válasz 2019-04-16 08:12:24 #40785

  Ú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

  

  Pakliman

  tag

  válasz visit #40782 üzenetére

  Szia!

  Neked valami ilyesmi kell:

  Public Sub Rendez()
Dim i As Long

With ActiveWorkbook
For i = 1 To 6
'Feltételezzük, hogy a FŐ munkalap neve: FML
.Worksheets("FML").Copy After:=.Worksheets(.Worksheets.Count)
With .Worksheets(.Worksheets.Count)
.Name = "Rend_" & i
.Cells.Sort Key1:=.Columns(i), Header:=xlYes
End With
Next i
End With
End Sub

  Tedd be egy mindig elérhető munkafüzetbe (Összefoglaló->personal füzet) és rendelj hozzá egy billentyű kombinációt.

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