Dim Audi_Model As Variant
    Dim Renault_Model As Variant
    Dim Fiat_Model As Variant
    Dim Porsche_Model As Variant
    Dim Volkswagen_Model As Variant
    Dim Mazda_Model As Variant


 
Private Sub UserForm_Initialize()

    
    Audi_Model = Array("100", "90", "A4 Cabriolet", "Q3", "RS6", "S5 Sportback")
    Renault_Model = Array("Captur", "Clio", "Espace", "Express", "Fluence", "Grand Espace", "Grand Modus", "Grand Scenic", "Kadjar", "Kangoo")
    Fiat_Model = Array("Fiorino", "Freemont", "Grande Punto", "Idea", "Linea", "Marea", "Marengo", "Multipla", "Palio", "Panda", "Punto", "Qubo", "Regata", "Scudo", "Sedici", "Seicento", "Spider Europa", "Stilo", "Tempra", "Tipo", "Ulysse", "Uno")
    Porsche_Model = Array("911", "924", "928", "944", "Boxster", "Cayenne", "Cayman", "Macan", "Panamera")
    Volkswagen_Model = Array("Amarok", "Arteon", "Bora", "Buggy", "Buba", "Nova Buba", "Caddy", "Cross Polo", "EOS", "Fox", "Golf", "Golf 1", "Golf 2", "Golf 3", "Golf 4", "Golf 5", "Golf 6", "Golf 7", "Golf Plus", "Golf Sportsvan", "Jetta", "Lupo", "Passat", "Passat B1", "Passat B2", "Passat B3", "Passat B4", "Passat B5", "Passat B5.5", "Passat B6", "Passat B7", "Passat B8", "Passat CC", "Phaeton", "Polo", "Scirocco", "Sharan", "T-Cross", "T-Roc", "Tiguan", "Touareg", "Touran", "up!", "Vento")
    Mazda_Model = Array("B 250", "BT-50", "CX-3", "CX-5", "CX-7", "CX-30", "Demio", "MPV", "MX-3", "MX-5", "MX-6", "Premacy", "RX-7", "RX-8", "Tribute", "Xedos")

        
    cb_Brend.AddItem ("Audi")
    cb_Brend.AddItem ("Renault")
    cb_Brend.AddItem ("Fiat")
    cb_Brend.AddItem ("Porsche")
    cb_Brend.AddItem ("Volkswagen")
    cb_Brend.AddItem ("Mazda")
    
 

    With lb_Boja
        .AddItem "Crvena"
        .AddItem "Plava"
        .AddItem "Crna"
        .AddItem "Siva"
        .AddItem "Bela"
        .AddItem "Zelena"
        .AddItem "Zuta"
        .AddItem "Pink +"
    End With

End Sub




Private Sub cb_Brend_Change()

    cb_Model.Value = ""
    cb_Model.Clear
    

'>>>>>>>>>>>>>>>>>>>> Audi <<<<<<<<<<<<<<<<<<'
  If cb_Brend.Value = "Audi" Then
        cb_Model.List = Audi_Model
  End If
  
'>>>>>>>>>>>>>>>>>>>> Renault <<<<<<<<<<<<<<<<<<'
 ' If cb_Brend.Value = "Renault" Then
   If cb_Brend.ListIndex = 1 Then
        cb_Model.List = Renault_Model
  End If
  
'>>>>>>>>>>>>>>>>>>>> Fiat <<<<<<<<<<<<<<<<<<'
   If cb_Brend.Value = "Fiat" Then
        cb_Model.List = Fiat_Model
  End If
  
'>>>>>>>>>>>>>>>>>>>> Porsche <<<<<<<<<<<<<<<<<<'
   If cb_Brend.Value = "Porsche" Then
        cb_Model.List = Porsche_Model
  End If
  
'>>>>>>>>>>>>>>>>>>>> Volkswagen <<<<<<<<<<<<<<<<<<'
   If cb_Brend.Value = "Volkswagen" Then
        cb_Model.List = Volkswagen_Model
  End If
  
'>>>>>>>>>>>>>>>>>>>> Mazda <<<<<<<<<<<<<<<<<<'
   If cb_Brend.Value = "Mazda" Then
        cb_Model.List = Mazda_Model
  End If
End Sub






Private Sub lb_Boja_Change()

    BOJA.Caption = ""
    

    '  Crvena
    If lb_Boja.ListIndex = 0 Then
        BOJA.BackColor = &HFF&
    End If
    '   Plava
    If lb_Boja.ListIndex = 1 Then
        BOJA.BackColor = &HFF0000
    End If
    ' Crna
    If lb_Boja.ListIndex = 2 Then
        BOJA.BackColor = &H0&
    End If
    '   Siva
    If lb_Boja.ListIndex = 3 Then
        BOJA.BackColor = &H808080
    End If
    '   Bela
    If lb_Boja.ListIndex = 4 Then
        BOJA.BackColor = &HFFFFFF
    End If
    '   Zelena
    If lb_Boja.ListIndex = 5 Then
        BOJA.BackColor = &H8000&
    End If
    '   Zuta
    If lb_Boja.ListIndex = 6 Then
        BOJA.BackColor = &HFFFF&
    End If
    '   PINK +
    If lb_Boja.ListIndex = 7 Then
        BOJA.BackColor = RGB(255, 192, 203)
    End If


End Sub
 
 
 
 
Private Sub btn_Save_Click()

    Sheet1.Range("C6") = cb_Brend.Value & " " & cb_Model.Value
    Sheet1.Range("D6") = lb_Boja.Value

End Sub