Este fórum está sendo desativado

[SandroLima]

Boa noite, pessoal

Estou aproveitando essa macro de uma outra planilha e nesta ela não faz a organização das datas.

Poderiam me apontar o erro?

Segue planilha anexa.

[SandroLima]

Boa tarde, pessoal

Alguém sabe o erro que estou fazendo?

Transcrevi essa macro de outra planilha... serve para ordenar conforme as datas.

Alguém poderia apontar qual meu erro?

[JCabral]

Caro SandroLima

Essa sua macro, Ordena_Itens_Serviços, não ordena rigorosamente nada!

Pretende ordenar a sua tabela, como? Pela data?

[babdallas]

Código: Selecionar todos

Tabela.DataBodyRange.Sort Key1:=Tabela.ListColumns("Data").DataBodyRange, _
                                Order1:=xlAscending, Header:=xlYes

[SandroLima]

Boa noite, prezados.

Consegui finalmente ajustar.

A macro funciona corretamente e preciso dela nessa estrutura pq serão inseridos vários passos para o correto ordenamento.

O primeiro erro estava nessa linha:

Código: Selecionar todos

Set RngCol = Range(Cells(IniLin, ColNum), Cells(UltLin, ColNum))

O correto era:

Código: Selecionar todos

Set RngCol = Range(Cells(IniLin, ColData), Cells(UltLin, ColData))

E depois ao final do código estava faltando esse trecho:

Código: Selecionar todos

If Not RngTabela Is Nothing Then
            Plan.Sort.SortFields.Clear
            Plan.Sort.SortFields.Add Key:=RngCol, _
                SortOn:=SortTipo, Order:=SortOrdem, DataOption:=xlSortNormal
                
            With Plan.Sort
                .SetRange RngTabela: .Header = xlGuess: .MatchCase = False
                .Orientation = xlTopToBottom: .SortMethod = xlPinYin: .Apply
            End With
        End If

Agora está rodando novamente.

Muito obrigado pela ajuda.