Help Basic Macro

[RodrigoFreitas]

I wrote this macro, but every time I click the cancel button, still in the loop, someone knows how I can resolve this error?

Sub ExemploDoLoopUntil()

Dim Nome As String

Do
Nome = InputBox("Digite o nome do usuário:")

Loop Until Nome <> ""

MsgBox "O nome do usuário é: " & Nome
End Sub

 

[VoG]

Try this

Sub ExemploDoLoopUntil()
Dim Nome As Variant
Do
    Nome = Application.InputBox("Digite o nome do usuário:", Type:=2)
    If TypeName(Nome) = "Boolean" Then Exit Sub
Loop Until Nome <> ""
MsgBox "O nome do usuário é: " & Nome
End Sub

 

[Von Pookie]

When you click Cancel, the value of Nome is "" and so you are staying in the loop.

Try using Application.InputBox:

Nome = Application.InputBox("Digite o nome do usuário:")

With this, when you click Cancel the value of Nome = False instead of "" and the loop will exit.

 

[RodrigoFreitas]

Try this

Sub ExemploDoLoopUntil()
Dim Nome As Variant
Do
    Nome = Application.InputBox("Digite o nome do usuário:", Type:=2)
    If TypeName(Nome) = "Boolean" Then Exit Sub
Loop Until Nome <> ""
MsgBox "O nome do usuário é: " & Nome
End Sub

Thanks!!!