empresa

formación

elearning

asistencia

servicios

Ordenar alfabéticamente las hojas de un libro de Excel

A menudo solemos crear multitud de hojas (pestañas) dentro de nuestro libro de trabajo para ordenar nuestro trabajo, etiquetándolas con diversos nombres según nos convenga.  Sería muy interesante poder tener todas nuestras hojas ordenadas alfabéticamente para poder acceder a ellas de una forma más rápida y ordenada.  Con esta macro lo podemos conseguir:

Sub ordena_hojas()
On Error Resume Next
For Each hoja In Sheets
For x = 1 To Sheets.Count
If UCase(Sheets(x).Name) > UCase(Sheets(x + 1).Name) Then
Sheets(x + 1).Move before:=Sheets(x)
End If
Next
Next
End Sub

Luis Miércoles 16 Mayo 2012 a las 10:15 am | | Microsoft Office y ofimática, · Microsoft Excel
Etiquetas utilizadas: , , , ,
Compartir en:
  • Facebook
  • Google
  • LinkedIn
  • MySpace
  • Twitter

Un comentario

Ignacio

Muy buna macro Graciass!

Ignacio, - 14-03-’14 19:00
(optional field)
(optional field)
¿Recordar información personal?
Letra pequeña: Todas las etiquetas html excepto e serán eliminadas de su comentario. Puede introducir enlaces simplemente escribiendo la url o direcciones de e-mail.