how fill listbox (ActiveX) based combobox (ActiveX)
i need choise value in combobox (ActiveX), then listbox (ActiveX) show data from tab "OrigData"![]()
Private Sub ComboBox1_Change() Dim c As Variant With Worksheets("Dados") c = Application.Match(ComboBox1.Value, .Range("A1:D1000"), 0) If Not IsError(c) Then ListBox1.List = .Range(.Cells(2, c), .Cells(Rows.Count, c).End(xlUp)).Value End If End With End Sub
Bookmarks