Ao menos anexe o arquivo correto, o modelo que só tem uma aba (Plan1) e nas rotinas temos várias referencias a outras : Estas instruções estão perdida...

Fagner, não sei o que não conseguiu, mas se utilizou corretamente a dica do Reinaldo, não é para ter problemas: Troque : ActiveCell.Value = Text...

Blz galera, até o momento deu certo. Somente para finalizar, tem uma detalhe que esta faltando. Quando o mês é 03, o codigo imprime somente o numero 3...

Olá Patropi... As tabelas estão funcionando perfeitamente. Apenas que estou tendo problemas com alguns planos, por eles iniciarem com a mesma palavra...

Boa noite Para facilitar anexe a planilha, demonstrando manualmente o resultado esperado, pois assim possibilita conferência do resultado. []s

Boa noite Experimente, copiar e colar na célula P7 a fórmula: =SE(OU(L7="AP";N7="AP";O7>=5);"APROVADO";SE(O7<5;&...

Nilton Quando eu copiei as formulas da tabela de cima para a de baixo, acabei me esquecendo, de adaptar para o novo intervalo, mas agora já fiz as co...

Olá Patropi... Testei a planilha e a tabela "POR TAMANHO" funciona certinho. Já a tabela "RESUMO POR PLANO" apresenta uns valores...

Boa noite Nilton No lado direito da tua planilha eu apliquei um filtro com formulas, que só retorna os dados que são maiores que zero. Apliquei forma...

Oi Patropi... Entendi... eu realmente havia entendido errado e fui tentar o filtro avançado. Teoricamente, então, não há como eu fazer o que eu prete...

Nilton Eu havia pensado em filtro com fórmulas, não Filtro avançado, mas cliquei na tabelas que você quer filtrar e constatei que ela já é resultado ...

Entendi que o numero está em Cells(2, "j"), se for isso, altere a linha : A = Cells(2, "j").Value por esta A = Right("0...

Bom dia, Patropi. Eu tentei usar o filtro avançado para copiar os dados para outro local, pois assim eu poderia ocultar as tabelas inteiras e fazer a...

Nilton Dá para filtrar para outra local da planilha ou outra planilha, só os dados maiores que zero. []s

Seria isso? Sub Enumerar() Dim I As Integer Dim k As Integer Dim j As Integer k = 1 j = Plan1.Cells(Rows.Count, 2).End(xlUp)...