Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Whats wrong with my code?
Private Sub ComboBox1_Change()
If Sheets("SYS").Range("A1:A18").Find(ComboBox1.Value ) = False Then MsgBox "You have entered a invalid choice. Please make a valid selection to continue.", vbCritical, "- INVALID SELECTION ERROR -" ComboBox1.Value = "" Exit Sub End If End Sub The idea is to make it so if someone types in a drop down box and its not one of the values they could select from...the application will popup with an error message. My logic makes perfect sense to me but VBA is having a hard time accepting it...any ideas as to why? Thanks alot! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Whats wrong with my code?
Can you not POPULATE only the values in the Combobox from the range, thus eliminating the
possibility of the user entering an invalid entry? wrote in message oups.com... Private Sub ComboBox1_Change() If Sheets("SYS").Range("A1:A18").Find(ComboBox1.Value ) = False Then MsgBox "You have entered a invalid choice. Please make a valid selection to continue.", vbCritical, "- INVALID SELECTION ERROR -" ComboBox1.Value = "" Exit Sub End If End Sub The idea is to make it so if someone types in a drop down box and its not one of the values they could select from...the application will popup with an error message. My logic makes perfect sense to me but VBA is having a hard time accepting it...any ideas as to why? Thanks alot! |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Whats wrong with my code?
I'd use:
if application.countif(Sheets("SYS").Range("A1:A18"), combobox1.value) = 0 then msgbox "not found" .... wrote: Private Sub ComboBox1_Change() If Sheets("SYS").Range("A1:A18").Find(ComboBox1.Value ) = False Then MsgBox "You have entered a invalid choice. Please make a valid selection to continue.", vbCritical, "- INVALID SELECTION ERROR -" ComboBox1.Value = "" Exit Sub End If End Sub The idea is to make it so if someone types in a drop down box and its not one of the values they could select from...the application will popup with an error message. My logic makes perfect sense to me but VBA is having a hard time accepting it...any ideas as to why? Thanks alot! -- Dave Peterson |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Whats wrong with my code?
And just to add to Corey's response, if you change the combobox's Style property
to fmstyledropdownlist, the user won't be able to type anything into that combobox--except for the items in the list. wrote: Private Sub ComboBox1_Change() If Sheets("SYS").Range("A1:A18").Find(ComboBox1.Value ) = False Then MsgBox "You have entered a invalid choice. Please make a valid selection to continue.", vbCritical, "- INVALID SELECTION ERROR -" ComboBox1.Value = "" Exit Sub End If End Sub The idea is to make it so if someone types in a drop down box and its not one of the values they could select from...the application will popup with an error message. My logic makes perfect sense to me but VBA is having a hard time accepting it...any ideas as to why? Thanks alot! -- Dave Peterson |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Whats wrong with my code?
On May 2, 10:22 pm, Dave Peterson wrote:
And just to add to Corey's response, if you change the combobox's Style property to fmstyledropdownlist, the user won't be able to type anything into that combobox--except for the items in the list. wrote: Private Sub ComboBox1_Change() If Sheets("SYS").Range("A1:A18").Find(ComboBox1.Value ) = False Then MsgBox "You have entered a invalid choice. Please make a valid selection to continue.", vbCritical, "- INVALID SELECTION ERROR -" ComboBox1.Value = "" Exit Sub End If End Sub The idea is to make it so if someone types in a drop down box and its not one of the values they could select from...the application will popup with an error message. My logic makes perfect sense to me but VBA is having a hard time accepting it...any ideas as to why? Thanks alot! -- Dave Peterson- Hide quoted text - - Show quoted text - Yeah I've figured it out...Thanks everyone for the help! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Whats wrong with this code? | Excel Programming | |||
Whats wrong with this code? | Excel Programming | |||
Whats wrong with this line of code? | Excel Programming | |||
whats wrong with this code | Excel Programming | |||
Whats wrong with this code | Excel Programming |