Notifications
Clear all

COMBOBOX 2 COLUNAS

9 Posts
2 Usuários
0 Reactions
1,467 Visualizações
(@januario)
Posts: 0
New Member
Topic starter
 

Gostaria de contar com a ajuda dos experts em VBA. Para facilitar o preenchimento de um formulário pelo usuário, de forma que ele veja uma lista em ordem alfabética de nomes (clientes, fornecedores, produtos, etc.), foram adicionados num combobox uma coluna (0), com o código e uma coluna (1) com os nomes. Como faço para ao escolher o nome e clicar (evento click ou evento change), o combobox capte a col (1) de nomes, neste mesmo combo, pois, para um textbox (código), já está atualizando pela coluna 0, com o evento click do combobox 2 colunas. Não estou conseguindo selecionar com o evento click que o combobox que estou selecionando, capte o nome que escolhi coluna(1) e sim está captando a coluna(0), o código.

 
Postado : 09/06/2017 3:14 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Januário,

Bom dia!

Anexe seu arquivo aqui, compactadora com . ZIP, por gentileza. Isso ajudará a todos a lhe dar uma resposta mais rápida.

 
Postado : 10/06/2017 8:24 am
(@januario)
Posts: 0
New Member
Topic starter
 

Wagner, bom dia ..!!

Obrigado pelo atendimento. O arquivo é extenso e está inconcluso e tem muitos relacionamentos. Caso realmente precise, vou montar. Mas segue anexo a parte do código que funciona e a está com problema. A rotina alimenta bem o combobox, em duas colunas perfeitamente. O problema é quando o item é selecionado e um evento click ou change possa capturar o nome da segunda coluna(1), pq começa contar do zero as colunas. Neste evento alimenta também outro campo, um text list com o código e está funcionando, só não ele mesmo capturar para si o nome escolhido da coluna (1) ao ser clicado. Está pegando a coluna (0). Segue a rotina num arquivo texto, caso necessite realmente, monto numa planilha com macro e envio.

 
Postado : 10/06/2017 9:55 am
(@januario)
Posts: 0
New Member
Topic starter
 

Wagner, boa tarde ..!!

Demorei um pouco para preparar o modelo com erro, mas, ora estou enviando, segue o anexo. Estive viajando a trabalho. Agradeço muito a ajuda de vocês, experts no assunto.
Abraço!

 
Postado : 23/06/2017 11:37 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

JANUARIO,

Boa tarde!

Entendi... Você está querendo carregar no combo apenas os nomes dos clientes. Até aonde vai o meu conhecimento (que não é muito) acho que isso não é possível. Se eu estivesse desenvolvendo esse projeto, faria com dois combos (uma para cada situação) ou apenas um para o código que traria em uma caixa de texto o nome.

 
Postado : 23/06/2017 12:53 pm
(@januario)
Posts: 0
New Member
Topic starter
 

Wagner, boa tarde ..!!
Obrigado pela atenção. Sim, imaginei isso, carregar o combo para captar o código e através deste combo, pesquisar pelo código e pegar o nome. Por enquanto acho que essa é a melhor saída, mas, imagino que tenha sim uma solução para o primeiro caso. Digo porque tenho um exemplo aqui de um ListBox com várias colunas e você especifica qual coluna pegar a informação, com ListIndex, tipo: column(0), column(1), column(2), etc., onde a coluna 1 começa com (0). Mas, qualquer coisa, se você descobrir algo, por favor, me comunique.

 
Postado : 23/06/2017 3:21 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

JANUARIO,

Beleza. Posta aí esse código que pega uma coluna só de um combo com muitas colunas. Quem sabe eu dando uma olhada consigo saber como é isso?

 
Postado : 24/06/2017 2:37 pm
(@januario)
Posts: 0
New Member
Topic starter
 

Wagner, boa tarde ..!!
Consegui resolver fazendo uma alteração. O código que carregava o combo: código do cliente na 1a. coluna e a descrição na 2a. coluna, inverti. Agora, ao clicar no item selecionado, o mesmo carrega a caixa do combo e simultaneamente, carrega outra caixa um textbox com o código da 2a. coluna, com o seguinte código: nomeobjeto(textbox).text = nomedoobjeto(combobox).column(1), com este código, carregou o textbox (com o valor da segunda coluna do combo, que agora é o código e não a descrição). Mas, fiquei pensando, se pega a 2a. coluna para carregar um textbox, por que não pega para carregar o próprio combo? Talvez ele não aceite esta propriedade. Outra coisa que mudei foi, alterar o código do combo de Change para Click.
Na mensagem anterior já havia enviado a planilha (zip) com erro. Agora já corrigido veja o código no arquivo anexo.

 
Postado : 26/06/2017 4:05 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Beleza Januario.

Valeu. Obrigado.

 
Postado : 27/06/2017 7:52 am