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