Página 1 de 1

ATIVAR MACRO CONDICONADA AO VALOR DE CELULA COM FORMULA

Enviado: 04 Abr 2019 às 08:58
por Leonardo1234
Caros,

Eu fiz uma macro que toca o som de um alerta vermelho quando uma célula é maior do que zero, porém ela só funciona e é ativada quando eu escrevo manualmente na célula um valor maior que zero. O mesmo não acontece quando o valor fica maior que zero e se atualiza através de uma fórmula, que é o que eu preciso. Eu vou colocar a planilha em anexo para facilitar.

No caso portanto, a célula que precisa ser maior que zero para ativar a macro é a célula M20 pintada de verde. Porém ela só ativa a macro, se eu escrever manualmente um valor maior que zero nela. O que eu preciso é igualar com formula a célula M20 a N20, onde nessa tem uma formula de cont.núm sobre o intervalo b18 a b520. Assim, o que eu preciso de fato é que ao escrever um número qualquer que não contenha letras em qualquer célula do intervalo B18 a B520 atualizando a formula cont.núm da célula N20 que vai ficar maior que zero, a célula M20 também se ative através da formula =N20 na mesma, ativando portanto a macro que toca o alerta vermelho. O alerta portanto deve ser ativado no momento que seja computado qualquer número sem letra no intervalo B18 a B520.

Para facilitar, a macro que toca o alerta se chama Planilha1.Tocar.

Agradeço pela ajuda.

Leonardo

Re: ATIVAR MACRO CONDICONADA AO VALOR DE CELULA COM FORMULA

Enviado: 04 Abr 2019 às 09:45
por Patropi
Bom dia Leonardo

Dê uma pesquisada no evento calculate, só que o problema que a macro será executada sempre que a planilha for recalculada.

[]s

Re: ATIVAR MACRO CONDICONADA AO VALOR DE CELULA COM FORMULA

Enviado: 04 Abr 2019 às 11:50
por osvaldomp
Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
 If Target.Count > 1 Then Exit Sub
 If Intersect(Target, [B18:B520]) Is Nothing Then Exit Sub
 If [M20] > 0 Then Planilha1.Tocar
End Sub
recomendação - no seu arquivo há uma macro que, ao abrir o arquivo, altera a formatação do Excel, isso é indesejável, inconveniente e invasivo, pois é feito sem prévio aviso e sem autorização de quem baixa o arquivo. Para evitar esse transtorno você deve colocar um alerta na postagem em que o arquivo for disponibilizado ou, ainda mais inteligente e oportuno, desabilite a macro que altera a formatação do Excel.

Re: ATIVAR MACRO CONDICONADA AO VALOR DE CELULA COM FORMULA

Enviado: 04 Abr 2019 às 12:02
por Leonardo1234
Osvaldo, obrigado pela dica em relação a desabilitação da macro que realiza a alteração de formtação, vou utilizar.

Eu só fiquei com uma duvida, onde eu devo inserir esse código para que dê certo? Em um novo modulo, em cima do código que já está embaixo da macro Planilha1.Tocar? Agradeço.

Re: ATIVAR MACRO CONDICONADA AO VALOR DE CELULA COM FORMULA

Enviado: 04 Abr 2019 às 12:07
por Leonardo1234
Eu testei substituindo o código que eu tinha pelo seu, porém a macro é ativada quando qualquer célula é imputada no intervalo b18:b520. Eu preciso que ela se acione apenas quando forem imputados nesses intervalos valores numerais, ou seja, que não não contenham letras, por isso que coloquei a formula cont.núm na célula N20 e a minha ideia era usa-la como referência para ativar a macro.

Re: ATIVAR MACRO CONDICONADA AO VALOR DE CELULA COM FORMULA

