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]

that didnt work. wish i could post the workbook.

 

[davidausten]

dave im not sure what your code is doing. i tried implementing jasons and tried to try yours but im lost.

 

[davidausten]

right now i have this:

Select Case ComboBo1.Value

Case "Flat_Payment"
Application.CutCopyMode = False
Sheet1.Range("I2").copy

Case "Duplicate_Payment_Invoice"
Application.CutCopyMode = False
Sheet1.Range("I3").Copy

etc

 

[dmt32]

that didnt work. wish i could post the workbook.

You need to place your workbook in a file sharing application like dropbox Dropbox Basic (Free account)
& place a link to it here

Dave

 

[davidausten]

will do

 

[jasonb75]

Is it an ActiveX combobox on the worksheet, or is it in a userform?

With an ActiveX box in the worksheet both of the original suggestions work fine without the need for cutcopymode = false. The last selection is held on the clipboard with subsequent changes being reflected as would be expected.

 

[davidausten]

heres the drop box link to the workbook. to answer the question its an activeX on a worksheet but will need to work on the form the opens when you open the workbook.

Dropbox - File Deleted - Simplify your life

www.dropbox.com

 

[jasonb75]

I've tried Dave's first suggestion with your workbook and it works fine for me.

 

[davidausten]

can you please send it back to dropbox with the changes?

 

[davidausten]

does the form work as well?