VBA para ordenar rangos de celdas

Estimad@s colegas,

Necesito que me ayuden, para que mediante un código VBA pueda ordenar un rango de celdas (de una hoja Excel) a partir los valores de una columna, en forma ascendente/descendente. El código lo necesito integrar en una aplicación en .Net que estoy haciendo (por medio de Interop. Excel). Por lo que he entendido ésto se hace con la función "Sort", pero no sé como utilizarla correctamente.

Teniendo en cuenta que el rango que quiero ordenar es: "A1" - "C100", se tiene que ordenar por la columna "B" (de forma ascendente/descendente), aclarando que no tiene encabezados (solamente son valores).

Ejemplo (como tengo los rangos):

            A                    B                     C

1        valor1          50%              valor3

2        valor4          2.3%             valor5

3       valor6          99.9%            valor7

4       valor8           37%              valor9

5       valor 10        15.4%          valor11

Nx          Vx                x%                 Vx

100   valor 12        34.4%          valor13

1 respuesta

Respuesta
4

Este es el código para ordenar de forma ascendente por la columna B

Sub ordenar()
    ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Add Key:=Range("B1:B100"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Hoja1").Sort
        .SetRange Range("A1:C100")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Y este es para ordenar de forma descendente

Sub ordenar2()
    ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Add Key:=Range("B1:B100"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Hoja1").Sort
        .SetRange Range("A1:C100")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Saludos.Dante Amor

Si es lo que necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

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

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

Ordenar varias columnas independientemente entre sí

Mi objetivo es ordenar 4 columnas, con datos de fechas, por orden decreciente. Tengo el siguiente código que lo hace, pero mi pregunta es si se puede aligerar el mismo, para evitar tantas líneas de código y aumentar su velocidad. El rango de datos en...
2 respuestas

Macro que realice orden personalizado con 5 niveles de ordenamiento

Quisiera una rutina que me permita ordenar un rango de datos (A9:S10000), que me los ordene por niveles de la siguiente forma: Primero columnaA9:A10000 Segundo columnaB9:B10000 Tercero columnaC9:C10000 Cuarto columnaO9:O10000 Quinto columnaQ9:Q10000
2 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

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

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

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

Macro para ordenar un rango variable

Tengo esto dela grabadora Sub Macro10() ' ' Macro10 Macro ' ' Acceso directo: Ctrl+Mayus+L ' Rows("9").Select Range(Selection, Selection.End(xlDown)).Select ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Clear...
1 respuesta