listbox dependente de combobox (dando erro)

Question

boa noite pessoal tudo na paz, pretendo colocar uma listbox dependente de uma combobox mas esta dando erro

se poder me ajudar desde ja obrigado


'esse codigo serve para  lixtbox e combobox dependente da outra, mas esta dando um erro

Private Sub txt_codigo_Enter()

Dim intervalo As Range
 Dim texto As String
 Dim codigo As String  
 'Dim codigo As Integer 
 Dim mensagem

codigo = txt_codigo      'o erro esta dando aqui

Sheets("CONTROLE").Select
 Set intervalo = Range("S3:T500") 

On Error GoTo erro

pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False)


 txt_total = pesquisa


 Exit Sub

erro:
 texto = "não foi localizado nenhum  valor correspondente ao codigo..."
 mensagem = MsgBox(vbOKOnly + vbInformation)
 '----------------------------

End Sub

Answer 1

O que é txt_codigo ?

Answer 2

Boa tarde André!

 É uma textBox com esse nome ( codigo = txt_codigo )    

Answer 3

Estranho. Qual é a mensagem de erro que você obtém?

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 4

Colega

Testou o o nome da planilha da base de dados? 

'Sheets("CONTROLE").Select

'Sheets("Plan1").Select

ou outro nome