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
ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Add Key:=Range( _
"J10:J69"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Add Key:=Range( _
"U10:U69"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Add Key:=Range( _
"V10:V69"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort
.SetRange Range("A9:AE69")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Lo que necesito es que esta macro me ordene pero necesito que sea variable desde *10 hasta donde termine el rango

1 Respuesta

Respuesta
1

Adicione una instrucción para encontrar la ultima fila.

Sub Macro10()
Dim UltimaFila
UltimaFila = Range("A" & Rows.Count).End(xlUp).Row
Rows("9").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Add Key:=Range( _
"J10:J" & UltimaFila), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Add Key:=Range( _
"U10:U" & UltimaFila), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Add Key:=Range( _
"V10:V" & UltimaFila), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort
.SetRange Range("A9:AE" & UltimaFila)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Espero te sirva.

Feliz dia

Juan Carlos

Hola

Juan Carlos

esta perfecta tu ayuda, intente con los comandos que me enviaste agregar de bajo delo queme enviaste los siguiente e igualmente no se como poner ese rango variable

Range("L10").Select
ActiveCell.FormulaR1C1 = "=ROUND(RC[-2],0)"
Range("L10").Select
Selection.Copy
Range("J10").Select
Selection.End(xlDown).Select
Range("L34").Select
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("L33").Select
Selection.End(xlUp).Select
Range("L10").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("J10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L10").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=ROUND(RC[9],0)"
Range("L10").Select
Selection.Copy
Range("L11").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("L10").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("U10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L10").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=ROUND(RC[10],0)"
Range("L10").Select
Selection.Copy
Range("L11").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("L10").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("V10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L10").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=ROUND(RC[11],0)"
Range("L10").Select
Selection.Copy
Range("L11").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("L10").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("W10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L10").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub

espero me puedas ayudar

de antemano muchas gracias

Juan Carlos

En la pregunta inicial trabajas con ordenamiento y asi realizamos el código. Pero en la aclaración que me haces, ya no ordenas sino que manejas básicamente copiar, pegar y redondear.

Si te parece bien, enviame un correo a [email protected] con tu archivo de Excel y asi poder ayudarte con el código.

Feliz dia

Juan Carlos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

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

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

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

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

¿Excel Vba como Buscar datos Repetidos en una Columna?

Como le podría hacer para buscar datos repetidos en una columna y que me muestre en una hoja nueva una lista donde el primero sea el mas repetido, el segundo menos repetido y asi sucesivamente.. Si mi columna tiene 10 datos hacia abajo.. Ejemplo Esto...
1 respuesta