davidausten
New Member
- Joined
- Sep 1, 2017
- Messages
- 35
- Office Version
- 2016
- Platform
- Windows
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.
VBA Code:
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