Boa tarde!!
Talvez isso o ajude...
Sub AleVBA_10675()
ActiveWorkbook.Worksheets("Cadastro").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Cadastro").Sort.SortFields.Add Key:=Range("A3"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Cadastro").Sort
.SetRange Range("A3:K20000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 19/02/2014 9:42 am