Página 1 de 1

ao Apagar valor escrito na textbox dá erro

Enviado: Sex Set 20, 2019 7:12 pm
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

Re: ao Apagar valor escrito na textbox dá erro

Enviado: Sex Set 20, 2019 8:21 pm
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

Re: ao Apagar valor escrito na textbox dá erro

Enviado: Sex Set 20, 2019 9:03 pm
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

Re: ao Apagar valor escrito na textbox dá erro

Enviado: Sáb Set 21, 2019 2:15 pm
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.

Re: ao Apagar valor escrito na textbox dá erro

Enviado: Sáb Set 21, 2019 6:54 pm
por pedro_mexico
obrigado e bom fim de semana