Enviado: 04 Abr 2019 às 12:09
por osvaldomp
substitua a linha abaixo
Código: Selecionar todos
If Intersect(Target, [B18:B520]) Is Nothing Then Exit Sub
por esta abaixo
Código: Selecionar todos
If Intersect(Target, [B18:B520]) Is Nothing Or Not IsNumeric(Target.Value) Then Exit Sub

Re: ATIVAR MACRO CONDICONADA AO VALOR DE CELULA COM FORMULA

Enviado: 04 Abr 2019 às 12:11
por Leonardo1234
Não sei se você viu essa respostas, então estou pondo novamente. Eu testei substituindo o código que eu tinha pelo seu, porém a macro é ativada quando qualquer célula é imputada no intervalo b18:b520. Eu preciso que ela se acione apenas quando forem imputados nesses intervalos valores numerais, ou seja, que não não contenham letras, por isso que coloquei a formula cont.núm na célula N20 e a minha ideia era usa-la como referência para ativar a macro.

Re: ATIVAR MACRO CONDICONADA AO VALOR DE CELULA COM FORMULA

Enviado: 04 Abr 2019 às 12:17
por osvaldomp
Leonardo1234 escreveu:Não sei se você viu essa respostas, ...
Vi depois que postei. Eu editei a postagem e coloquei lá a substituição da linha do código para só considerar se forem inseridos números. Veja se atende.

Re: ATIVAR MACRO CONDICONADA AO VALOR DE CELULA COM FORMULA

Enviado: 04 Abr 2019 às 12:23
por Leonardo1234
Cara, muito obrigado, funcionou perfeitamente. Só tem um ultimo detalhe, quando eu abro a planilha e quando eu aperto no botão próxima plp, o alarme também toca, tem como isso não acontecer? Valeu muito.

Re: ATIVAR MACRO CONDICONADA AO VALOR DE CELULA COM FORMULA

Enviado: 04 Abr 2019 às 13:06
por Leonardo1234
Cara, muito obrigado, funcionou perfeitamente. Só tem um ultimo detalhe, quando eu abro a planilha e quando eu aperto no botão próxima plp, o alarme também toca, tem como isso não acontecer? Valeu muito.

Re: ATIVAR MACRO CONDICONADA AO VALOR DE CELULA COM FORMULA

Enviado: 04 Abr 2019 às 15:03
por osvaldomp
Aqui o alarme não toca nas condições que você descreveu.

Experimente rodar o código vinculado ao botão P.L.P. a partir do editor de VBA, via F8, e veja se descobre em que ponto da execução o alarme é acionado.

Re: ATIVAR MACRO CONDICONADA AO VALOR DE CELULA COM FORMULA

Enviado: 04 Abr 2019 às 15:39
por Leonardo1234
Osvaldo,tentei aqui mas não deu certo. Eu vou mandar novamente a planilha em anexo, pode ser que agora ela atualize com esse erro. Vlwww

Re: ATIVAR MACRO CONDICONADA AO VALOR DE CELULA COM FORMULA

Enviado: 04 Abr 2019 às 15:42
por osvaldomp
Nesse último arquivo postado você desativou o código que bagunça o meu Excel :?:

Re: ATIVAR MACRO CONDICONADA AO VALOR DE CELULA COM FORMULA

Enviado: 04 Abr 2019 às 15:51
por Leonardo1234
Vou mandar novamente aqui, eu exclui essas macros, acredito que agora resolva.

Re: ATIVAR MACRO CONDICONADA AO VALOR DE CELULA COM FORMULA

Enviado: 04 Abr 2019 às 17:47
por Leonardo1234
Osvaldomp, deu problema ao abrir o arquivo? Se quiser, posso tentar mandar novamente.

Re: ATIVAR MACRO CONDICONADA AO VALOR DE CELULA COM FORMULA

Enviado: 04 Abr 2019 às 19:56
por osvaldomp
Leonardo, testei no último arquivo que você postou e o código que passei não é executado ao clicar no botão P.L.P., então não consigo te ajudar nesse ponto. ;)