Tenho uma planilha em Excel "Tabela Fipe" e criei duas combobox de marca e modelo, no entanto, de acordo com as escolhas preciso retornar os valores correspondentes da tabela para calculo de depreciação que pode ser 12, 24 ou 36 meses.
Private Sub Cbxmarcas_Change()
Dim rng As Excel.Range
Me.Cbxmodelos.Clear
For Each rng In Sheets("Fipe").Range("b2:b996")
If rng.Value = Me.Cbxmarcas.Text Then
Me.Cbxmodelos.AddItem (rng.Offset(0, 1).Value)
End If
Next rng
Me.Cbxmodelos.ListIndex = 0
End Sub
Sou leigo e pesquisei na WEB esse codigo para meu trabalho.
