Boa tarde!!

A macro copia um intervalo e classifica!

O que você precisa alterar?

Att

Outra tradução (de leigo k) ... (estranho, copia UMA linha (22) e classifica???)
.
Copia U22:AB22 e cola em BD22 ... Depois classifica em ordem crescente pelas colunas BD e BF ... depois para o cursor em A1!!
.

alexandrevba

Rapaz... ainda nao tenho idéia do que vou precisar mudar. Esse mês vão mudar todo relatório que sempre foi usado nessas macros aqui e eu vou precisar me virar pra arrumar. Eu precisava apenas saber o que ela realmente faz, pois sabendo o que ela significa nos detalhes, eu posso gravar uma macro pegando as mesmas informações que estão escritas nessa macro.

Outra tradução (de leigo k) ... (estranho, copia UMA linha (22) e classifica???)
.
Copia U22:AB22 e cola em BD22 ... Depois classifica em ordem crescente pelas colunas BD e BF ... depois para o cursor em A1!!
.

Muito obrigado amigo!!

Vou dar um jeito de ajustar tudo aqui e tentar gravar uma macro com essas informações que você me passou.

Um pouco mais detalhada :

Sub detalhada()

    'Seleciona a Linha 22 a partir da Coluna U até AB
    Range("U22:AB22").Select

    'A partir da linha selecionada, seleciona as celulas abaixo preenchidas
    'se nao tiver nenhuma preenchida, vai selecionar até a ultima linha em branco
    Range(Selection, Selection.End(xlDown)).Select
    
    'Copia as celulas selecionadas
    Selection.Copy
    
    'Seleciona a Celula BD22
    Range("BD22").Select
    
    'Cola somente os valores
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    'Rola a tela 8 colunas para a direita
    ActiveWindow.SmallScroll ToRight:=8
    
    'Redefine o status de copiar para Falso (limpa da memoria)
    Application.CutCopyMode = False
    
    'Classifica em ordem ascendente os dados colados com base nas colunas BD e BF
    Selection.Sort Key1:=Range("BD22"), Order1:=xlAscending, Key2:=Range( _
        "BF22"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
        :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
        DataOption2:=xlSortNormal
        
    'Seleciona o Range A1
    Range("A1").Select
    
End Sub

[]s

Mauro Coutinho

Muitíssimo obrigado!!!