Pessoal, bom sabadão a todos!
É o seguinte, possuo uma userform de pesquisa, a qual possui dois combobox combinados.
O primeiro combo (ComboBoxCentrodecusto), é carregado de acordo com os dados cadastrados na plan1, enquanto os itens do combobox2 (ComboBoxContaRazão) são oriundos da plan2.
O que acontece é que, por exemplo, se eu selecionar Alimentação no ComboBoxCentrodecusto, o ComboBoxContaRazão carrega todos itens referentes a Alimentação ex: Restaurante, pizzaria, supermercado etc. Mas, tendo em vista que existe vários restaurantes cadastrado, o ComboBoxContaRazão apresenta vários dados repetidos:
Ex:
Pizzaria
Restaurante
Restaurante
Supermercado
Restaurante
Eu preciso que esses dados não se repitam! Eu utilizo o código abaixo:
Private Sub ComboBoxCentrodecusto_Change()
If Me.ComboBoxCentrodecusto.ListIndex <> -1 Then
Call CarregaProdutos(Me.ComboBoxCentrodecusto.List(Me.ComboBoxCentrodecusto.ListIndex))
end if
end sub
Private Sub CarregaProdutos(ByVal Categoria As String)
Dim linha As Integer, colunaProduto As Integer, colunaCategoria As Integer
linha = 2
ComboBoxContaRazão.Clear
colunaProduto = 1
colunaCategoria = 2
With Sheets("Produtos")
Do While Not IsEmpty(.Cells(linha, colunaProduto))
If .Cells(linha, colunaCategoria).Value = Categoria Then
Me.ComboBoxContaRazão.AddItem .Cells(linha, colunaProduto).Value
End If
linha = linha + 1
Loop
End With
end sub
Postado : 17/08/2013 9:48 am