Ajuda

[Bastian Flores]

Prezados, boa noite.

Preciso fazer funcionar minha userfomr da seguinte forma.

Preciso fazer com que os dados inseridos dentro, sejam computados automaticamente numa linha do meu banco de dados. Podem me ajudar?

Meu código é o seguinte:

Private Sub Cmb_Modelo_Change()

End Sub

Private Sub UserForm_Activate()
Me.Cmb_Marca.Clear
Me.Cmb_Modelo.Clear

Linha_Leitura = 16

Do
    Marca = Worksheets("Dados Auxiliares").Cells(Linha_Leitura, 1)
    If Marca = "" Then Exit Do
    Me.Cmb_Marca.AddItem Marca
    Linha_Leitura = Linha_Leitura + 1
Loop

Linha_Leitura = 16

Do
    Modelo = Worksheets("Dados Auxiliares").Cells(Linha_Leitura, 2)
    If Modelo = "" Then Exit Do
    Me.Cmb_Modelo.AddItem Modelo
    Linha_Leitura = Linha_Leitura + 1
Loop

End Sub

Se alguém puder me ajudar, eu agradeço.

BASTIAN

[JoséA]

Com seu arquivo em mãos facilitaria o trabalho.