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

Garanta sua matrícula hoje e ganhe + 2 meses grátis

Continue sua jornada tech com ainda mais tempo para aprender e evoluir

Quero aproveitar agora
1 resposta

Oi Barbara tudo bem?

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