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:
Sub actual()
Rows("7:67").Select
ActiveWorkbook.Worksheets("INGRESO DE NOTAS").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("INGRESO DE NOTAS").Sort.SortFields.Add Key:=Range( _
"A7:A67"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="n,v" _
, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("INGRESO DE NOTAS").Sort.SortFields.Add Key:=Range( _
"B7:B67"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("INGRESO DE NOTAS").Sort
.SetRange Range("A7:FA67")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Es `por eso que necesito que me ayuden a elaborarla mas profesionalmente, como ustedes lo saben hacer, generando el código personalmente.