Už sa tu takéto nedávno riešilo (dokonca i pre autá) v príspevku:
http://www.porada.sk/t173558-rolovacie-menu-s-podmienkami.html#post1811159
Je to spôsob, ako to vyriešiť bez makra.

Vo svojom VBA kóde treba doplniť analogickú funkciu aká tam je pre automobilku i pre značku auta
(pre názvy comboboxov - Combo_auto, Combo_znacka, Combo_model):

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



Palo

v accesse sa daju tiez taketo veci robit a su rychlejsie...