Tabla de contenido
La siguiente rutina ordenará las hojas en un libro de trabajo alfabéticamente. La bandera "Sort_Mode_Descending" se puede cambiar entre descendente y ascendente según sea necesario. La rutina es insensible al caso.
| 1234567891011121314151617181920212223 | Sub Sort_Sheets ()Dim Sort_Mode_Descending como booleanoAtenuar No_of_Sheets como enteroAtenuar Outer_Loop como enteroAtenuar Inner_Loop como enteroNo_of_Sheets = Sheets.Count'Cambiar bandera según correspondaSort_Mode_Descending = FalsoPara Outer_Loop = 1 a No_of_SheetsPara Inner_Loop = 1 a Outer_LoopSi Sort_Mode_Descending = True EntoncesSi UCase (Sheets (Outer_Loop) .Name)> UCase (Sheets (Inner_Loop) .Name) EntoncesSheets (Outer_Loop) .Move Before: = Sheets (Inner_Loop)Terminara siTerminara siSi Sort_Mode_Descending = False, entoncesSi UCase (Sheets (Outer_Loop) .Name) <UCase (Sheets (Inner_Loop) .Name) EntoncesSheets (Outer_Loop) .Move Before: = Sheets (Inner_Loop)Terminara siTerminara siSiguiente Inner_LoopSiguiente Outer_Loop |
Para descargar el archivo .XLSM de este artículo, haga clic aquí.
