janenovatzki

Boa tarde pessoal, preciso de uma macro para enviar no corpo do email (outlook) uma seleção de qualquer parte do excel. Tenho este exemplo abaixo e estou tentando adaptar as minhas necessidades. (peguei na internet também). Se puderem ajudar... obrigada!!! Sub ENVIA_TESTE() 'Seleciona o intervalo de células na planilha ativa. ActiveSheet.Range("A1:f12").Select 'aqui preciso que seja qualquer seleção que eu faça e copie. (assim que copiar e eu clicar no botão, ele montara o email a abrira uma nova mensagem com o que foi copiado, e se ainda possivel copiar somente as colunas amostras (tenho algumas colunas ocultas que nao gostaria que viessem juntas). ' Mostrar o envelope na ActiveWorkbook. ActiveWorkbook.EnvelopeVisible = False ' Isso é definir o campo opcional introdução acrescenta ' algum texto do cabeçalho para o corpo de e-mail. Ele também define ' as linhas Para e Assunto. Finalmente a mensagem ' é enviado With ActiveSheet.MailEnvelope .Introduction = "Bom dia Srs" aqui eu gostaria tambem que copiasse e colasse como "texto" uma parte desta seleção ... por exemplo de A1:D2 .Item.To = "teste@teste" ' Para quem sera enviado '.Item.Cc = "testei@teste" ' Com copia .Item.Subject = " teste" ' Assunto do e-mail 'aqui eu gostaria que copiasse uma celula da seleção que eu fiz... por exemplo "C6:D6" .Item.Send ' aqui tentei adaptar para abrir a mensagem com .Display porém nao funcionou End With End Sub

Pessoal, tudo bom? preciso de uma ajuda... tenho uma macro simples que copia uma range e envia por email. agora preciso adaptar ela para: 1º - ao clicar em qualquer linha da coluna A, ele ira selecionar e copiar todas as linhas (a partir da celula selecionada, nao importando quantas colunas tem), até achar uma palavra qualquer na coluna A. (ele copia até a ultima linha da coluna a em "branco") 2º -colar como imagem no corpo do email e enviar. no exemplo abaixo preciso que ele copie tudo no caso da linha 1 (seria onde eu clicaria, e pode ser aleatorio) até a a linha 3 (pois na linha 4 tem a palavra #nda). coluna A coluna B coluna c linha 1 - teste@teste fs linha 2 - linha 3 - fdf fdf linha 4 - #nda segue abaixo a macro que possuo para adaptar. Sub Macro1() ActiveSheet.Range("b3:AA11").Select ActiveWorkbook.EnvelopeVisible = False With ActiveSheet.MailEnvelope .Introduction = "Bom dia" 'Texto Corpo do e-mail .Item.To = "TESTE@TESTE" 'Para quem sera enviado '.Item.Cc = "[email protected]" ' Com copia .Item.Subject = "Quantidade de Atendimento" ' Assunto do e-mail .Item.Send End With

Pessoal, tenho um relatorio de saldo de pedidos para serem feitos e preciso de uma macro para copiar uma range colar e enviar por email com um texto padrão. preciso que funcione assim: Eu tenho um email (hiperlink) na primeira coluna, quero que ao clicar nele, ele copie toda a range (as linhas) até a ultima linha em branco (a proxima é outro email), coloque no outlook e envie para o email do hiperlink com um texto especifico. o que eu fiz, ele anexa a planilha para o email que eu quero.. porém preciso só da range, conforme for selecionando o que eu quero enviar. teste para macro envia email.xlsx