Msgbox if Inputbox entry contains character
Hello. I have an app.inputbox piece of code below. I would like prevent
users from using an underscore ( _ ) in the input box. How can I modify the code below? Thank you! userinput = Application.InputBox("User Input") If userinput = False Then Exit Sub Else ***if userinput contains an underscore then msgbox ("cannot use underscores") vbokonly, then bring them back to the input box for re-entry else Run the rest of my code |
Msgbox if Inputbox entry contains character
Hi Steph,
Her you are Do userinput = Application.InputBox("User Input") Loop Until userinput = False Or InStr(1, userinput, "_") = 0 If userinput = False Then Exit Sub End If -- HTH Bob Phillips "Steph" wrote in message ... Hello. I have an app.inputbox piece of code below. I would like prevent users from using an underscore ( _ ) in the input box. How can I modify the code below? Thank you! userinput = Application.InputBox("User Input") If userinput = False Then Exit Sub Else ***if userinput contains an underscore then msgbox ("cannot use underscores") vbokonly, then bring them back to the input box for re-entry else Run the rest of my code |
All times are GMT +1. The time now is 04:57 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com