Usuário com melhor resposta
Excel

Pergunta
-
Boa tarde a todos,
Estou desenvolvendo uma planilha módelo para utilização dos almoxarifados nela consta várias formulas e após a inserção dos dados, há a necessidade de ordenar uma coluna de forma decrescente.
Minha planilha têm preenchido da coluna A até a AQ, da linha 10 até um quantitativo variável.
Preciso ordenar a planilha com base na coluna P de forma decrescente. Entretanto as únicas colunas que serão ordenadas são as colunas de A até a P pois as outras são colunas com formula que ao serem classificadas geram erro.
Muito obrigada,
Juliana
Respostas
-
Obrigada Diniabr2011,
Consegui uma forma de resolver esse problema utilizando macro e o resultado foi esse:
'Sub Ordenar ABC ()
' OrdenarABC Macro
' Ordena as colunas de A a P
'
' Atalho do teclado: Ctrl+a
'
Range("A10:P10").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Worksheets("Estoque (2)").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Estoque (2)").Sort.SortFields.Add Key:=Range( _
"P10:P1803"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Estoque (2)").Sort
.SetRange Range("A10:P1803")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Obrigada pela intensão de me ajudar!Juliana- Marcado como Resposta Juliana Esteves segunda-feira, 16 de julho de 2012 13:52
Todas as Respostas
-
-
Obrigada Diniabr2011,
Consegui uma forma de resolver esse problema utilizando macro e o resultado foi esse:
'Sub Ordenar ABC ()
' OrdenarABC Macro
' Ordena as colunas de A a P
'
' Atalho do teclado: Ctrl+a
'
Range("A10:P10").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Worksheets("Estoque (2)").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Estoque (2)").Sort.SortFields.Add Key:=Range( _
"P10:P1803"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Estoque (2)").Sort
.SetRange Range("A10:P1803")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Obrigada pela intensão de me ajudar!Juliana- Marcado como Resposta Juliana Esteves segunda-feira, 16 de julho de 2012 13:52