Saltar al contenido

Como ordenar hojas en forma ascendente


.

Anteriormente te mostré como ordenar hojas en forma descendente, ahora te muestro lo opuesto, es decir que el orden de las hojas sea en forma ascendente.

Recomiendo que leas un excelente libro sobre Excel el que te ayudará operar las planillas de cálculo, haz click acá, si quieres un libro sobre Excel, en inglés, entonces debes hacer click acá. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.

  

El ejemplo de macro tiene como fin poder seleccionar la impresora que deseamos previo a la impresión, existen varios post relacionados con toda esta saga de artículos relacionados con macros para imprimir en Excel como son: imprimir una hoja del libro de Excelcomo configurar una hoja de Excel mediante macro, imprimir en una impresora distinta a la que se encuentra por defecto.

La macro de ejemplo en VBA presentada en este post es bastante simple, lo que realiza es un recorrido de todas las hojas, hoja por hoja estableciendo el nombre de la misma y comparando en base a ello las va modificando de lugar, descarga el ejemplo y apreciarás en forma más fácil lo expresado.

Desde el link del final descarga el ejemplo denominado como ordenar hojas en forma ascendente, lo puedes modificar y adaptar a tus necesidades ya que el código se encuentra abierto y disponible para que lo adaptes.


El siguiente vídeo de Youtube muestra una explicación en detalle, míralo y comparte con tus amigos en las redes sociales; suscribe para recibir todas las actualizaciones en tu mail.


if (payload.eventType == ‘subscribe’) {
// Add code to handle subscribe event.
} else if (payload.eventType == ‘unsubscribe’) {
// Add code to handle unsubscribe event.
}
if (window.console) { // for debugging only
window.console.log(‘YT event: ‘, payload);
}
}

Código que se inserta en un módulo


Sub OrdenaHojaAsc()
For ii = 1 To Sheets.Count – 1
    For jj = ii + 1 To Sheets.Count
        If Sheets(ii).Name > Sheets(jj).Name Then
           Sheets(jj).Move before:=Sheets(ii)
        End If
    Next jj
Next ii
Sheets(«AAA»).Select
End Sub

Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.


.

If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.

Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends