Guru do Excel e Power BI

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.

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?

Caro SandroLima

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

Pretende ordenar a sua tabela, como? Pela data?

Enviado: **01 Jun 2020 às 08:22**

Código: Selecionar todos

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

Enviado: **01 Jun 2020 às 18:51**

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.

Guru do Excel e Power BI

Macro que ordena datas

Macro que ordena datas

Re: Macro que ordena datas

Macro que ordena datas

Re: Macro que ordena datas

Re: Macro que ordena datas