combo box comparison loop
 

i am working on a workbook with about 80 sheets. in each sheet there are
around 10 combo boxes, one being agency services. I am trying to go through
and see if any other of the sheets contain dissimilar information from the
active sheet's combobox.
the code i have is this:


Sub AgencyServices_Change ()
Dim sht As Worksheet


If AgencyServices.Value like €œBob€� Then
For Each Sht in MyWorkBook.worksheets
Sht.activate
If agencyservices.value = €œhigh€� or agencyservices.value = €œmedium€� or
Agencyservices.value = €œlow€� or agencyservices.value = €œnone€� Then
Msgox €œYou have chosen a different option from the other sheets. Do you want
to continue with this option?€�, vbquestion
End If
Next sht
End If
End Sub


can any one Please Help Me?

combo box comparison loop
 

Justin,

You don't say what is happening that you don't want, or what is not
happening that should.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Justin" wrote in message
...
i am working on a workbook with about 80 sheets. in each sheet there are
around 10 combo boxes, one being agency services. I am trying to go
through
and see if any other of the sheets contain dissimilar information from the
active sheet's combobox.
the code i have is this:


Sub AgencyServices_Change ()
Dim sht As Worksheet


If AgencyServices.Value like "Bob" Then
For Each Sht in MyWorkBook.worksheets
Sht.activate
If agencyservices.value = "high" or agencyservices.value = "medium" or
Agencyservices.value = "low" or agencyservices.value = "none" Then
Msgox "You have chosen a different option from the other sheets. Do you
want
to continue with this option?", vbquestion
End If
Next sht
End If
End Sub


can any one Please Help Me?

combo box comparison loop
 

The code comes up with an error saying an object is not defined. I cannot
pinpoint what exactly it means, but my main problem is that i need to know
how to compare one combobox on one sheet to another combobox on another
sheet. I have tried numerous code, but i just don't know how to do it. All
of the errors involve object definition issues.

"Bob Phillips" wrote:

Justin,

You don't say what is happening that you don't want, or what is not
happening that should.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Justin" wrote in message
...
i am working on a workbook with about 80 sheets. in each sheet there are
around 10 combo boxes, one being agency services. I am trying to go
through
and see if any other of the sheets contain dissimilar information from the
active sheet's combobox.
the code i have is this:


Sub AgencyServices_Change ()
Dim sht As Worksheet


If AgencyServices.Value like "Bob" Then
For Each Sht in MyWorkBook.worksheets
Sht.activate
If agencyservices.value = "high" or agencyservices.value = "medium" or
Agencyservices.value = "low" or agencyservices.value = "none" Then
Msgox "You have chosen a different option from the other sheets. Do you
want
to continue with this option?", vbquestion
End If
Next sht
End If
End Sub


can any one Please Help Me?