jamescooper
Well-known Member
- Joined
- Sep 8, 2014
- Messages
- 840
Have the following code to try that attempts to allow you to use the drop down in a userform which is dependent on the other. It is setup with an advanced filter in the spreadsheet. The problem I am encountering is that nothing shows in the dropdown box (combo box1), any ideas?
Thanks.
Thanks.
Code:
Private Sub ComboBox1_Change()
Dim r As Integer
r = 2
Range("F2").Value = ComboBox1.Value
Columns("C:D").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"F1:F2"), CopyToRange:=Range("H1:I1"), Unique:=False
ComboBox1.Clear
Do Until Cells(r, 9).Value = ""
ComboBox1.AddItem Cells(r, 9).Value
r = r + 1
Loop
End Sub