Sub cadastro()
Range("a1048576").Select
ActiveCell.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, 1).Value = InputBox("Convidado")
ActiveCell.Offset(0, 2).Value = InputBox("Email")
End Sub
Você está vendo a versão anterior da nova experiência da Alura que estamos preparando para você. Em breve, ela ganha uma identidade visual novinha totalmente pensada em potencializar seus estudos!
Sub cadastro()
Range("a1048576").Select
ActiveCell.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, 1).Value = InputBox("Convidado")
ActiveCell.Offset(0, 2).Value = InputBox("Email")
End Sub
Oi Barbara tudo bem?
É isso mesmo!!! Continue assim e bons estudos!!!