Ir ao conteúdo
  • Cadastre-se

Yskhadar

Membro Pleno
  • Posts

    148
  • Cadastrado em

  • Última visita

  1. Tardes... Seguindo a linha da consulta em histórico, mudei um pouco a planilha. Ao invés de uma linha para cada parágrafo no e-mail, eu coloquei tudo na mesma célula e formatei. Consigo encaminhar, mas não consigo que vá com assinatura do e-mail que é uma imagem. Se eu uso o &.HTMLBody ele junta tudo, não consigo quebrar linhas... Já revirei por ai e não achei. Alguém consegue me ajudar?
  2. @Basole Perfeito Quem sabe, sabe. Muitíssimo obrigado Basole.
  3. Oi Basole Segue planilha anexo Teste.zip
  4. Olá Peço uma ajuda dos feras daqui... Estou com uma macro que funciona quase perfeitamente, ao menos pro que eu preciso. Ela faz o envio de e-mail pelo excel direto pelo Gmail. Achei uma planilha e fiz adaptação para o que eu preciso, mas não estou conseguindo meu objetivo. Ela copia o e-mail do destinatário, copia o anexo e faz o envio do e-mail. Na hora do envio, apesar de atualizar a planilha, os anexos vão se acumulando. O primeiro e-mail vai certo, o segundo recebe o anexo do primeiro mais o segundo, o terceiro recebe todos os anteriores e assim por diante. Posto a macro aqui na esperança de conseguir uma ajuda. Antecipadamente agradeço. Sub EnviaEmail() Application.EnableEvents = False Dim iMsg, iConf, Flds Dim N As Integer Dim NEmails As Integer Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields Set ws = Worksheets N = 2 flag = 0 NEmails = ws("Relação").Range("C1") + 2 schema = "http://schemas.microsoft.com/cdo/configuration/" Flds.Item(schema & "sendusing") = ws("ConfigEmail").Range("C4") 'Configura o smtp Flds.Item(schema & "smtpserver") = ws("ConfigEmail").Range("C5") 'Configura a porta de envio de email Flds.Item(schema & "smtpserverport") = ws("ConfigEmail").Range("C6") Flds.Item(schema & "smtpauthenticate") = ws("ConfigEmail").Range("C7") 'Configura o email do remetente Flds.Item(schema & "sendusername") = ws("Email").Range("C5") 'Configura a senha do email remetente Flds.Item(schema & "sendpassword") = ws("Email").Range("C6") Flds.Item(schema & "smtpusessl") = ws("ConfigEmail").Range("C8") Flds.Update Do While N < NEmails ws("Relação").Cells(N, 2).Copy ws("Email").Activate ws("Email").Range("C8").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ws("Relação").Cells(N, 3).Copy ws("Email").Activate ws("Email").Range("B15").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False With iMsg 'Seu nome ou apelido .From = ws("Email").Range("C3") 'Seu e-mail .Sender = ws("Email").Range("C5") 'Email do destinatário .To = ws("Email").Range("C8") 'Cópia .CC = ws("Email").Range("C9") 'Cópia Oculta .BCC = ws("Email").Range("C10") 'Anexo .AddAttachment ws("Email").Range("B15") 'Título do email .Subject = ws("Email").Range("C12") 'Nome da sua organização '.Organization = "" 'e-mail de responder para '.ReplyTo = Worksheets("Email").Range("C3") 'Mensagem do e-mail, você pode enviar formatado em HTML .HTMLBody = ws("Email").Range("E4") & " " & Sheets("Relação").Cells(N, 1) & "<br>" & "<br>" _ & ws("Email").Range("E5") & "<br>" & "<br>" _ & ws("Email").Range("E6") & "<br>" & "<br>" _ & ws("Email").Range("E7") & "<br>" _ & ws("Email").Range("E8") & "<br>" _ & ws("Email").Range("E9") & "<br>" & "<br>" _ & ws("Email").Range("E10") & "<br>" & "<br>" _ & ws("Email").Range("E11") & "<br>" _ & ws("Email").Range("E12") & "<br>" _ & ws("Email").Range("E13") flag = 1 Set .Configuration = iConf 'Envia o email .Send End With N = N + 1 ws("Email").Range("C8,B15").ClearContents Loop ws("Email").Range("C8,B15").ClearContents Application.EnableEvents = True MsgBox N - 2 & " e-mails foram enviados com sucesso", vbOKOnly Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing End Sub
  5. Olá Preciso de uma ajuda dos feras daqui. Recentemente o DSi do meu filho parou de ler os jogos e levei a uma loja para ver qual seria o problema. O cara da loja me disse que o problema era o R4 e trocou e colocou no cartão de memória alguns jogos novos e os meu antigos perdeu-se. Perguntando o motivo ele me disse que o R4 novo não lia os jogos antigos. Verdade isso? Não há compatibilidade? O DSi tinha uns 10 anos ou mais com o mesmo R4. Agora ele trocou por um "Gold Pro". Agradeço a ajuda
  6. Boa noite pessoal Estou precisando de uma ajuda com uma planilha. Achei e adaptei uma macro para fazer um relatório do que eu preciso pesquisar. Funciona muito bem. Entretanto eu preciso totalizar a coluna de quantidades a cada mudança que ocorra em qualquer dos outros dados, agrupando as informações. Ou seja, preciso agrupar os dados que sejam iguais nas várias colunas. Se mudar um dado, muda a totalização. Anexo a planilha para ajuda. Obrigado TRANSPORTE_MADEIRA_CH.zip
  7. @Márcia Pádua Veja se resolve... =A1&" / "&B1 Supondo que A1 é o número de atividades realizadas e B1 a pontuação.
  8. Desculpe a demora tive uns contratempos... Perfeito Osvaldo, muitíssimo obrigado!
  9. Entendi. Aí posso desonsiderar macro ColorirMapa, certo? Outra pergunta: como faço para mudar as cores que você determinou? Como sei o código da cor? Claro que funcionou, né?
  10. Desculpa a confusão. A planilha era a mesma da anterior, só acresci informações e não refiz as referências. O Mapa funcionou do jeito que você fez, só não alterei neste arquivo, porque acredito que será modificado. Seguindo sua sugestão, seria formatar o Mapa levando em consideração as vendas (coluna D) por estado (coluna H). E se possível levando em consideração segmento do produto (coluna B). Grato Consulta_clube1.7z
  11. @osvaldomp Segue a planilha com acréscimos das vendas. A parte que você não entendeu, são 2 produtos, sapatos e bolsas, mas cada um tem alguns modelos. Então sçao subdivisões, mas acho que não vai alterar o resultado. Obrigado Consulta_clube1.7z
  12. Sim, como falei a princípio só onde a marca chegou. Mas estou pensando e acho que seria interessante fazer o indicado baseado nas vendas. Se quiser perder um pouco do seu tempo acho que seria interessante... Talvez eu precise te mandar a planilha de outro jeito... De qualquer forma, a solução que eu buscava você me deu e sou grato. É que daí você plantou uma semente...
  13. @osvaldomp como sempre, funcionou perfeitamente. A princípio este mapa pintado mostra apenas os locais onde a marca já alcançou, sem levar em conta vendas. Mas acho que isso pode ser mudado, ou acrescentado. A solução ou alternativa que você falou é interessante, gostaria de saber mais sim. Já adiantando, são dois produtos, com alguns modelos, mas apenas 2 produtos.
  14. Segue um arquivo para melhor entendimento. Do jeito que está hoje funciona com a macro e a solução também funciona desde que eu não mova o mapa de aba. Entretanto é o que eu preciso. Que o mapa vá para outra aba e tenha a atualização de forma automática mantida. Grato Consulta_clube.7z
  15. @osvaldomp Como sempre, você é o cara! Muitíssimo obrigado. Só tive que ajustar a macro ColorirMapa. você falou que a formatação condicional pode fazer esse trabalho... de que forma seria?

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades 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...