Saberexcel - o site de quem precisa Aprender Macros Microsoft Excel VBA

Esse exemplo de procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando o objeto ComboBox, retornam valores multi-dados, isto é, retornam valores classe relacionado ao código do produto, observe que a propriedade Offset esta direcionando para busca dos na coluna(A), da folha de planiha 'bd'.  Observe que o valor retornado do código é automaticamente é inserido a correspondência do código. Baixe o exemplo de planiha contendo o procedimento com o Evento no final da página. Fiquem com Deus. Expedito Marcondes.

Private Sub ComboBox2_Change()
 ComboBox1.Text = Sheets("bd").Range("A:A").Find(ComboBox2.Text).Offset(0, 1)  'buscando multidados classe baseado no código.
 'Worksheets("bd").Range("A" & i + 1).Value = ComboBox1.Text  'somente para teste em outra folha de planilha.
 'abaixo os códigos retornaram os valores para a folha de planilha sequencia a medida em que o combobox for sendo clicado.
 [H65000].End(xlUp).Offset(1, 0).Select
 ActiveCell.Value = ComboBox1.Value
 ActiveCell.Offset(0, 1).Value = ComboBox2.Value
 'nesta linha de código retorna para célula [B12] os valores das combobox selecionadas,
 [B12].Value = "Dados Selecionados - { CLASSE [ " & ComboBox1.Value & " ] ---- CÓDIGO...: [ " & ComboBox2.Value & " ] }"
 [E1].Select
End Sub

 
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel




   Baixe o exemplo de planilha contendo os o procedimento acima
Excel planilha vba combobox busca codigos relacionados (208.21 KB)

Publicidade
Compre com segurança, garantia e ótimos preços