Multiple Case statements

[davidausten]

Im using a combo box to select the option. The thing I am having trouble with is that if you select the second case statement from the list (they are in this order in the combo box) it selects I2 and not I3. totally stumped.

Private Sub ComboBox1_Change()
With ComboBox1

Select Case Decide

Case Me.ComboBox1.Value = "Flat_Payment"

Sheet1.Range("I2").Copy

Case Me.ComboBox1.Value = "Duplicate_Payment_Invoice"

Sheet1.Range("I3").Copy

Case Me.ComboBox1.Value = "Duplicate_Payment_Statement"

Sheet1.Range("I4").Copy

Case Me.ComboBox1.Value = "Tax"

Sheet1.Range("I5").Copy

Case Me.ComboBox1.Value = "Dispute_Tax"

Sheet1.Range("I6").Copy

Case Me.ComboBox1.Value = "Courtesy_Adjustment"

Sheet1.Range("I7").Copy

Case Me.ComboBox1.Value = "Added_Payment_to_Misdirected"

Sheet1.Range("I8").Copy

Case Me.ComboBox1.Value = "Transfer_Portion_of_Payment"

Sheet1.Range("I9").Copy

Case Me.ComboBox1.Value = "Transfer_Payment_Auto_Lockbox"

Sheet1.Range("I10").Copy

Case Me.ComboBox1.Value = "Transfer_Payment_Non_Postables"

Sheet1.Range("I11").Copy

Case Me.ComboBox1.Value = "Transfer_Payment_Related"

Sheet1.Range("I12").Copy

Case Me.ComboBox1.Value = "Transfer_Credit"

Sheet1.Range("I13").Copy

Case Me.ComboBox1.Value = "Remit_Request"

Sheet1.Range("I14").Copy

Case Me.ComboBox1.Value = "Insufficient_Remit"

Sheet1.Range("I15").Copy

Case Me.ComboBox1.Value = "Transposition_Error"

Sheet1.Range("I16").Copy

Case Me.ComboBox1.Value = "Short_Payment"

Sheet1.Range("I17").Copy

Case Me.ComboBox1.Value = "Over_Payment"

Sheet1.Range("I18").Copy

Case Me.ComboBox1.Value = "Assigned_to_Staples"

Sheet1.Range("I19").Copy


End Select

End With

End Sub

 

[davidausten]

thanks a bunch guys. got it to work on daves original solution. workbook and form seem to function correctly. thanks again.

 

[Fluff]

Cross posted User Form error
While we do allow Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules). This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.
I would have expected a moderator to know better.

 

[dmt32]

Cross posted User Form error

thanks but another I missed - I really am getting too old!

Dave

 

[dmt32]

thanks a bunch guys. got it to work on daves original solution. workbook and form seem to function correctly. thanks again.

Glad we both could help but belatedly, I missed the cross post notice - It does make a difference by all who contribute to know if question has been posted elsewhere.

Dave

 

[jasonb75]

I would have expected a moderator to know better.

Especially when you read the faq's of the site that they moderate.

How to Use Our Site

This is a Microsoft Office Visual Basic for Applications Discussion Forum and Code Center

www.vbaexpress.com

 

[davidausten]

Hi guys I seem to have run into another error on this. I posted a new thread here: Hiding a workbook causes problems with user form

Any ideas appreciated.

 

[davidausten]

Sorry for the cross post. I thought I had deleted that thread.