none
Classificação por ordem Crescente de apenas algumas colunas RRS feed

  • 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

    quarta-feira, 11 de julho de 2012 19:51

Respostas

  • Obrigada Benzadeus,

    Consegui uma forma de resolver esse problema 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:51
    segunda-feira, 16 de julho de 2012 13:51

Todas as Respostas

  • Juliana, dependendo das fórmulas presentes na sua Planilha, você pode obter um erro. Disponibilize sua Pasta de Trabalho num site como sendspace.com para eu dar uma olhada.

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    sexta-feira, 13 de julho de 2012 22:15
    Moderador
  • Obrigada Benzadeus,

    Consegui uma forma de resolver esse problema 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:51
    segunda-feira, 16 de julho de 2012 13:51