excel vba: como descobrir a última linha preenchida e transferir linhas entre planilhas?

[@jovakf21]

Sensacional, o canal é um espetáculo. Like é pouco dado a qualidade e o ensinamento de vcs. Parabéns

[@explorarexcel]

Valeu, irmão. Aproveite para conferir os nossos canais com muito mais conteúdo:
blog: www.explorarexcel.com
Face: facebook.com/explorarexcel
Ebook: página 3 de nosso blog
Atenciosamente;
Nilton Castro

[@jovakf21]

@@explorarexcel vou conferir, parabéns pelo qualidade e pelos ensinamentos.

[@Pedro-lt6du]

boa noite explorar excel, de início, parabéns, tutorial muito didático! Mas continuo tendo um problema com um comando semelhante ao que você explicou, porém, não consigo achar uma solução de jeito nenhum, se consiste que, ao invés do comando me retornar o número da última célula preenchida, eu necessito que ele me retorne o texto que esta dentro dessa última célula preenchida. Você saberia alguma solução pra isso ? Agradeceria muito de verdade.

[@explorarexcel]

O código abaixo irá retornar em uma mensagem o texto da última célula preenchida da coluna "A". Se desejar mudar a coluna, bastará alterar o número na quarta linha deste código.
Sub Texto_Ultima_Linha()
Dim Lin As Integer
Dim Texto As Variant
Lin = Range("A1000000").End(xlUp).Row
Texto = Cells(Lin, 1).Value
MsgBox Texto
End Sub
Veja se esse código irá lhe ajudar;
Nilton Castro.

[@Pedro-lt6du]

@@explorarexcel infelizmente ainda não consegui, dê uma olhada como está o meu:
Sub Envio()
Dim linha As String
linha = Sheets("USUARIO").Cells(Rows.Count, "F").End(xlUp).Row
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
'Criação e chamada do Objeto Outlook
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
Application.DisplayAlerts = False
With OutMail
.To = linha
.CC = ""
.BCC = ""
.Subject = "Confirmação"
.HTMLBody = "Caros, este é um email de teste!"
.Display 'Ou .Display para mostrar o email
End With
Application.DisplayAlerts = True
'Resetando a sessão
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Eu estou montando esse comando para que sempre que um novo cadastro seja registrado na minha planilha, ele mande um e-mail confirmando para o usuário que deu certo, porém, não estou obtendo sucesso. consegue me detalhar qual está sendo meu erro ?

[@Pedro-lt6du]

@@explorarexcel Se você tiver algum contato para que eu possa te chamar, eu conseguiria te detalhar melhor com prints o que está acontecendo, estou no final, porém, bem enroscado nessa parte.

[@explorarexcel]

Pedro, confira esse código:
Sub Envio_Teste()
Dim linha As Integer
Dim Endereço As String
linha = Sheets("USUARIO").Cells(1000000, "F").End(xlUp).Row
Endereço = Cells(linha, "F").Value
Dim OutApp As Object
Dim OutMail As Object
'Criação e chamada do Objeto Outlook
Set OutApp = New Outlook.Application
Set OutMail = OutApp.CreateItem(olMailItem)
OutMail.Display
Application.DisplayAlerts = False
With OutMail
.To = Endereço
.CC = ""
.BCC = ""
.Subject = "Confirmação"
.HTMLBody = "Caros, este é um email de teste!"
.Send
End With
Application.DisplayAlerts = True
'Resetando a sessão
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

[@explorarexcel]

Pedro, entre em contato comigo pelo e-mail [e-mail]
Mande as imagens para lá, por favor.
Nilton Castro.