MsgBox and User Input

  • Thread starter Thread starter Terrin
  • Start date Start date
T

Terrin

Hello,
I am currently creating a spreadsheet to automate a few tasks for
my users. Currently I have a command button in place, when this is
clicked, a msgbox pops up and asks for user input. What I need to
happen is the user input to be declared as a variable. Once it is
declared, probably with IF statements, I need to reference a msgbox,
depending on what the user inputs, I need to direct to the
corresponding msgbox. Example, the user inputs the two-letter
abbreviation for a state. Using that abbrev, I need to return a msgbox
with the corresponding text.

Any ideas as to how I can do this? If you could get me started with
the code, or point me in the direction that would be great.

For more explanation e-mail (e-mail address removed).
Thanks.
 
Do
res = InputBox("Enter two character State Abbreviation")
if len(trim(res)) = 0 then exit sub
While len(trim(res)) <> 2

res1 = Application.vlookup(res,Range("Table1"),2,False)
if not iserror(res1) then
msgbox "Abbr: " & res & " state is: " & res1
Else
msgbox "Bad Abbr: " & res
End if

on a worksheet put the 50 abbreviations in left column and corresponding
state name in right column. Name the table Table1.
 
Terrin,

For the input declare a variable
Dim myvar
set it "as String" but be ready to trap any errors.

Keep in mind that any InputBox will return a String even
if the user enters a number.

Than
myvar = InputBox("Prompt", "Title", "Default", xpos, ypos)
Prompt should be your instruction
Title should be what ever you want to call it
Default can be nothing, a given string, or another variable

than
MsgBox("My state is " & myvar)

see if this helps...
 
Back
Top