ORDENAR COLUMNAS DE FORMA ASCENDENTE O DESCENDENTE SI SON PARES O IMPARES

Hola a todos!:

Hace unos días me pedían que modificase una macro publicada hace unos años en esta web para hacer lo siguiente:

Que ordenase los datos contenidos en varios columnas de forma ascendente o descendente en función de si la columna era par o impar. Sobre este punto he de puntualizar que las columnas deben ser contiguas (no deben existir columnas en blanco).

Tenemos los siguiente datos:

ordenar columnas de forma ascendente o descendente si son pares o impares

Lo que pretendemos es que cuando la columna sea par los datos se ordenarán de forma descendente y si son impares, ascendente.

Para ello utilizaremos la siguiente rutina, utilizando un loop for-next para recorrer todas las columnas y obtener así su número.

Sub OrdenarColumnas()
Dim i As Double
'Definimos cuantas columnas debemos ordenar contando las que tienen contenido
fin = Application.CountA(Worksheets("Hoja1").Range("1:1"))
For i = 1 To fin
If Application.WorksheetFunction.IsEven(i) Then
'Verificamos si la columna es par o impar
Range(Cells(1, i), Cells(1, i).End(xlDown)).Select
'Si la columna es par, ordenamos descendente
Selection.AutoFilter
Range(Cells(1, i), Cells(1, i).End(xlDown)).Sort Key1:=Cells(1, i), Order1:=xlDescending, _
Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Else
Range(Cells(1, i), Cells(1, i).End(xlDown)).Select
'Si la columna es impar, ordenamos ascendente
Selection.AutoFilter
Range(Cells(1, i), Cells(1, i).End(xlDown)).Sort Key1:=Cells(1, i), Order1:=xlAscending, _
Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If
Next
End Sub

Una vez aplicada la macro, tenemos el resultado que estamos buscando. Como podéis observar, hemos introducido una condición y utilizado la función IsEven para evaluar si el contenido de la variable “i” es par y si no lo es, será impar.

Pulsa en el botón ordenar y se ejecutará la macro:

ordenar columnas de forma ascendente o descendente si son pares o impares2

Y este fue la respuesta a la consulta realizada : )

Descarga el archivo de ejemplo pulsando en: ORDENAR COLUMNAS DE FORMA ASCENDENTE O DESCENDENTE SI SON PARES O IMPARES

¿Te ha resultado de interés?, puedes apoyar a Excel Signum con una pequeña donación.

Donate Button with Credit Cards

¡¡Muchas gracias!!

Mediante la suscripción al blog, la realización comentarios o el uso del formulario de contacto estás dando tu consentimiento expreso al tratamiento de los datos personales proporcionados según lo dispuesto en la ley vigente (LOPD). Tienes más información al respecto en esta página del blog: Política de Privacidad y Cookies

¿Te ha gustado?, Realiza un comentario.

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios .