ordenar alfabeticamente hojas

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



.

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



.

.

El amigo Fernando, contesto una pregunta similar en fecha 29-09, pregunta
que hizo Cechu, busca la respuesta en Google, si no la encuentras comentas y
te posteare la respuesta.

Saludos. Völkl.

La inteligencia consiste no sólo en el conocimiento, sino también en la
destreza de aplicar los conocimientos en la práctica.

Para contestarme o enviarme un e- mail sustituye la información de para o
replay, por Wolkl arroba hotmail punto com
"Cristian" ha escrit en el missatge dels grups de
discussió:

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

Lisandro
en que parte del modulo se escribe el codigo

"Lisandro" escribió:

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
>>
>>
>>
>>.
>>
>.
>

Hola Blacio!!

en que parte del modulo se escribe el codigo

..Dos formas que hacen lo mismo:
1.- Alt+F11 vas al Thisworbook copias el codigo y lo pegas
alli Listo..
2.-En el Nombre de la Pestaña Hoja1 Hoja2 etc boton
derecho del Mouse ver codigo y = al punto 1.
Ya copiado cierra la parte de V°B para regresar al archivo
como tal!! Posterior Menu\Herramienta\Macro\Macros\Alli
seleccionas Ordenar hojas y Ejecutar, Suerte Saludos
Cualquier duda comenta.
Lisandro.

Lisandro
en que parte del modulo se escribe el codigo

"Lisandro" escribió:

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
>>
>>
>>
>>.
>>
>.
>

.