Macro para Sortear de mayor a menor
Necesito una Macro para Sortear de mayor a menor
Tengo este código
Range("B1:D1").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Worksheets("Summary").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Summary").Sort.SortFields.Add Key:=Range("D2:D13") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Summary").Sort
.SetRange Range("B1:D13")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
-----------------------
Pero cuando los datos no alcanza hasta el rango que dice ("D2:D13") entonces no se aomodan bien se recorren hacia bajo, mientras los datos estén hasta el rango que se menciona ahí no manda error pero si no llega hasta ahí se mueven
2 respuestas
http://www.programarexcel.com/2013/12/ordenar-mediante-varios-criterios_6.html
http://www.programarexcel.com/2014/01/activar-hoja-y-ordenar-datos.html
http://www.programarexcel.com/2014/04/macro-vba-ordenar-por-varias-columnas.html
http://www.programarexcel.com/2013/12/ordenar-mediante-varios-criterios.html
http://www.programarexcel.com/2013/10/ordenar-datos-insertar-filas.html
Mira te paso varios ejemplos sobre ordenar datos o sortear como dices tu, fíjate que la mayoría de los ejemplos determinan en forma automática el rango a ordenar es decir no importa si tiene más datos o menos datos, el rango se determina en forma automática.
Primero obtiene el fin de rango. En la sección Macros de mi sitio deje varios ejemplos, y para este caso voy a utilizar la siguiente. Instrucción:
Filax= range("D13").end(xlup).row
Y luego, en todas las instrucciones del Sort, donde tengas que mencionar el rango seria:
Range("D2:D" & Filax)
Y en la otra: Range("B1:D" & Filax)
Arma la, probarla y comentame.
Sdos!
Hola elsa matilde ya lo probé pero no me funciona gracias
Adjunto imagen. Entiendo que la col D tiene datos hasta fila 13 pero algunos pueden quedar vacíos, entonces las líneas modificadas se marcaron de rojo.
Si tu hoja difiere de lo que se interpreta en tu consulta, debieras subir también una imagen o enviarmela a mi correo.
Sdos
Elsa
