DigusX

Boa noite! Consegui fazer para quando mudar para Sim chamar o macro Sim e quando mudar para não roda o macro Nao. Porém o macro não está entendo qual linha mudou e aí ele dispara com informação da linha errada. Teste_Planilha_Original_3.rar

A sua resolução lá só funciona algumas vezes. Eu até coloquei que dá Erro em tempo de execução '1004': O método AutoFilter da classe Range falhou Mas ninguém respondeu mais. Essa semana que eu entendi que o erro era porque acontecia que M às vezes era igual a W e às vezes diferente. 1º Troca: M2 ≠ W2 Funciona 2º Troca: M2 = W2 Não funciona 3º Troca: M2 ≠ W2 Funciona 4º Troca: M2 = W2 Não funciona ... Agradeço mesmo assim. Obrigado amigo. Acho um lance interessante enviar e-mail direto do Excel. Se algum dia eu conseguir resolver eu publico aqui um breve tutorial para quem sabe ajudar outras pessoas.

Concordo, tanto que o tópico anterior a este é com a planilha original, porém a galera tentou me ajudar com outros modelos que eu não consegui aplicar na minha. Vou deixar mais uma vez em anexo para ver se vocês conseguem me ajudar com isso, se não der certo vou dar como encerrado porque já estou há meses pesquisando e infelizmente sem resultado. Em todos os lugares as pessoas ensinam a fazer quando a célula é editada manualmente para SIM ou para Não, mas não quando muda via fórmula. Bom final de semana pessoal. Cuidem-se! Teste_Planilha_Original_2.rar

Bom dia pessoal, saudações. A planilha exemplo que eu coloquei no tópico no início era para facilitar o entendimento. Esse seu código funciona nela. Como eu aplico em outro planilha em que o valor não seja >= 1. Na outra planilha tenho: Em cada célula da coluna M tem essa fórmula, de acordo com a condição ela fica SIM ou NÃO: =SE(OU(J2="";K2=0);"";SE(OU(K2>J2;H2>177);"Sim";"Não")) Aí quando ela ficar SIM preciso que ela chame o macro EmailSim E quando ela ficar NÃO preciso que ela chame o macro EmailNao

@Vics Esse funciona, porém eu nao Muito obrigado pela atenção pessoal. Esse funciona, porém não é exatamente do jeito que eu preciso. Eu não entendo muito de VBA, mas o que acontece é que eu tenho uma planilha e quando eu mudo o valor de K manualmente, M muda automaticamente via fórmula para "Sim" ou para "Não" de acordo com esse valor que eu coloquei em K. Aí eu preciso que, quando M mudar para "Sim" ele tem que chamar o macro Sub EmailSim () e quando M mudar para "Não" tem que chamar o macro Sub EmailNao ().

Olá! Infelizmente não funcionou.

Boa noite! Como monto uma fórmula em que: Quando B2 mudar para SIM via fórmula, ela vai rodar o macro EmailSim. Quando B2 mudar para NÃO via fórmula, ela vai rodar o macro EmailNao. Obrigado! Fórum_macro_automático_via_fórmula.rar

up

Finalmente, nessa planilha anexada está rodando tranquilo, porém quando vou colocar na minha planilha oficial aparece: Erro em tempo de execução '1004': O método AutoFilter da classe Range falhou .[B1:X1].AutoFilter 23, "FALSO"

Eu substituir mas não funcionou.

Funcionou! Obrigado mais uma vez. Boa noite!

@osvaldomp Depois da sua incrível solução, me ocorreu uma dúvida. For i = 1 To Range("Equipamentos").Rows.Count If Range("Equipamentos[Ações do Estoque]")(i).Value = "" Then wsC.Activate wsC.Shapes.Range(Array("Picture 50", "Picture 49", "Picture 51")).Select Selection.Copy wsEPI.Activate Range("Equipamentos[Ações do Estoque]")(i).Select ActiveSheet.Paste Selection.ShapeRange.IncrementTop 0.75 Range("Equipamentos[Ações do Estoque]")(i).Value = 1 End If Next i Esse código aí é responsável por copiar os macros da aba _Calculos e colar em Cad_EPI. Por esse motivo os nomes estão se repetindo, Imagem50, Imagem49... Existe alguma maneira de fazer com que eles sejam copiados para a aba Cad_EPI com nomes em sequência para que eu não tenha que editar todos manualmente? São muitos macros para ter que renomear manualmente. Boa Noite, aguardo ansiosamente um retorno.

Exatamente isso! Obrigado! Muito Obrigado!

Obrigado, de coração. Desculpa o modo de falar, mas nesse caso tenho que discordar que é impossível recriar algo que já foi criado. De qualquer forma agradeço por sua intenção em ajudar. Alguém mais tem alguma ideia de como eu posso resolver isso? Do 1 ao 4 está funcionando. Só preciso entender como cada macro reconhece a sua linha e então dá entrada corretamente para que eu posso aplicar nos demais item. por favor

