Bom dia amigos,

tenho um problema antigo que ainda nos causa transtornos.

A linha de comando "Set C = .Find(cmbxCliente.Value, LookIn:=xlValues, lookat:=xlPart)" busca a primeira ocorrencia em todo o texto, ao invês deser nos primeiros digitos.

Exemplo:
No Combobox, digitamos ou selecionamos o cliente SERIGRAF

Na base de dados temos os clientes abaixo nesta ordem:

ELYON BRINDES E SERIGRAFIA
SERIGRAF

A busca encontra o 1º resultado e não tem como eu selecionar o cliente real, pois há em comum o texto SERIGRAF. Como proceder?

Vamos ao código, observe que o combobox (cmbxCliente) é utilizado para buscar na base:

Private Sub cmbxCliente_Change()
Sheets("Banco").Select
 With Worksheets("Banco").Range("A:A")
 Set C = .Find(cmbxCliente.Value, LookIn:=xlValues, lookat:=xlPart)
 If Not C Is Nothing Then 
 C.Activate
 DDD.Value = C.Offset(0, 1).Value
 Telefone.Value = C.Offset(0, 2).Value
 End If
 End With
End Sub

Grande abraço a todos!!

Bom final de semana!