Boa noite Clóvis Baixe a planilha e veja se é isto que vc deseja. Apliquei um filtro com fórmulas. Para testar digite outro ID. 25_04_16_Filtrar po...

Boa tarde rilust, É uma observação interessante, mas ele solicitou apenas o mês e na planilha consta apenas informações do ano de 2016. Pode ser que ...

Carlos, fiz a rotina sem testar, e agora, analisando melhor e testei vi onde está o problema. Na rotina do Evento Change tem os : Se a digitação for ...

Marcelo, só para esclarecer : Arquivo > Opções > Avançado >>Opções de Edição - Se desativar esta opção, ela ficará valida para o Aplicativ...

Troque a rotina por esta : Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Range(...

Boa tarde acrnkovic, O erro estava no uso dos parenteses e faltou um MÊS(). Tenta assim: =SOMARPRODUTO((MÊS(Dados!$A$6:$A$12)=MÊS(Resultado!B$4)...

Carlos, sua explicação está um pouco confusa, mas vamos por parte : sempre que teclo Enter ele vai pra "E91" O foco estará sempre em "...

CMALves, não sei qual era o tamanho original, mas estou devolvendo com 450KB, pode ser?

não consigo baixar, diz que não tenho permissão .... Tenta colocar aqui:

Coloque em E2 e arraste para baixo: ="Plan1!$B$"&CORRESP($D2;$B:$B;0)&":$B$" & CORRESP($D2;$B:$B;0)+CO...

eu ajudo vc e a reduzo ao tamanho original, mas arrume um jeito de publicá-la em algum share e coloque o link aqui ... ou zipa ela...

Tarcelles boa noite, obrigado por me responder, mas já tinha usado esta função e não deu certo. silvajmp

Boa tarde otimista Conforme as regras do fórum o tamanho máximo para anexar no fórum é de 2Mb, e deve estar compactado. Se não consegue anexar direta...

No frmManuais da este erro: Private Sub txtnumerodomanual_DblClick(ByVal Cancel As MSForms.ReturnBoolean) ActiveWorkbook.FollowHyperlink txtnumerod...

Na questão principal, troque as rotinas pelas as abaixo : Private Sub TextBoxAIinicial_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Di...