Boa noite
Estou a tentar que uma combobox preencha oito textbox contudo não estou a conseguir alguém me pode ajudar? Agradeço, estou a utilizar os seguintes procedimentos:
Private Sub UserForm_Initialize()
Dim linha As Integer
linha = 2
Do Until Folha3.Range("b" & linha).Value = ""
cbxnome.AddItem Folha3.Range("B" & linha).Value
cbxnome.AddItem Folha3.Range("C" & linha).Value
cbxnome.AddItem Folha3.Range("D" & linha).Value
cbxnome.AddItem Folha3.Range("E" & linha).Value
cbxnome.AddItem Folha3.Range("F" & linha).Value
cbxnome.AddItem Folha3.Range("G" & linha).Value
cbxnome.AddItem Folha3.Range("H" & linha).Value
cbxnome.AddItem Folha3.Range("I" & linha).Value
cbxnome.AddItem Folha3.Range("J" & linha).Value
linha = linha + 1
Loop
End Sub
Private Sub cbxnome_Change()
txtmorada.Value = cbxnome.List(cbxnome.ListIndex, 2)
txtnumero.Value = cbxnome.List(cbxnome.ListIndex, 3)
txtcodpostal.Value = cbxnome.List(cbxnome.ListIndex, 4)
txttelefone.Value = cbxnome.List(cbxnome.ListIndex, 5)
txttelemovel.Value = cbxnome.List(cbxnome.ListIndex, 6)
txtemail.Value = cbxnome.List(cbxnome.ListIndex, 7)
txtcidadao.Value = cbxnome.List(cbxnome.ListIndex, 8)
txtcontribuinte.Value = cbxnome.List(cbxnome.ListIndex, 9)
End Sub
Grato desde já
Att.,
RM
Kd o arquivo modelo com o exemplo
Marcelo Prudencio
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
Boa noite
Peço desculpa aí vai.
Att.,
RM
Nao entendi vc pretende que a combobox preencha o listbox ou a tabela banco de dados ou ainda os dois?
Nao entendi pq vc quer fazer isso duas vezes ja que vc tem o cadastro dos paroquianos pra que duplica-los no banco de dados?
Nao faz sentido.
Marcelo Prudencio
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
Bom dia Marcelo
Resolvi ter um formulário para a tabela paroquianos e outro para lançar os direitos.
Agora não é possível ter um evento tipo:
"If combobox.value="2014" then
Lançar na linha x, y = combobox.value mas que conferisse o nome e fizesse o lançamento na linha e coluna de 2014? É possível?
Att.,
RM
Lancar os dados duas vezes so vai deixar seu arquivo grande.
Como eu disse no outro topico faça os lançamentos em linha
Tenha uma coluna para o valor e uma para o ano onde vc lança o ano e pronto.
Veja um exemplo simples
Marcelo Prudencio
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
Ok vc tem razão vou implementar.
Só uma questão como ativo a referência no vba para .view lvwReport
Obrigado
RM
Quando vou para ativar estas duas referencias elas não aparecem para selecionar, como faço para aparecerem tenho o office 2016. Obrigado. Imagens em anexo do que preciso.
Att.,
RM
Ficou a faltar este.