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

• #18058 m.zmrzlina senior tag VIVANA #18057

  Új Válasz 2013-05-10 07:41:12 #18058

  Ú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

  

  m.zmrzlina

  senior tag

  válasz VIVANA #18057 üzenetére

  Az én egyik munkafüzetemben ez a pár sor végzi ezt a feladatot:

  Sub rendez()
  
  Dim lCount As Long
  Dim lCount2 As Long
  
  For lCount = 1 To Sheets.Count
  For lCount2 = lCount To Sheets.Count
  If Sheets(lCount2).Name < Sheets(lCount).Name Then
  Sheets(lCount2).Move Before:=Sheets(lCount)
  End If
  Next lCount2
  Next lCount
  
  End Sub

  A If Sheets(lCount2).Name < Sheets(lCount).Name Then sorban lévő "<" jellel tudod beállítani, hogy csökkenőbe vagy növekvőbe rendezzen.

  Sajnos már nem tudom, hogy honnan loptam.

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