ordenar alfabeticamente hojas

Hola, miles de gracias, me sirvio de muchos

Saludos

Cristian
Resistencia-Chaco
Argentina

"Lisandro" escribió en el mensaje
news:092901c4a7c5$95fae420$
Hola Cristian - anonymous!!

Cristian:Hola quisiera saber si hay manera de ordenar

alfbeticamente las hojas de un libro de excel..

anonymous:Creo que lo más práctico es que vayas moviendo

las hojas, arrastrándolas, hasta que consigas ese orden
alfabético que deseas...*******""""&%$%&%$"""

...Prueba con este codigo expuesto dias atras por F.A. que
ademas funciona de maravilla en el Thisworbook del libro..
Sub OrdenarHojas()
Dim wksH As Worksheet
Dim mtrHojas() As String
Dim intBucle As Integer
Dim blnOrdenado As Boolean
Dim strCambio As String

ReDim mtrHojas(1 To ThisWorkbook.Worksheets.Count)

For Each wksH In ThisWorkbook.Worksheets
mtrHojas(wksH.Index) = wksH.Name
Next

Do
blnOrdenado = True

For intBucle = 1 To UBound(mtrHojas) - 1

If mtrHojas(intBucle) > mtrHojas(intBucle + 1)
Then
strCambio = mtrHojas(intBucle)
mtrHojas(intBucle) = mtrHojas(intBucle + 1)
mtrHojas(intBucle + 1) = strCambio
blnOrdenado = False
Exit For
End If

Next intBucle

If blnOrdenado Then Exit Do
Loop

Application.ScreenUpdating = False
For intBucle = UBound(mtrHojas) To LBound(mtrHojas)
Step -1
Sheets(mtrHojas(intBucle)).Move before:=Sheets(1)
Next intBucle
Application.ScreenUpdating = True

Set wksH = Nothing
End Sub

Espero sea de tu utilidad,
Saludos,
Lisandro

A veces, la solución del "huevo de Colón" evita
complicaciones innecesarias. Creo que lo más práctico es
que vayas moviendo las hojas, arrastrándolas, hasta que
consigas ese orden alfabético que deseas. Son 20 hojas, o
sea que contando una media de 10 segundos por hoja, te
costará unos 3 minutos y medio, como mucho.

Lo que has tardado en escribir tu mensaje, y lo que
tendrás que dedicar a confeccionar y ejecutar el código
VBA necesario, seguro que te llevará, como mínimo, el
quíntuplo de tiempo.

Hola quisiera saber si hay manera de ordenar

alfbeticamente las hojas de un

libro de excel, proque he creado 20 hojas con nombres

diferentes en el libro

y ahora me seria comodo q estuvieran por orden

alfabetico pero no encuntro

una opcion q lo haga. Gracias


GI Comunicaciones
Agente Oficial
H. Irigoyen 188
Resistencia - Chaco
Tel.03722-433373
Cel. 03722-15548587



.

.