Quando você clica no macro de entrada ou saída, do item 1 ao 4 está funcionando corretamente. A partir do item 5 quando você clica no macro de entrada ou saída ele sempre busca o item 1. Vou dar entrada no item 8 por exemplo. Aí quando clico em ENTRADA ele dar entrada no item 1 e não no 8. Se você criar um novo item. Item 20 por exemplo. Quando clicar em entrada ele vai dar entrada no item 1 Sobre a alteração que eu fiz, impossível te dizer o que foi feito que causou isso. obrigado! Aguardo retorno

up

Eu baixei ela há um tempo e modifiquei de acordo com as minhas necessidades.

Bom dia! O macro estava funcionando até que eu fiz algumas modificações e agora não estou conseguindo reparar. A planilha possui três macros para cada linha. SAÍDA, ENTRADA e RELATÓRIO Até o item 4 está funcionando perfeitamente, porém do item 5 em diante os três macros estão respondendo de forma irregular. Alguém pode ajudar por gentiliza? forumd.rar

Boa tarde! Tudo bem? mais uma vez obrigado pela a atenção. Quando M mudar para sim: texto = "Prezado(a), " & vbCrLf & vbCrLf & _ "O veículo: " & Planilha10.Cells(linha, 3) & " necessita trocar o óleo do motor" & "." & vbCrLf & vbCrLf & _ "Veja algumas informações abaixo:" & vbCrLf & vbCrLf & _ "Km total rodado: " & Planilha10.Cells(linha, 5) & vbCrLf & _ "Km da última troca: " & Planilha10.Cells(linha, 9) & vbCrLf & _ "Km restante para a próxima troca: " & Planilha10.Cells(linha, 12) & vbCrLf & _ "Data da última troca: " & Planilha10.Cells(linha, 6) & vbCrLf & _ "Data do vencimento: " & Planilha10.Cells(linha, 6) + 183 & vbCrLf & vbCrLf & _ "Atenciosamente," & vbCrLf & _ "Empresa X" Quando M mudar para não: texto = "Prezado(a), " & vbCrLf & vbCrLf & _ "Foi trocado o óleo do motor do veículo: " & Planilha10.Cells(linha, 3) & vbCrLf & vbCrLf & _ "Veja algumas informações abaixo:" & vbCrLf & vbCrLf & _ "Km total rodado: " & Planilha10.Cells(linha, 5) & vbCrLf & _ "Km da troca: " & Planilha10.Cells(linha, 9) & vbCrLf & _ "Km restante para a próxima troca: " & Planilha10.Cells(linha, 12) & vbCrLf & _ "Data da troca: " & Planilha10.Cells(linha, 6) & vbCrLf & _ "Data do vencimento: " & Planilha10.Cells(linha, 6) + 183 & vbCrLf & vbCrLf & _ "Atenciosamente," & vbCrLf & _ "Empresa X" Destinatário: .To = "[email protected]" .CC = "" .BCC = "" .Subject = "Troca de óleo - Veículos Empresa X" 'Título do e-mail .Body = texto .Display 'Use Send para enviar sem abrir o Outlook

E agora, como adiciona o códio do e-mail?

Você me entendeu muito bem. Eu edito manualmente a aba Troca de Óleo e aí a do Relatório muda automaticamente, nesse momento ela dispara o e-mail, ou então quando a planilha for salva e reaberta de novo. Perfeito!

Exatamente isso. Só preciso que ele envie quando mudar de Sim para Não ou de Não para Sim. Para me deixar em alerta. Em relação ao botão, até bolar uma coluna de e-mails eu posso ir usando: .To = "[email protected]; [email protected]; [email protected]" A coluna de e-mail ajudaria só pra não ter que ficar acessando o código sempre que querer fazer alguma alteração.

Eu trabalho com muitas planilhas e essa aí em questão, a original aqui possui 11 abas. Às vezes acontece que eu esqueço de olhar essa do Relatório acabando por atrasar a troca do óleo, por esse motivo eu tive a necessidade de fazer com que ela me avisasse por e-mail. Então um botão com macro para disparar não resolve o meu problema. Tem que ser automático assim que a célula da coluna M alterar. No código que eu enviei na planilha, se você trocar If Range("M2").Value <> PrevVal Then por If Target.Address = "$M$" & linha Then e apagar PrevVal = Range("M2").Value ele dispara manualmente também, é só apertar F2 + ENTER, porém manualmente não me ajuda. Tem que ser automático.

Quando ela muda para SIM ele envia e-mail dizendo que necessita trocar o óleo. Quando ela muda para Não ele envia e-mail dizendo que foi trocado o óleo. Até aí está funcionando correto, o problema mesmo é que por algum motivo ele está enviando e-mail quando qualquer célula de qualquer coluna é alterada, manualmente ou via fórmula. Eu preciso que envie e-mail somente quando as células da coluna M forem alteradas via fórmula. Um outro problema é que eu queria que na parte do: .To = "[email protected]" Ao invés de escrever apenas um único e-mail ele poderia buscar uma lista, tipo: For i = 2 to 100 .to = "" & Planilha10.Cells(i, 15) & "" Next i .To = "" & Planilha10.Cells(i, 15) & "" 'adicionar os e-mails contidos nas células da coluna O, da linha 2 à 100. Mas já tentei e não deu certo.

Planilha anexada! ExemploTrocadeÓleo - Fórum.rar