- 04 Jul 2016 às 11:42
#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,
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,