ordenar alfabeticamente hojas
Cristian
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
actg...@arnet.com.ar
anon...@discussions.microsoft.com
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.
>-----Mensaje original-----
>.
>
Lisandro
>>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
>-----Mensaje original-----
>.
>
Völkl
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" <gi...@arnet.com.ar> ha escrit en el missatge dels grups de
discussió:O4JccD7p...@tk2msftngp13.phx.gbl...
BLACIO
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
Lisandro
>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.
>-----Mensaje original-----
>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...*******""""&%$%&%$"""
>> >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.
>> >
>> >>-----Mensaje original-----
>> >>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
>> >>actg...@arnet.com.ar
>> >>
>> >>
>> >>.
>> >>
>> >.
>> >
>>
>.
>
Cristian
Saludos
Cristian
Resistencia-Chaco
Argentina
"Lisandro" <anon...@discussions.microsoft.com> escribió en el mensaje
news:092901c4a7c5$95fae420$a501...@phx.gbl...