.
I have a list of terms. Example:
X3HJ
NR4T
JA8FG
UV5EEE
M0ERD
I need a macro (not formula) that will detect the number in the string, then using that number
guide the code to a specific additional macro designed only for that number.
:: Air Code ::
Thank you for your assistance.
Please Login or Register to view this content.
Please Login or Register to view this content.
Entia non sunt multiplicanda sine necessitate
Please Login or Register to view this content.
My General Rules if you want my help. Not aimed at any person in particular:
1. Please Make Requests not demands, none of us get paid here.
2. Check back on your post regularly. I will not return to a post after 4 days.
If it is not important to you then it definitely is not important to me.
.
shg
Tried this .. no luck. Where am I going wrong ? Says cant find Dictionary2
Please Login or Register to view this content.
mehmetcik
Thank you for your assistance as well. Says TYPE MISMATCH .. I've tried String and tried Integer ...
Please Login or Register to view this content.
Or just use RegExp & CallByName …
Works fine for me in a standard code module exactly as you posted it.Tried this .. no luck. Where am I going wrong ? Says cant find Dictionary2
.
My apologies to both of you ! I feel so dumb ......
It really helps if you enter the correct term to begin with ! Last night I was working with previous versions that didn't have the auto-select Dictionary macro ...
That version already has some error handling to tell a dummy like me that the term entered wasn't accurate.
I'll just go crawl off into my hole over there in the corner and be quiet now.
Thank you both again !
.
May I ask one last question ?
How would I go about not having the second INPUT BOX input ? Just carry over the tern entry from the first INPUT BOX.
I'll understand if you decide not to assist this fumbling fool.
Thanks for all you do. You guys are the best.
I inserted a line
entering sdsd1bcb got me dictionary 1.
Please Login or Register to view this content.
Via RegExp …
As a beginner starter :
PHP Code:Sub Demo4Noob()
Dim S$, T$
S = InputBox(vbLf & vbLf & "Term ?", " Search")
With CreateObject("VBScript.RegExp")
.Pattern = "\d"
If .Test(S) Then T = .Execute(S)(0)
End With
If T > "0" And T < "5" Then MsgBox Application.Run("Noob" & T), , S
End Sub
Function Noob1$()
Noob1 = "One step beyond …"
End Function
Function Noob2$()
Noob2 = "Two Evil Eyes"
End Function
Function Noob3$()
Noob3 = "Three Kings"
End Function
Function Noob4$()
Noob4 = "Four Weddings and a Funeral"
End Function
Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !
Last edited by Marc L; 07-18-2018 at 07:26 PM. Reason: little optimization …
.
shg
Sorry to do this but it has gone to not recognizing the presence of the macros again ..... WTHuh ? I know ... go figure .. story of my life.
I added in a MsgBox to see what was occurring with the macro # selection.
I appears to be jumping around the numbers while searching for the correct TryDictionary# ??? Is it accurate what I'm seeing ?
Try this and see if it does the same there:
Please Login or Register to view this content.
Last edited by Logit; 07-18-2018 at 07:28 PM.
.
Marc L
Here is my stab with the macro. Where is my error ?
Please Login or Register to view this content.
.
To all ... so you have the same workbook as I ...
Didn't try your workbook yet.
Please Login or Register to view this content.
Avoid using Select, Selection and Activate in your code. Use With ... End With instead.
You can show your appreciation for those that have helped you by clicking the * at the bottom left of any of their posts.
It works if you either use
... or get rid of the other procedures with the same name in other modules.Please Login or Register to view this content.
With example file.
.
Thank you shg. I was thinking about that over dinner and realized my mistake.
.
bakerman :
Is there a way to eliminate having to enter the term twice .. using 2 InputBoxes ?
Enter the term in the first InputBox and the macro runs all the way through ?
Thank you so much !
Please Login or Register to view this content.
.
Thank you bakeman !
Glad to help and thanks for rep+.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks