Tenho duas combobox em uma planilha, de marca e modelo de veículos, no entanto, preciso a cada consulta buscar o valor do veículo de acordo com sua utilização, para calcular a depreciação. O código que utilizei nas duas combobox foi:
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
Pergunta
caetano simone filho
Tenho duas combobox em uma planilha, de marca e modelo de veículos, no entanto, preciso a cada consulta buscar o valor do veículo de acordo com sua utilização, para calcular a depreciação. O código que utilizei nas duas combobox foi:
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
A Tabela:
A B C D E F G H I
Alguém poderia me ajudar a completar o código
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.