Excel vba Organizar Tabela por varios

[Netrox92]

Ola,
 
Estou fazendo uma planilha e preciso organizar uma tabela. porém essa tabela precisa ser organizada levando em conta
4 colunas.
Eu consigo fazer o codigo para organizar levando em conta até 3 colunas, porém quando eu coloco mais da erro
 

Segue o codigo que eu utilizo: (Organiza levando em conta apenas 3 colunas)

Range("B7:CG256").Select

ActiveWorkbook.Worksheets("DB").Sort.SortFields.Clear

Worksheets(2).Range("B7:CG256").Sort Key1:=Worksheets(2).Range("C7"), Order1:=xlAscending, _

Key2:=Worksheets(2).Range("D7"), Order1:=xlAscending, _

Key3:=Worksheets(2).Range("E7"), Order1:=xlAscending

With ActiveWorkbook.Worksheets("DB").Sort

.SetRange Range("B7:CG256")

.Header = xlGuess

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

 

 

Quando eu coloco a Key4 trava....

alguem sabe como organizar levando em conta 4 colunas?

A Quarta coluna seria a ("F7")

 

 

Agradeço desde ja a atenção

Abraços

[vagnersouza1976]

Boa tarde !!!

 

Veja se atende ...

 

    Worksheets(1).Select

    ActiveWorkbook.Worksheets("DB").Sort.SortFields.Clear

    ActiveWorkbook.Worksheets("DB").Sort.SortFields.Add Key:=Range("C7"), _

        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    ActiveWorkbook.Worksheets("DB").Sort.SortFields.Add Key:=Range("D7"), _

        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    ActiveWorkbook.Worksheets("DB").Sort.SortFields.Add Key:=Range("E7"), _

        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    ActiveWorkbook.Worksheets("DB").Sort.SortFields.Add Key:=Range("F7"), _

        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("DB").Sort

        .SetRange Range("B7:CG256")

        .Header = xlYes

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

 

Sem mais.

[Netrox92]

Ola vagnersouza1976,

Obrigado pela resposta!

 

Vou testar aqui, e ja falo se funcionou

 

abraços

[Netrox92]

Ola 

vagnersouza1976

Obrigado pela resposta. Funcionou sim. valeu

 

Abraços