Este fórum está sendo desativado

[SandroLima]

Boa noite.

Alguém poderia me apontar qual o problema e correção que deve ser feita na Macro de Classificação da planilha anexa.

Uso a mesma macro em várias tabelas e nesse caso especificamente está apresentando problemas quando incluo o Passo = 3.

Poderiam verificar por gentileza?

Segue planilha anexa.

[babdallas]

Mude esta linha

Código: Selecionar todos

            Set RngCol = Range(Cells(Ini_Lin, Col_Reg ), Cells(Ult_Lin, Col_Reg ))

Para

Código: Selecionar todos

            Set RngCol = Range(Cells(Ini_Lin, Col_Reg + 1), Cells(Ult_Lin, Col_Reg + 1))

[SandroLima]

Boa tarde, babdallas.

Obrigado pela intenção de ajudar... entendo que com sua solução ele passa a referenciar a Coluna [Data] para classificar/ordenar a Tabela.
Seria o mesmo que substituir o Col_Reg + 1 por Col_data.
Porém usando dessa forma pode acontecer de em datas repetidas os registros ficarem fora da ordem desejada.

Mas gostaria mesmo é de entender pq ele não permitiu fazer a rotina usando a Coluna [Registro].

Sabem me dizer o motivo?

[babdallas]

Não usei a coluna Data, mas sim a Registro. Por algum motivo, o seu range registro estava pegando a coluna A e não a coluna B. Por isso somei 1 para corrigir.

[SandroLima]

Excelente, babdallas.

Era exatamente isso mesmo. Identifiquei aqui pq ele estava referenciando sempre a coluna anterior.

Muito obrigado.