csrichankij
New Member
- Joined
- Sep 30, 2015
- Messages
- 1
Hello, I've been at this for 2 days, would love to know the answer.
I have a combo box in a user form which returns a list of concatenated names. Based on the value the rest of this combobox the form is suppose to fill in the other values from the same sheet. When I run the code it returns a "type 13 mismatch".
I'm attempting to modify code originally was intended for a range with integers. Got it from a YouTube video (
).
Here is the code (as designed for integer, not my concatenated value range):
Private Sub Combox1_Change()
If Me.ComboBox1.Value <> "" Then
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Data Sheet")
Dim i As Integer
i = Application.Match(VBA.Clng(Me.Combox1.Value), sh.Range("L:L"), 0)
Thank you so much for any help, I appreciate it!
I have a combo box in a user form which returns a list of concatenated names. Based on the value the rest of this combobox the form is suppose to fill in the other values from the same sheet. When I run the code it returns a "type 13 mismatch".
I'm attempting to modify code originally was intended for a range with integers. Got it from a YouTube video (
Here is the code (as designed for integer, not my concatenated value range):
Private Sub Combox1_Change()
If Me.ComboBox1.Value <> "" Then
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Data Sheet")
Dim i As Integer
i = Application.Match(VBA.Clng(Me.Combox1.Value), sh.Range("L:L"), 0)
Thank you so much for any help, I appreciate it!