Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

ao Apagar valor escrito na textbox dá erro

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
pedro_mexico
Consultor
Consultor
Mensagens: 203
Registrado em: Qua Dez 09, 2015 5:54 pm

ao Apagar valor escrito na textbox dá erro

Mensagem por pedro_mexico » Sex Set 20, 2019 7:12 pm

Boa noite forum.
estou a simplificar codigos no meu formulario, e achei um que me facilita imenso, mas acontece que so tem uma coisa que nao sei resolver que é:
quando escrevo algo na minha combobox e me engano, faço apagar o que escrevi, e ao acabar de eliminar a primeira letra que escrevi faz dar erro no código(erro 381, imagem em anexo).

Alguem consegue dar uma ideia de como resolver

segue os codigos que tenho que é para ao selecionar ou escrever numa combobox um dado ele automaticamente vai buscar o resultado correspondente na mesma linha do valor anterior mas na coluna ao lado

Código: Selecionar todos

Private Sub UserForm_Initialize()
Dim linw As Integer
linw = 2

Do Until Folha5.Range("G" & linw).Value = ""
ComboBoxCondutor.AddItem Folha5.Range("G" & linw).Value
ComboBoxCondutor.List(linw - 2, 1) = Folha5.Range("G" & linw).Value

linw = linw + 1
Loop
End Sub

Código: Selecionar todos

Private Sub ComboBoxCondutor_Change()
ComboBoxPosto.Text = ComboBoxCondutor.List(ComboBoxCondutor.ListIndex, 1)
end sub
Obrigado
Anexos
Erro 381 vba.jpg
Erro 381 vba.jpg (19.08 KiB) Exibido 135 vezes



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1225
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: ao Apagar valor escrito na textbox dá erro

Mensagem por Reinaldo » Sex Set 20, 2019 8:21 pm

experimente:

Código: Selecionar todos

Private Sub ComboBoxCondutor_Change()
If ComboBoxCondutor.value="" then exit sub
ComboBoxPosto.Text = ComboBoxCondutor.List(ComboBoxCondutor.ListIndex, 1)
end sub


Reinaldo
Gostou da resposta?:?: :oops: :D :mrgreen:

pedro_mexico
Consultor
Consultor
Mensagens: 203
Registrado em: Qua Dez 09, 2015 5:54 pm

Re: ao Apagar valor escrito na textbox dá erro

Mensagem por pedro_mexico » Sex Set 20, 2019 9:03 pm

boa noite Reinaldo.
O codigo ajudou bastante, consigo adaptar para a textbox que esta relacionada tb apagar , ja que a comboboxposto recebe valor quando estou a digitar na comboboxcondutor ele vai associando o valor logo.


ja conseguiu dar uma vista de olhos no ero das combobox´s relacionadas do outro topico, coloquei o formulario como tinha pedido.

Mais uma vez obrigado



Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1225
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: ao Apagar valor escrito na textbox dá erro

Mensagem por Reinaldo » Sáb Set 21, 2019 2:15 pm

"...ja conseguiu dar uma vista de olhos no ero das combobox´s relacionadas do outro topico, coloquei o formulario como tinha pedido..."
Ainda não. e mais demorado;talvez neste fim de semana; se tiver uma folga maior.


Reinaldo
Gostou da resposta?:?: :oops: :D :mrgreen:

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


pedro_mexico
Consultor
Consultor
Mensagens: 203
Registrado em: Qua Dez 09, 2015 5:54 pm

Re: ao Apagar valor escrito na textbox dá erro

Mensagem por pedro_mexico » Sáb Set 21, 2019 6:54 pm

obrigado e bom fim de semana



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder