Este fórum está sendo desativado

[walber]

Boa noite

Criei uma planilha de cadastro usando UserForm, não ficou lá essas coisas, mas atende a minha necessidade.
o problema esta na UserForm pesquisa , o código que coloquei só puxa os dados da primeira linha. Quando seleciono outro valor não faz a busca.
Coloquei para só selecionar quando clico na OS

se puder da algumas dicas para melhora fico grato

[Reinaldo]

Experimente:
Altere em sua rotina ListDescricao a linha do if conforme abaixo

Código: Selecionar todos

Private Sub ListDescricao_Change()
Dim Lin As Integer
Lin = 2
Do Until Sheets("CLIENTES").Cells(Lin, 4).Value = Empty
    If Sheets("CLIENTES").Cells(Lin, 4).Text = ListDescricao.Value Then
        TextNome.Value = Sheets("CLIENTES").Cells(Lin, 1).Value
        TextCPF.Value = Sheets("CLIENTES").Cells(Lin, 2).Value
        TextTelefone.Value = Sheets("CLIENTES").Cells(Lin, 3).Value
        TextDefeito.Value = Sheets("CLIENTES").Cells(Lin, 5).Value
        Exit Do
    End If
Lin = Lin + 1
Loop
End Sub