Guru do Excel e Power BI

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

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

Guru do Excel e Power BI

Código VBA não esta funcionando

Código VBA não esta funcionando

Código VBA não esta funcionando