none
listbox dependente de combobox (dando erro) RRS feed

  • Pergunta

  • 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
    

    quinta-feira, 11 de junho de 2015 21:39

Respostas

Todas as Respostas