Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
  • Avatar do usuário
#12446
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,
#12458
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
#12460
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
#12461
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...
#12545
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
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord