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...

Boa noite chacalrj Seja bem-vindo ao fórum! Como você é novato, para facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo do...

O erro é porque como estamos convertendo e formatando um valor vindo de um textbox para numerico, se o mesmo estiver em branco temos o erro. O ideal é...