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,033 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