JCSNF
-
Posts
1 -
Cadastrado em
-
Última visita
Tipo de conteúdo
Artigos
Selos
Fabricantes
Livros
Cursos
Análises
Fórum
posts postados por JCSNF
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais
Preencher Caixa de Texto com Base na Seleção de Combobox em UserForm no Excel
em Microsoft Office e similares
Postado
Boa Tarde,
Estou precisando de uma ajuda na programação do VBA no Excel, já pesquisei e não achei o que me atende.
Criei uma planilha (Plan1) com dois campos: Código e Descrição, abri o VBA e criei um Userform1 com dois campos:
Combobox1 e um TextBox1.
Na planilha coloquei campos "Codigo e Descrição para usar na coluna J e K (Figura tabela do codigo e descrição)
Para preencher a comboBox1 , cliquei no UserForm1 e coloquei no evento initialize o seguinte código. (Figura Layout4)
lin = 3
Do Until Sheets("Plan1").Cells(lin, 10) = "" 'Codigo da munição
ComboBox1.AddItem Sheets("Plan1").Cells(lin, 10)
lin = lin + 1
Loop
End Sub
Com isso quando executar e clicar no Combobox1 aparece o codigo. (Figura layout2)
O que preciso é que quando fizer isso, automaticamente no TextBox1 aparece a descrição.
QUem puder me ajudar , desde já agradeço e peço que explique onde sera colocado o comando , se é no mesmo evento initialize ou outro.
A os dados do userform só serão passados para a planilha , clicando no botão incluir.