Ir ao conteúdo
  • Cadastre-se

DigusX

Membros Plenos
  • Total de itens

    24
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. Funcionou! Obrigado mais uma vez. Boa noite!
  2. @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.
  3. Exatamente isso! Obrigado! Muito Obrigado!
  4. 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
  5. 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
  6. Eu baixei ela há um tempo e modifiquei de acordo com as minhas necessidades.
  7. 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
  8. 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 = "email1@hotmail.com" .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
  9. E agora, como adiciona o códio do e-mail?
  10. 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!
  11. 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 = "email1@xx.com; email2@xx.com; e-mail3@xx.com" A coluna de e-mail ajudaria só pra não ter que ficar acessando o código sempre que querer fazer alguma alteração.
  12. 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.
  13. 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 = "contatoxx@xx.com" 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.
  14. Planilha anexada! ExemploTrocadeÓleo - Fórum.rar

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Aprenda_a_Ler_Resistores_e_Capacitores-capa-3d-newsletter.jpg

ebook grátis "Aprenda a ler resistores e capacitores", de Gabriel Torres

GRÁTIS! BAIXE AGORA MESMO!