1
resposta

resposta

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

Matricule-se agora e aproveite até 50% OFF

O maior desconto do ano para você evoluir com a maior escola de tecnologia

QUERO APROVEITAR
1 resposta

Oi Barbara tudo bem?

É isso mesmo!!! Continue assim e bons estudos!!!