Help Basic Macro

RodrigoFreitas

New Member
Joined
Jul 26, 2010
Messages
2
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
 

Some videos you may like

Excel Facts

Which came first: VisiCalc or Lotus 1-2-3?
Dan Bricklin and Bob Frankston debuted VisiCalc in 1979 as a Visible Calculator. Lotus 1-2-3 debuted in the early 1980's, from Mitch Kapor.

VoG

Legend
Joined
Jun 19, 2002
Messages
63,650
Try this

Code:
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

MrExcel MVP
Joined
Feb 17, 2002
Messages
13,686
When you click Cancel, the value of Nome is "" and so you are staying in the loop.

Try using Application.InputBox:
Code:
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

New Member
Joined
Jul 26, 2010
Messages
2
Try this

Code:
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!!!
 

Subscribe on YouTube

Watch MrExcel Video

Forum statistics

Threads
1,106,402
Messages
5,511,139
Members
408,828
Latest member
Csmnvld

This Week's Hot Topics

  • Turn fraction around
    Hello I need to turn a fraction around, for example I have 1/3 but I need to present as 3/1
  • TIme Clock record reformatting to ???
    Hello All, I'd like some help formatting this (Tbl-A)(Loaded via Power Query) [ATTACH type="full" width="511px" alt="PQdata.png"]22252[/ATTACH]...
  • TextBox Match
    hi, I am having a few issues with my code below, what I need it to do is when they enter a value in textbox8 (QTY) either 1,2 or 3 the 3 textboxes...
  • Using Large function based on Multiple Criteria
    Hello, I can't seem to get a Large formula to work based on two criteria's. I can easily get a oldest value based one value, but I'm struggling...
  • Can you check my code please
    Hi, Im going round in circles with a Compil Error End With Without With Here is the code [CODE=rich] Private Sub...
  • Combining 2 pivot tables into 1 chart
    Hello everyone, My question sounds simple but I do not know the answer. I have 2 pivot tables and 2 charts that go with this. However I want to...
Top