Notifications
Clear all

AUTO COMPLETAR TEXTBOX DIGITANDO QUALQUER PALAVRA

16 Posts
4 Usuários
0 Reactions
6,109 Visualizações
 giba
(@giba)
Posts: 15
Eminent Member
Topic starter
 

Olá, estou precisando de um código que que faça auto completar ao digitar na textbox ou combobox, mas de forma aleatória ou randômica por qualquer palavra. A tabela dinâmica do excel 2010 tem essa forma de pesquisa e é muito útil, porém não encontrei nenhum código vba para fazer isso.

Ex. se eu estiver procurando o endereço: "rua das violetas amarelas" ao digitar "violetas, ou amarelas" na textbox ou combobox, já vá apresentando os resultados que tenho na lista, sem ter que digitar o início do endereço "rua das...."

desde já agradeço.

 
Postado : 09/05/2013 5:54 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Use a pesquisa do fórum!!
http://www.planilhando.com.br/vie ... tar#p18348

Att

 
Postado : 09/05/2013 6:01 pm
 giba
(@giba)
Posts: 15
Eminent Member
Topic starter
 

Olá, já fiz esta pesquisa e verfiquei que o auto completar dos modelos que encontrei são o tipo padrão, que vai localizando desde o início da frase que está na planílha.
O que estou precisando é um código que não venha da esquerda para a direita desde o início da frase, mas que seja randômico, se eu começar a digitar da segunda palavra da frase ele traga normalmente.

Exemplo. se eu tiver uma planilha com vários nomes e eu quise encontrar "Ricardo Nunes Calazans", o código deverá auto completar se eu digitar "Nunes", ou se eu digitar "Calazans", ou se eu digitar "Ricardo". Dequalquer forma ele encontraria o registro. Será que me expressei bem? Obrigado.

 
Postado : 10/05/2013 2:50 pm
 giba
(@giba)
Posts: 15
Eminent Member
Topic starter
 

O que eu preciso é algo como na tabela do excel em anexo, porém em código vba para combobox. Eu digitei àgua e vieram todos os endereços que tinham água na sua formação.

Os arquivos devem ser compactados, é regra do fórum!!!

 
Postado : 10/05/2013 3:37 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja se seria isto, é com uso do listview, mas se for é só fazer a adaptação.

Pesquisar Itens ListView

[]a

 
Postado : 10/05/2013 6:03 pm
 giba
(@giba)
Posts: 15
Eminent Member
Topic starter
 

Muito obriga cara. Esse código que você me passou era bem o que estava precisando.
Contudo, não consegui alterar o nome das colunas na listview, nem a quantidade de colunas.
Preciso de 3 colunas com os títulos: Logradouro, Cep, Zona. Como posso adaptar esse código.
Outra coisa, quando faço a consulta, encontro os endereços beleza, porém o cep que está na segunda coluna não aparece quando digito na textbox, só aparece quando a textbox esta vazia. Se tiver alguma idéia agradeço.

E mais uma vez obrigado pela ajuda.

 
Postado : 11/05/2013 10:31 pm
 giba
(@giba)
Posts: 15
Eminent Member
Topic starter
 

Olá, fiz algumas adaptações e consegui resolver o problema. Muito obrigado pela força.

 
Postado : 12/05/2013 8:15 pm
 giba
(@giba)
Posts: 15
Eminent Member
Topic starter
 

olá de novo,

Desculpe a retomada, mas é que estou tendo muito problema no serviço relacionado a segurança dos computadores. Lá o listview não está incluído no excel e não é possível habilitar, só o administrador poderia. Assim, queria saber se tem um código auto completar por qualquer palavra, como você me passou com o listview, só que para listbox.

Obreigado

 
Postado : 14/05/2013 4:56 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

giba, já consultou o administrador para habilitar ? É só uma Biblioteca que será instalada ao selecionar nas referencias do excel VBE, não será alterado nada em questão de segurança ou arquivos do windows.

De qualquer forma segue o mesmo exemplo utilizando ListBox, fiz uma adaptação bem rápida, então teste paraver se está tudo correto.

Uma obs, você notara uma grande diferença de um controle para outro, o ListBox tem várias restrições de formatação, por isto prefiro o Listview.

Pesquisar Itens LISTBOX

[]s

 
Postado : 14/05/2013 8:57 pm
(@geovanerocha)
Posts: 51
Trusted Member
 

Não entendo de vba. Como ficaria para 11 colunas?

 
Postado : 15/05/2013 10:07 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não entendo de vba. Como ficaria para 11 colunas?

O ideal seria que tivesse alguma noção pelo menos de VBA, pois nem tudo é simplesmente alterar apenas uma linha, mas vamos lá :

Na rotina Sub PreencherListBox() :
With Me.lstConsulta
.ColumnCount = 3 - Define a quantidade de Colunas
.ColumnWidths = "5 cm;2 cm;1 cm" - Define a Largura de cada Colunas
End With

Na instrução :

For x = 2 To lastRow - Captura a quantide de linhas preenchidas a partir da linha 2
lstConsulta.AddItem (wsDescricao.Cells(x, "a").Value) - Adiciona o Primeiro valor da Plan (Coluna A) na primeira Coluna do ListBox
lstConsulta.List(i, 1) = (wsDescricao.Cells(x, "b").Value) - Adiciona o Segundo valor da Plan (Coluna B) na Segunda Coluna do ListBox
lstConsulta.List(i, 2) = (wsDescricao.Cells(x, "c").Value) - Adiciona o Terceiro valor da Plan (Coluna C) na Terceira Coluna do ListBox

i = i + 1
Next

Então para aumentar a quantidde de colunas altere em ColumnCount e depois ajuste nas linhas onde enviamos os dados para o listbox conforme a qde de colunas "d, e, f, g......)

Espero ter sido claro, qq duvida retorne.

[]s

 
Postado : 15/05/2013 10:23 am
 giba
(@giba)
Posts: 15
Eminent Member
Topic starter
 

Cara você é demais. Ficou muito bom. Brigadão mesmo.

 
Postado : 16/05/2013 5:30 pm
 giba
(@giba)
Posts: 15
Eminent Member
Topic starter
 

Valeu, ficou dubalacubaco. Muito obrigado pela força.

 
Postado : 17/05/2013 7:05 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Vou aproveitar que já está resolvido e que também não olhei os anexos das postagem anterior....mesmo assim postar um modelo não completo, mas com uma pequena parte do que foi solicitado (Auto Completar).
http://www.sendspace.com/file/hwk6ae

Att

 
Postado : 18/05/2013 6:18 pm
 Frrz
(@frrz)
Posts: 16
Eminent Member
 

Alexandre,
Poderia upar novamente essa parte?!

 
Postado : 03/03/2015 12:53 pm
Página 1 / 2