-
Posts
148 -
Cadastrado em
-
Última visita
Tipo de conteúdo
Artigos
Selos
Fabricantes
Livros
Cursos
Análises
Fórum
Tudo que Yskhadar postou
-
Excel Enviando e-mail via vba
Yskhadar respondeu ao tópico de Yskhadar em Microsoft Office e similares
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? -
Excel Enviando e-mail via vba
Yskhadar respondeu ao tópico de Yskhadar em Microsoft Office e similares
@Basole Perfeito Quem sabe, sabe. Muitíssimo obrigado Basole. -
Excel Enviando e-mail via vba
Yskhadar respondeu ao tópico de Yskhadar em Microsoft Office e similares
Oi Basole Segue planilha anexo Teste.zip -
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
-
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
-
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
-
Excel Retornar valor "/" valor em uma célula, onde os valores estão em duas células
Yskhadar respondeu ao tópico de Márcia Pádua em Microsoft Office e similares
@Márcia Pádua Veja se resolve... =A1&" / "&B1 Supondo que A1 é o número de atividades realizadas e B1 a pontuação. -
Excel Rodar macro quando o conteúdo da célula é alterado via fórmula
Yskhadar respondeu ao tópico de Yskhadar em Microsoft Office e similares
Desculpe a demora tive uns contratempos... Perfeito Osvaldo, muitíssimo obrigado! -
Excel Rodar macro quando o conteúdo da célula é alterado via fórmula
Yskhadar respondeu ao tópico de Yskhadar em Microsoft Office e similares
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é? -
Excel Rodar macro quando o conteúdo da célula é alterado via fórmula
Yskhadar respondeu ao tópico de Yskhadar em Microsoft Office e similares
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 -
Excel Rodar macro quando o conteúdo da célula é alterado via fórmula
Yskhadar respondeu ao tópico de Yskhadar em Microsoft Office e similares
@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 -
Excel Rodar macro quando o conteúdo da célula é alterado via fórmula
Yskhadar respondeu ao tópico de Yskhadar em Microsoft Office e similares
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... -
Excel Rodar macro quando o conteúdo da célula é alterado via fórmula
Yskhadar respondeu ao tópico de Yskhadar em Microsoft Office e similares
@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. -
Excel Rodar macro quando o conteúdo da célula é alterado via fórmula
Yskhadar respondeu ao tópico de Yskhadar em Microsoft Office e similares
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 -
Excel Rodar macro quando o conteúdo da célula é alterado via fórmula
Yskhadar respondeu ao tópico de Yskhadar em Microsoft Office e similares
@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? -
Excel Rodar macro quando o conteúdo da célula é alterado via fórmula
Yskhadar postou um tópico em Microsoft Office e similares
Boa noite a todos. Venho buscar uma solução para meu problema e peço a ajuda dos feras aqui. Eu tenho uma mapa de vendas por estado e tenho uma macro que pinta os estados onde houve venda. A macro busca as cores numa tabela em A4:B30, onde na coluna A estão os estados e na coluna B as quantidades. Conforme ocorrem vendas eu clico no botão da macro e atualiza. Perfeito. Agora eu quero mudar jeito de atualizar, eu gostaria que essa macro colorisse o mapa automaticamente quando nova venda fosse realizada em um estado ainda não pintado. Procurei mas só achei um modo de fazer com que seja executada a macro se as células forem atualizadas manualmente... O código que achei foi: Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = True If Not Intersect(Target, Range("b4:b30")) Is Nothing Then Call ColorirMapa End If End Sub Existe uma maneira de ser automático? Agradeço muito a ajuda. -
Estou procurando um notebook e achei esta configuração: Notebook Acer AMD Ryzen 5 3500U 12GB HD 1TB 15.6 Pol. Windows 10 A315-42-R1B0 Preço 3.149,00 Gostaria de saber se é boa, se o preço vale... Ou uma indicação de um bom notebook em torno do valor de 3.500. Obrigado
-
Ameaça recebida por e-mail
Yskhadar respondeu ao tópico de Yskhadar em Invasões, infecções, antivírus e afins
Agradeço muito a todos vcs. Realmente indica, eu que não havia percebido... Pelo que li e cruzando com os cadastros que tenho, o problema maior foi no linkedin. Mas estou fazendo uma geral e até busquei uma planilha pra gereção de senahs fortes. Grande abraço a todos -
Ameaça recebida por e-mail
Yskhadar respondeu ao tópico de Yskhadar em Invasões, infecções, antivírus e afins
Como já disse, o site informou que minha senha vazou em algum serviço, mas não qual. Eu consigo saber isso? -
@Tio Chang beleza, vou pesquisar po ai. Numa dessas achei uma indicação do roteador mikrotik. O que acha?
-
@Tio Chang Eu já revirei o modem e não tem QoS. Tem algum modem pra indicar? Caso eu não consiga obter uma troca na Net... E quanto ao IP? Pelo jeito num resolve nada...
-
@Tio Chang Obrigado por responder. Vou fazer o teste, mas só corrigindo a explicação: O Xbox one está direto no cabo, não no wi-fi. Farei o controle de banda no roteador? Já li tanta coisa que estou até perdido. Os IPs normalmente são atribuidos automaticamente. Seria interessante colocar um IP estáticos para o Xbox? Lembrando que ele está conectado na internet via cabo.
-
Boa noite!! Haveria solução para esse caso?
-
Olá a todos, estou precisando de uma ajuda quanto a lag intermitente, espero estar postando minha dúvida no lugar certo. Tenho internet da NET 120mb, o roteador Arris (fornecido pela empresa) tem quatro portas de rede e wifi 2.4ghz e 5ghz disponíveis. Tenho uma TV conectada no 2.4 e 3 celulares que usam wi-fi, um PC e um Xbox One conectados via cabo. O problema é com o Xbox One. Meu filho joga on line e tem xingado um bocado por causa de um lag persistente. Já rodei tudo pela internet pra ver configurações do modem e do Xbox, limpeza de cache etc. Fiz tudo e nada funcionou. Ele joga de madrugada, quando a interferência costuma ser menor, mas entre 18 e 1 da manhã é o bicho! Algumas particularidades: - Quando um amigo cria uma sala e convida ele e outros para jogar (normalmente 10), só ele tem lag. - Se ele cria a sala e convida os outros pra jogar, todos tem lag menos ele. Hoje ele quis me mostrar e fiquei ao lado. O lag quando acontece, em alguns casos a latencia (que costuma ser em trono de 30) vai a 999!!! Varia demais, impressionante. Existe alguma forma de minimizar isso? porque a latencia fica tão intermitente? É só configuração? Alguém pode me ajudar, por favor?
-
Ameaça recebida por e-mail
Yskhadar respondeu ao tópico de Yskhadar em Invasões, infecções, antivírus e afins
@Math.Pi Entendi. Agradeço muito.
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