ordenar hojas

28/09/2005 - 16:30 por Arenas | Informe spam
Hola a Todos

¿Cómo puedo ordenar alfabéticamente las hojas de cálculo (45) de un libro?

Saludos y gracias por anticipado.
 

Leer las respuestas

#1 daniel_hg
28/09/2005 - 20:27 | Informe spam
Este código de macro te servirá.
***************************************************************************************

Sub OrdenarHojas()
' El orden que este código establece, es alfabético
' y no tiene necesariamente que corresponderse con
' el índice de la hoja dentro del libro

Dim lngHojas As Long
Dim i As Long
Dim j As Long

lngHojas = ActiveWorkbook.Sheets.Count

For i = 1 To lngHojas
For j = i To lngHojas
If LCase(Sheets(j).Name) < LCase(Sheets(i).Name) Then
Sheets(j).Move Before:=Sheets(i)
End If
Next j
Next i

End Sub

********************************************************************************************
"Arenas" escribió en el mensaje
news:
Hola a Todos

¿Cómo puedo ordenar alfabéticamente las hojas de cálculo (45) de un libro?

Saludos y gracias por anticipado.

Preguntas similares