Ordenar un rango de excel

Tengo un rango de celdas de 2 columnas x 5 filas que contienen diferentes palabras. X ejemplo meses del año y quiero que se ordenen de tal forma:
Abril                 Enero
Febrero            Junio
Marzo               Mayo
Es decir necesito que se ordenen de izquierda a derecha y de arriba a abajo.
Muchas gracias

1 Respuesta

Respuesta
1
Esto seria lo que realizaria la grabadora de macros con los rangos de orden de columna A y B
Sub Macro1()
'
    Columns("A:A").Select
    ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Add Key:=Range("A1:A3"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Hoja1").Sort
        .SetRange Range("A:A")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Columns("B:B").Select
    ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Add Key:=Range("B1:B3"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Hoja1").Sort
        .SetRange Range("B:B")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
End Sub
Si no son esas columnas ó bien son columnas variables dimelo y lo modificamos
Salu2

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ordenar por dos criterios

Necesito que me ayuden a construir una macro que dependa de dos criterios, Ordena primero de n.v,,,, luego de la A a la Z,,, sube o baja la información de toda la fila. Yo lo elabore con la grabadora pero a veces no me funciona. Les dejo el código:...
1 respuesta

Como ordenar columna de rango variable

Grabe una macro y no se como hacer el rango variable en al parte donde dice SetRange range ("A1:M17") La macro grabada es esta: Sub Ordenar_responsable2() ' ' Ordenar_reponsable2 Macro Columns("I:I").Select...
3 respuestas

Ordenar alfabéticamente sin mover formato

Ordenar alfabéticamente sin mover formato Hola. Tengo una planilla con muchos datos y para que sea más fácil la visualización, las filas de un rango de una hoja tienen un color alternado con blanco: la primera fila es blanca, la segunda azul, la...
1 respuesta

Ordenar tabla con macro

Necesito una macro para ordenar una tabla. Buscando he encontrado una macro que hace lo que necesito pero cuando intento adaptarla a mi hoja no me funciona. Lo que pretendo es ordenar una tabla. Cada columna es un campo diferente. En una celda de...
1 respuesta

Fijar una celda para ejecutar una macro

Tengo la siguiente macro al seleccionar una celda especifica en la cual ordeno un rango denominado (M_ENVASE) en la hoja MES ACTUAL, pero al eliminar celdas no me funciona ya que la celda a seleccionar no coinciden con la de la instrucción. Agradezco...
1 respuesta

Rango variable para ordenar

Me he tropezado con un nuevo problema. Como sabes utilizo excel 2007 y con esta versión se puede autofiltrar por colores, cosa que es fundamental en el libro que estoy creando. El problema es que al compartir el libro me he dado cuenta que ha...
1 respuesta

Enviar datos a otra columna sin duplicados,

Resulta que en una columna tengo estos datos así (solo pondré 10 datos pero en realidad son 300) 1 2 4 6 1 7 8 9 4 1 Ahora quiero enviar estos datos a otra columna pero no en la misma pestaña de excel, si no que en otra pestaña, pero sin que se...
2 respuestas

Listbox con datos no repetidos

Tengo un listbox que me trae los números de las facturas pendientes de pago los cuales se encuentran en una hoja llamada "SALDO PENDIENTE", por ello en el Listfillrange tiene la siguiente instuccion: 'CONFIG. PAGOS'!$K$2:$k$1000 Los números de las...
1 respuesta

Macro para ordenar alfabéticamente por varios campos

Tengo un macro que hace una serie de procesos y luego me arroja el siguiente resultado: Individuo Exp Box SFW00119 H12 Box3 SFW09201 H1 Box5 SFW03054 A14 Box11 SFW05662 A1 Box11 SFW07777 H75 Box2 SFW03392 E12 Box1 SFW04331 B12 Box1 Es mucho más...
2 respuestas