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

• #4732 Delila_1 veterán ent #4730

  Új Válasz 2009-03-30 14:03:30 #4732

  Ú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 ent #4730 üzenetére

  Lapok sorba rendezése

  Sub SortWorksheets()
  Dim sCount As Integer, i As Integer, j As Integer
  Application.ScreenUpdating = False
  sCount = Worksheets.Count
  If sCount = 1 Then Exit Sub
  For i = 1 To sCount - 1
  For j = i & 1 To sCount
  If Worksheets(j).Name < Worksheets(i).Name Then
  Worksheets(j).Move Before:=Worksheets(i)
  End If
  Next j
  Next i
  Application.ScreenUpdating = True
  End Sub

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