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:
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:
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.
¡¡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
EXCEL SIGNUM 