Ola, estou montando um formulario onde gostaria que alguns campos se autopreenchessem, e ate consegui buscando exemplos na rede, mas gostaria que esta macro, me desse a possibilidade de fazer esta "BUSCA" por nomes e nao por numeros visto que e um cadastro de clientes a base.

Aqui vai:

Private Sub ComboBox2_Change()

re = ComboBox2.Value

i = Application.WorksheetFunction.Match(CLng(re), Sheets("cadastro clientes").Range("A:A"), 0)

TextBox3 = Sheets("cadastro clientes").Cells(i, 4)
TextBox4 = Sheets("cadastro clientes").Cells(i, 5)
TextBox5 = Sheets("cadastro clientes").Cells(i, 3)
ComboBox4 = Sheets("cadastro clientes").Cells(i, 6)
( na minha planilha2, coluna A esta para os numeros, 1,2,3... e a coluna B esta para os nomes dos clientes )
End Sub

O que preciso mudar para fazer a busca por nomes???

Desde ja agradeço a atençao de todos.

vc já tentou alterar para isso:

i = Application.WorksheetFunction.Match(CLng(re), Sheets("cadastro clientes").Range("B:B"), 0)

Boa tarde!!!
Seja bem Vindo!!
Acabei de almoçar e tenho que ir trabalhar, em quanto o pessoal não te ajuda poste um modelo de sua planilha.

Tentarei te ajudar.

Caio nao adiantou da erro de Tipos incompativeis

Alexandre, estarei anexando ja a planilha, obrigado.

Então faça como o nosso amigo alexandrevba disse, posta a sua planilha que fica mais fácil de ajudar.

Aqui esta a planilha

Bom dia!!!

Baixe seu anexo e veja se vai te ajudar.

Caso resolva, marque o tópico como Resolvido!

Não se esqueça da mãozinha.

Grande Alexandre, consegui adaptar o teu codigo ao meu projeto sim, um grande abraço.

Boa noite!!

Que bom que resolveu seu problema, obrigado pelo retorno!!!..bom carnaval at ++++

Bom dia a todos,

Entao, estou com o codigo de autocompletamento funcionando, mas acabei descobrindo agora na pratica um probleminha.

Para que preencha automaticamente as outras textbox, tenho que preencher todo o nome do meu cliente, pesquisando achei referencias de como fazer funcionar so digitando o primeiro nome( ai ele sugere o resto ), mas so para o visual basic 8,
Alguem para indicar uma saida???

Obrigado

Veja :

TextBox Auto Completar
viewtopic.php?f=21&t=3747

[]s

Bom dia Mauro,

Show de bola o exemplo do Jose, mas no meu caso que os nomes nao estao em uma planilha mas sim no banco de dados ( BDClientes ), como faço para mostrar o caminho ao codigo?

Um Abraço

Bom dia!!

Veja o que acontesse em..

Private Function GetFirstCloserWord, Private Function GetDoisCloserWord

qt = Sheets("Plan1").[E2].CurrentRegion.Rows.Count

qt = Sheets("Plan1").[A2].CurrentRegion.Rows.Count

Faça a adaptação

Bom dia Alexandre,

Eu tinha copiado as rotinas do userfom1, nao achava a referencia, ja estou adaptando as rotinas corretas, mas ja te adianto que deu erro em tempo de execusao, to lutando aqui para entender, heheheh

Private Function GetFirstCloserWord(ByVal Word As String) As String
Dim qt, qtde As Integer
Dim c As Range
qt = Workbooks("BDClientes").[C2].CurrentRegion.Rows.Count ( Erro em tempo de execusao )
For Each c In Workbooks("BDClientes").Range("C2:C" & qt)
If LCase(c.Value) Like LCase(Word & "*") Then
' If c.Value Like Word & "*" Then
GetFirstCloserWord = c.Value
Exit Function
End If
Next c
Set c = Nothing

End Function