VBA Enviar um email com quantidades de células variáveis no corpo do e-mail.

Question

Boa noite!

Estou precisando criar um email que seja enviado automáticamente através do VBA com células copiadas do Excel e coladas no corpo do e-mail.

Cheguei a conseguir criar o e-mail, porém, com a quantidade de células pré-estabelecidas

(RangetoHTML(Range("A5:C11")) _

& Email.htmlbody

Estou precisando fazer com que o número de linhas enviadas ao corpo do e-mail seja variável conforme flutuações de valores na planilha.

Estava pensando em utilizar algo como o CTRL+Shift+PgDn, mas não consegui rodar.

Alguém consegue **** força?

Segue estado atual com as linhas já definidas:

Sub enviar_email()

Set objeto_outlook = CreateObject("Outlook.Application")

Set Email = objeto_outlook.createitem(0)

Email.display

Email.to = Cells(2, 1).Value

Email.cc = Cells(3, 1).Value

Email.bcc = Cells(4, 1).Value

Email.Subject = "Relatório de Vendas"

texto1 = "Fala " & Cells(2, 2).Value & "!<br><br>Dá uma olhada nessa imagem e nessa tabela que separei para você!<br><br>"

Email.htmlbody = texto1 _

& RangetoHTML(Range("A5:C11")) _

& Email.htmlbody

End Sub

Desde já, agradeço!!!

Answer 1

Oi Xará! Tudo certo?

Me falta bastante conhecimento em VBA, mas uma sugestão que posso deixar para selecionar todas as linhas preenchidas abaixo de uma célula selecionada é o comando "Selection.End(xlDown).Select"

Eu obtive esse comando ao gravar uma macro clicando na tecla "End", entrando assim no "End Mode" e depois cliquei na seta para baixo. Isso faz com que você tenha a coordenada da última célula preenchida continuamente. Use essa coordenada e você pode criar uma seleção dinâmica.

Espero ter ajudado!!