Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
combobox preenche t...
 
Notifications
Clear all

combobox preenche textbox

 
2024 - VBA & Macros
Post Recente por Rui Maciel 8 anos atrás
9 Posts
2 Usuários
0 Reactions
1,025 Visualizações
RSS
 Rui Maciel
(@rui-maciel)
Posts: 190
Reputable Member
Topic starter
 

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

 
Postado : 28/10/2016 5:52 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Kd o arquivo modelo com o exemplo

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"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.

 
Postado : 28/10/2016 6:31 pm
 Rui Maciel
(@rui-maciel)
Posts: 190
Reputable Member
Topic starter
 

Boa noite
Peço desculpa aí vai.
Att.,
RM

 
Postado : 29/10/2016 2:41 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

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
Microsoft Excel Brasil no Facebook

"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.

 
Postado : 29/10/2016 4:15 pm
 Rui Maciel
(@rui-maciel)
Posts: 190
Reputable Member
Topic starter
 

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

 
Postado : 30/10/2016 6:17 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

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
Microsoft Excel Brasil no Facebook

"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.

 
Postado : 30/10/2016 7:37 am
 Rui Maciel
(@rui-maciel)
Posts: 190
Reputable Member
Topic starter
 

Ok vc tem razão vou implementar.
Só uma questão como ativo a referência no vba para .view lvwReport
Obrigado
RM

 
Postado : 30/10/2016 9:22 am
 Rui Maciel
(@rui-maciel)
Posts: 190
Reputable Member
Topic starter
 

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

 
Postado : 30/10/2016 9:45 am
 Rui Maciel
(@rui-maciel)
Posts: 190
Reputable Member
Topic starter
 

Ficou a faltar este.

 
Postado : 30/10/2016 9:46 am
Forum Jump:
  Tópico Anterior
Próximo Tópico