textbox exibir valor referente ao item do combobox

[Guima]

Meus caros colegas boa noite,

Estou com um problema que não consegui uma saída. Tenho dois combos dependentes, sendo que um carrega o nome de empresas, e o outro o nome de funcionários de cada empresa. Ou seja se eu seleciono a empresa A no combobox1, o combobox2 exibe o funcionário 1, 2 e 3, se seleciono a empresa B, o combobox2 chama os funcionários 4,5 e 6. Até ai tudo certo, funciona muito bem, porém, tenho um Textbox que exibe o salário de cada funcionário, e ai mora meu problema, atribuindo ao textbox o valor encontrado na propriedade ListIndex do combobox, o valore retornado não está correto. Algum dos colegas saberia de que forma conseguiria retornar no Textbox, o valor salarial que é referente ao funcionário selecionado no combo ?

Abraço

[webmaster]

Guima,

Se você está buscando os valores na planilha com referência a linha em que estão os dados, você tem que fazer o acerto com o índice do combobox. O índice do combobox começa em 0 (zero). Em uma listagem, seria algo como:

Código: Selecionar todos

Índice	Valor
-1	Não selecionado
0	Item 1
1	Item 2
2	Item 3
...

Ou seja, dependendo de onde sua planilha começa, você tem que fazer o acerto do índice, por exemplo, em uma planilha disposta da seguinte forma:

Código: Selecionar todos

	A	B
1	Codigo	Nome
2	1000	Maria
3	1001	João
4	1002	Huguinho
5	1003	Zezinho

Os dados começam na linha ou índice 2. Se for buscar o dado nesta planilha referente ao índice do combobox, você deveria somar 2 ao índice, por exemplo:

Código: Selecionar todos

Me.TextBox.Text = Plan1.Cells(Me.ComboBox.ListIndex + 2, 2).Value

Deve ser isso.

Abraços

[Guima]

Ou seja, dependendo de onde sua planilha começa, você tem que fazer o acerto do índice, por exemplo, em uma planilha disposta da seguinte forma:

Código: Selecionar todos

	A	B
1	Codigo	Nome
2	1000	Maria
3	1001	João
4	1002	Huguinho
5	1003	Zezinho

Os dados começam na linha ou índice 2. Se for buscar o dado nesta planilha referente ao índice do combobox, você deveria somar 2 ao índice, por exemplo:

Código: Selecionar todos

Me.TextBox.Text = Plan1.Cells(Me.ComboBox.ListIndex + 2, 2).Value

Deve ser isso.

Abraços

Olá Tomás,

No momento não tive oportunidade de testar seu exemplo, mas notei algo importante faltando no exemplo citado por vc. No meu caso é mais ou menos assim:

Código: Selecionar todos

	A	B                  C
1	Codigo	Nome            EMPRESA 
2	1000	Maria            EMPRESA DO TOMAS
3	1001	João              EMPRESA DO JOSE
4	1002	Huguinho       EMPRESA DO GUIMA
5	1003	Zezinho          EMPRESA DO TOMAS
6              1004         Luisinho        EMPRESA DO GUIMA  

Quando eu seleciono a EMPRESA DO TOMAS no combobox1, o combo2 me retorna somente a Maria e o Zezinho, e eles não seguem a sequencia lógica de linhas, ou seja, dessa forma o valor salarial puxado no Textbox do Zezinho, por exemplo, seria do João e não do Zezinho. Ufa... deu pra entender ?

ABraços

[webmaster]

Opa!

Aí o papo é outro! Se o combobox 2 não está sendo preenchido de acordo com o que está na planilha, temos que usar outros métodos. Até porque, se alterar a ordem dos itens no combo, ele se torna inválido concorda?

Veja se este post ajuda:

viewtopic.php?f=6&t=109

Assim, você preencherá o combo com uma lista de chave/valor, tornando os dados e sua busca mais consistente.

Abraços

[Guima]

Ola Tomas,

Desculpe, mas nao consegui por meio desse exemplo.... ainda to meio perdido. O Adilson ate me disse que deveria usar o Application.WorksheetFunction.Index so que ainda nao consegui entender como deveria ser a estrutura...

Abraco

[joseA]

... No meu caso é mais ou menos assim:

Código: Selecionar todos

	A	B                  C
1	Codigo	Nome            EMPRESA 
2	1000	Maria            EMPRESA DO TOMAS
3	1001	João              EMPRESA DO JOSE
4	1002	Huguinho       EMPRESA DO GUIMA
5	1003	Zezinho          EMPRESA DO TOMAS
6              1004         Luisinho        EMPRESA DO GUIMA  

Quando eu seleciono a EMPRESA DO TOMAS no combobox1, o combo2 me retorna somente a Maria e o Zezinho...

Olá Guilherme,



Seguindo a sua citação improvisei um modelo, veja se é isso:

[webmaster]

Jose,

É uma boa alternativa. Se resolver o problema do Guima, ficamos por aqui.

Abraços e obrigado

[Guima]

Boa noite Turma,

José...you are beast !!! Deu certo !!!! Tive que quebrar a cabeça um pouco e fazer algumas adaptações, mas ficou jóia !!!

Tomás, valeu demais por toda contribuição meu caro. Agora ficou uma curiosidade... sobre esse objeto Collection, nunca havia visto.

Abraço à vocês

[webmaster]

Guima,

Muito resumidamente, a Collection é uma evolução do Array. É uma coleção itens que você pode mudar, adicionar, remover, acessar e alterar com mais facilidade. Um artigo sobre seu uso pode ser visto aqui:

http://www.macoratti.net/vb_col1.htm

E aqui:

http://imasters.uol.com.br/artigo/7073/ ... l_basic_6/

Abraços

[joseA]

...José...you are beast !!!...

Que é isso?? "beast" ofensa não vale!!!

Brincadeiras a parte, fico feliz que tenha dado certo Guilherme.

Tomas, obrigado pelas referências.