Vídeo recomendado
https://youtu.be/diWPPPhW-9E

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: 285
Registrado em: Qua Dez 09, 2015 5:54 pm

ao Apagar valor escrito na textbox dá erro

Mensagem por pedro_mexico »

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 2767 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: 1537
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 »

experimente:

Código: Selecionar todos

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


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

Re: ao Apagar valor escrito na textbox dá erro

Mensagem por pedro_mexico »

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: 1537
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 »

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


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: 285
Registrado em: Qua Dez 09, 2015 5:54 pm

Re: ao Apagar valor escrito na textbox dá erro

Mensagem por pedro_mexico »

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