ordenar hojas

21/03/2006 - 21:08 por dubicm | Informe spam
Hola a tod@s,

mi pregunta es la siguiente: en un libro tengo muchas hojas creadas y lo que
quiero es ordenarlas alfabéticamente, es posible hacer esto mediante algún
comando o alguna opción del menú, sin necesidad de estarlar moviendo una a
una?

espero que me podais ayudar.

muchas gracias.

saludos.

dubicm

Preguntas similare

Leer las respuestas

#1 luka
21/03/2006 - 21:15 | Informe spam
Hola dubicm
mira el ejemplo 84 de esta página
http://www.xl-logic.com/pages/vba.html
hace exactamente lo que quieres
Saludos
Javier B.


dubicm escribió:
Hola a ,

mi pregunta es la siguiente: en un libro tengo muchas hojas creadas y lo que
quiero es ordenarlas alfabéticamente, es posible hacer esto mediante algún
comando o alguna opción del menú, sin necesidad de estarlar moviendo una a
una?

espero que me podais ayudar.

muchas gracias.

saludos.

dubicm


Respuesta Responder a este mensaje
#2 Francisco Mty
21/03/2006 - 22:48 | Informe spam
ordenación de un libro
Microsoft ofrece ejemplos de la programación sólo para ilustración sin la
garantía que se expresa o implícito sin la que se incluyen otro no limitado a
las garantías implícitas de comerciabilidad y/o idoneidad para un fin
determinado. Este artículo presupone que conoce el lenguaje de programación
que se muestra y las herramientas utilizadas para crear y depurar
procedimientos. Los profesionales de soporte técnico de Microsoft pueden
ayudar a explicar la funcionalidad de un procedimiento determinado pero no
modificarán estos ejemplos para proporcionar que agregó funcionalidad o
construir procedimientos para satisfacer sus necesidades específicas. Si
tiene poca experiencia en programación, quizá desee ponerse en contacto con
un Microsoft Certified Solution Partner o con la línea del servicio de
consultoría que se ofrece, mediante pago, llamando al Centro de Atención al
Cliente de Microsoft en el número 902 197 198. Para más información acerca de
Certified Partners, visite el sitio Web de Microsoft siguiente:


Sub Sort_Active_Book()
Dim i As Integer
Dim j As Integer
Dim iAnswer As VbMsgBoxResult
'
' Prompt the user as which direction they wish to
' sort the worksheets.
'
iAnswer = MsgBox("Sort Sheets in Ascending Order?" & Chr(10) _
& "Clicking No will sort in Descending Order", _
vbYesNoCancel + vbQuestion + vbDefaultButton1, "Sort Worksheets")
For i = 1 To Sheets.Count
For j = 1 To Sheets.Count - 1
'
' If the answer is Yes, then sort in ascending order.
'
If iAnswer = vbYes Then
If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then
Sheets(j).Move After:=Sheets(j + 1)
End If
'
' If the answer is No, then sort in descending order.
'
ElseIf iAnswer = vbNo Then
If UCase$(Sheets(j).Name) < UCase$(Sheets(j + 1).Name) Then
Sheets(j).Move After:=Sheets(j + 1)
End If
End If
Next j
Next i
End Sub
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida