Página 1 de 1

Carregar dados de varias planilhas na mesma combobox

Enviado: 04 Jul 2016 às 11:42
por Luciano021273
Bom dia!

Gostaria que alguém me ajudasse no seguinte problema que gostaria de resolver,

Na planilha 1 tenho informações de clientes que coloquei uma combobox para carregar as informações nas textbox do formulário, mas no mesmo formulário coloquei outras textbox que precisaria carregar informações de outras planilhas tipo planilha 2 e 3

e quando salvar centralizar as informações na planilha 4 onde vai ficar todas as alterações dos ajustes de todas as outras planilhas...

a rotina que uso para carregar a rotina de da plan1 segue abaixo, agora precisaria que alguém me orientasse a incluir a plan2 e 3

Private Sub cmbFnomecliente_Change()
Sheets("Ficha_de_Clientes").Select
Range("B2").Select
While ActiveCell <> ""

If cmbFnomecliente.Text = ActiveCell Then
txtFcodcliente = ActiveCell.Offset(0, -1).Value
txtFnomecliente = ActiveCell.Offset(0, 0).Value
txtFcpf = ActiveCell.Offset(0, 1).Value
txtFrg = ActiveCell.Offset(0, 2).Value
txtFoemissor = ActiveCell.Offset(0, 3).Value
txtFufdoc = ActiveCell.Offset(0, 4).Value
txtFdataemisdoc = ActiveCell.Offset(0, 5).Value
txtFufnasc = ActiveCell.Offset(0, 6).Value
txtFdatanasc = ActiveCell.Offset(0, 7).Value
txtFnaturalidade = ActiveCell.Offset(0, 8).Value

End If
ActiveCell.Offset(1, 0).Activate
Wend

Grato desde já pela ajuda que possam fazer por mim...
atenciosamente,

Re: Carregar dados de varias planilhas na mesma combobox

Enviado: 04 Jul 2016 às 15:49
por alexandrevba
Boa tarde!!

Que tipo de controle você está usando (Form, ActiveX, UserForm)? ou seja o controle (textbox, combobox etc), vai ficar na guia ou no Userform?

Faça referencia da guia que pretende capturar os dados.
http://www.get-digital-help.com/2011/12 ... using-vba/

Leia:
https://support.office.com/en-us/articl ... b9ab94e7c2
http://chandoo.org/wp/2011/03/30/form-controls/

Att

Carregar dados de varias planilhas na mesma combobox

Enviado: 04 Jul 2016 às 16:09
por Reinaldo
Precisa também informa/definir qual o dado que referencia a primeira planilha com as demais. Poste seu modelo demonstrando manualmente o que tem e o que espera; altere nomes/DOC.. etc, para dados fictícios, porem que condigam com a estrutura de sua planilha

Carregar dados de varias planilhas na mesma combobox

Enviado: 04 Jul 2016 às 18:46
por Luciano021273
Estou usando 3 userform cada userform tem uma planilha como banco de dados,
Exemplo: userform1= cadastro de cliente
userform2=negociação
userform3=Contrato
cadastro o cliente, puxo no userform= negociação e cadastro o preço da negociação quando vou fazer o contrato preço que quando puxe os dados do cliente, ele vai la no outro banco de dados no mesmo cliente, com linhas diferente ( cadastro de cliente: joão linha 2) na negociação (joão linha 1) porque nem sempre negocio porque se fosse na mesma linha ficaria mais fácil....

então preciso do comando, que quando for joão ele vá em todos os bancos de dados e capture as informações que quero...
tentei fazer mais estou usando este comendoPrivate Sub cmbFnomecliente_Change()
Sheets("Ficha_de_Clientes").Select
Range("B2").Select
While ActiveCell <> ""

If cmbFnomecliente.Text = ActiveCell Then
txtFcodcliente = ActiveCell.Offset(0, -1).Value
txtFnomecliente = ActiveCell.Offset(0, 0).Value
txtFcpf = ActiveCell.Offset(0, 1).Value
txtFrg = ActiveCell.Offset(0, 2).Value
txtFoemissor = ActiveCell.Offset(0, 3).Value
txtFufdoc = ActiveCell.Offset(0, 4).Value
txtFdataemisdoc = ActiveCell.Offset(0, 5).Value
txtFufnasc = ActiveCell.Offset(0, 6).Value
txtFdatanasc = ActiveCell.Offset(0, 7).Value
txtFnaturalidade = ActiveCell.Offset(0, 8).Value

End If
ActiveCell.Offset(1, 0).Activate
Wend

e coloquei o mesmo para o mesma combobox, só que quando estou selecionado a plan1 puxa dados da plan1 se estou na plan2 puxa dados plan 2 ele não esta respeitando, puxar o cliente joão e onde tiver joão com o mesmo codigo de registro pegue as colunas que preciso para preencher minhas textbox através com a combobox pesquisa...

então precisaria ver se Private Sub cmbFnomecliente_Change()
Sheets("Ficha_de_Clientes").Select
Range("B2").Select
While ActiveCell <> ""

If cmbFnomecliente.Text = ActiveCell Then
txtFcodcliente = ActiveCell.Offset(0, -1).Value

eu consiga aqui colocar dados das outras planilhas...

não vou postar o exemplo que esta muito extenso e com senhas já esta ficando enorme tudo isso...

Re: Carregar dados de varias planilhas na mesma combobox

Enviado: 07 Jul 2016 às 16:35
por alexandrevba
Boa tarde!!

Eu sugiro, salva uma cópia do arquivo, remover o que não faz parte da dúvida (senhas, userform etc), salve o arquivo e poste aqui.

No mais se isso não for possível, eu creio que não vou conseguir te ajudar, pois está vago para responder de forma precisa.

Att