Private Sub Combo_AUTO_Change() Dim x As String, xSubArray() Dim xFlt As String, rSource As Range xFlt = Trim(combo_auto.Value) Set rSource = Range("B1:C21") Call Get_Filtered_Array(xFlt, rSource, xSubArray) Combo_znacka.List = xSubArray Combo_znacka.Value = Null Combo_model.Value = Null End Sub Private Sub Combo_znacka_Change() Dim x As String, xSubArray() Dim xFlt As String, rSource As Range xFlt = Trim(Combo_znacka.Value) Set rSource = Range("D1:E91") Call Get_Filtered_Array(xFlt, rSource, xSubArray) Combo_model.List = xSubArray Combo_model.Value = Null End Sub
Užitočné (1) | Kabaka123 |
ComboBox