xMesa
09-30-2016, 12:59 AM
Hello. I want to have 2 values getting set when i select a single line from a combo box.
I got my example from excel-easy.com/vba/examples/multicolumn-combo-box.html=
My code is here: pastebin.com/FwuaqcDf
So basically when i select the first line from the ComboBox
With Pclient
Pclient.ColumnCount = 2
Dim Client(1 To 15, 1 To 2) As String
Client(1, 1) = "CMN"
Client(2, 1) = "RSS"
Client(3, 1) = "ORD"
Client(4, 1) = "CEB"
Client(5, 1) = "GP-BE"
Client(6, 1) = "GP-ME"
Client(7, 1) = "MSL"
Client(8, 1) = "SSO"
Client(9, 1) = "SSO-QTE"
Client(10, 1) = "FZH"
Client(11, 1) = "BPO"
Client(12, 1) = "RAB"
Client(13, 1) = "E&D"
Client(14, 1) = "DEI"
Client(15, 1) = "CTD"
Client(1, 2) = "LSR000"
Client(2, 2) = "LSR000"
Client(3, 3) = "LSR002"
Client(4, 4) = "LSR051"
Client(5, 5) = "LSR001"
Client(6, 6) = "LSR001"
Client(7, 7) = "LSR007"
Client(8, 8) = "LSR005"
Client(9, 9) = "LSR005"
Client(10, 10) = "LSR014"
Client(11, 11) = "LSR027"
Client(12, 12) = "LSR003"
Client(13, 13) = "LSR042"
Client(14, 14) = "LSR041"
Client(15, 15) = "LSR040"
Pclient.List = Client
End With
i want the values to complete in these columns based on the selection
Cells(ActiveCell.Row, 2).Value = Pclient.Value
Cells(ActiveCell.Row, 3).Value = Pclient.Column(1).Value
But i get a error saying "Run-time error '9' subscript out of range"
Any tips on what i'm doing wrong?
I got my example from excel-easy.com/vba/examples/multicolumn-combo-box.html=
My code is here: pastebin.com/FwuaqcDf
So basically when i select the first line from the ComboBox
With Pclient
Pclient.ColumnCount = 2
Dim Client(1 To 15, 1 To 2) As String
Client(1, 1) = "CMN"
Client(2, 1) = "RSS"
Client(3, 1) = "ORD"
Client(4, 1) = "CEB"
Client(5, 1) = "GP-BE"
Client(6, 1) = "GP-ME"
Client(7, 1) = "MSL"
Client(8, 1) = "SSO"
Client(9, 1) = "SSO-QTE"
Client(10, 1) = "FZH"
Client(11, 1) = "BPO"
Client(12, 1) = "RAB"
Client(13, 1) = "E&D"
Client(14, 1) = "DEI"
Client(15, 1) = "CTD"
Client(1, 2) = "LSR000"
Client(2, 2) = "LSR000"
Client(3, 3) = "LSR002"
Client(4, 4) = "LSR051"
Client(5, 5) = "LSR001"
Client(6, 6) = "LSR001"
Client(7, 7) = "LSR007"
Client(8, 8) = "LSR005"
Client(9, 9) = "LSR005"
Client(10, 10) = "LSR014"
Client(11, 11) = "LSR027"
Client(12, 12) = "LSR003"
Client(13, 13) = "LSR042"
Client(14, 14) = "LSR041"
Client(15, 15) = "LSR040"
Pclient.List = Client
End With
i want the values to complete in these columns based on the selection
Cells(ActiveCell.Row, 2).Value = Pclient.Value
Cells(ActiveCell.Row, 3).Value = Pclient.Column(1).Value
But i get a error saying "Run-time error '9' subscript out of range"
Any tips on what i'm doing wrong?