Ordenar Hojas del libor.

Hola NOE´S,

Prueba el siguiente codigo.

Saludos,
KL

'Inicio Codigo-
Sub OrdenarHojas()
Dim Ant As Integer
Dim Desp As Integer
For Desp = 1 To Worksheets.Count
For Ant = Desp To Worksheets.Count
If UCase(Worksheets(Ant).Name) < _
UCase(Worksheets(Desp).Name) Then _
Worksheets(Ant).Move Before:=Worksheets(Desp)
Next
Next
Worksheets(1).Activate
End Sub
'Fin Codigo-


"NOE´S" wrote in message
news:256901c512ce$643f4c40$

Hola._
Con una consulta se puede ordenar las hojas de un
libro por orden alfabetico, por fecha o por numero, si se
puede favor de ayudarme en esto y tambien para que al
ponerle ejemplo a la primera hoja " A " la siguiente sea
" B " , " C ", etc, o sea correlativamente, o hay alguna
manera de que esto se haga por una macro o algo asi, de
antemano gracias por su ayuda y apoyo.

Gracias Excel-ente me funciono pero por ejemplo si en vez
que vaya de a,b,c,d desea que vaya d,c,b,a como podria
hacerlo aparte con respecto a lo de poner nombre a las
hojas se puede hacer algun codigo para que se lo ponga
automaticamente. Espero tu ayuda.

Hola NOEŽS,

Prueba el siguiente codigo.

Saludos,
KL

'Inicio Codigo-
Sub OrdenarHojas()
Dim Ant As Integer
Dim Desp As Integer
For Desp = 1 To Worksheets.Count
For Ant = Desp To Worksheets.Count
If UCase(Worksheets(Ant).Name) < _
UCase(Worksheets(Desp).Name) Then _
Worksheets(Ant).Move Before:=Worksheets(Desp)
Next
Next
Worksheets(1).Activate
End Sub
'Fin Codigo-


"NOEŽS" wrote in message
news:256901c512ce$643f4c40$

Hola._
Con una consulta se puede ordenar las hojas de un
libro por orden alfabetico, por fecha o por numero, si se
puede favor de ayudarme en esto y tambien para que al
ponerle ejemplo a la primera hoja " A " la siguiente sea
" B " , " C ", etc, o sea correlativamente, o hay alguna
manera de que esto se haga por una macro o algo asi, de
antemano gracias por su ayuda y apoyo.

.

Hola NOE´S,

Prueba cambiar "<" por ">".

Saludos,
KL

"NOE´S" wrote in message
news:04d101c51362$10ff80b0$
Gracias Excel-ente me funciono pero por ejemplo si en vez
que vaya de a,b,c,d desea que vaya d,c,b,a como podria
hacerlo aparte con respecto a lo de poner nombre a las
hojas se puede hacer algun codigo para que se lo ponga
automaticamente. Espero tu ayuda.

Hola NOE´S,

Prueba el siguiente codigo.

Saludos,
KL

'Inicio Codigo-
Sub OrdenarHojas()
Dim Ant As Integer
Dim Desp As Integer
For Desp = 1 To Worksheets.Count
For Ant = Desp To Worksheets.Count
If UCase(Worksheets(Ant).Name) < _
UCase(Worksheets(Desp).Name) Then _
Worksheets(Ant).Move Before:=Worksheets(Desp)
Next
Next
Worksheets(1).Activate
End Sub
'Fin Codigo-


"NOE´S" wrote in message
news:256901c512ce$643f4c40$

Hola._
Con una consulta se puede ordenar las hojas de un
libro por orden alfabetico, por fecha o por numero, si se
puede favor de ayudarme en esto y tambien para que al
ponerle ejemplo a la primera hoja " A " la siguiente sea
" B " , " C ", etc, o sea correlativamente, o hay alguna
manera de que esto se haga por una macro o algo asi, de
antemano gracias por su ayuda y apoyo.

.