MACRO PARA ORDENAR COLUMNAS CON UN CLIC

 MACRO PARA ORDENAR COLUMNAS CON UN CLIC

Ejemplo: Crear una macro para ordenar de forma ascendente los nombres, fecha de nacimiento y edad al dar doble clic en los encabezados correspondientes.

Procedimiento: 

PASO 01: Anticlic en la hoja donde tengo mis datos que deseo ordenar en este caso es la hoja 2 , luego clic en ver código.

PASO 02: Copiar el siguiente código :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancelar As Boolean)

    Dim RangoOrdenar As Range

    Dim NColumnas As Integer

    NColumnas = Range("A1:C9").Columns.Count

    Cancelar = False

    If Target.Row = 1 And Target.Column <= NColumnas Then

        Cancelar = True

        Set RangoOrdenar = Range(Target.Address)

        Range("A1:C9").Sort Key1:=RangoOrdenar, Header:=xlYes

    End If

End Sub

RESULTADOS:

1) Ordenar los nombres en forma ascendente: Damos doble clic en la celda A1 en este caso, donde se encuentra el encabezado nombres y observamos que me está ordenando los nombres de forma ascendente tal como se muestra en la imagen.

2) Ordenar la fecha de nacimiento en forma ascendente: Damos doble clic en la celda B1 en este caso, donde se encuentra el encabezado fecha de nacimiento y observamos que me está ordenando las fechas de nacimiento de forma ascendente tal como se muestra en la imagen.

3) Ordenar la edad en forma ascendente: Damos doble clic en la celda C1 en este caso, donde se encuentra el encabezado edad y observamos que me está ordenando las edades de forma ascendente tal como se muestra en la imagen.