Vídeo aula 25 - Criar filtro de pesquisa com diferentes critérios para busca em ListBox

Link para download: Compartilhado via Google Drive...
Planilha 01
drive.google.c...
Planilha 02
drive.google.c...
Nessa aula explico o código que faz a pesquisa com diferentes critérios de busca e retorna os resultados em uma listbox.

[@jeffersonfranca2106]

Parabéns. Útil e eficaz.

[@RenamFernandoRuthes]

Obrigado! Att. Renam

[@WILSONFJESUS]

Olá Renam, sua aula é nota 10, parabéns....

[@RenamFernandoRuthes]

Obrigado! Att. Renam

[@renatoamonteiro]

Renam... valeu meu amigo. Ajudou muito na divisão de critérios para a pesquisa. Abraços.

[@hamiltoncorreia9736]

Muito obrigado Prof. Renan, você está de parabéns pelas vídeos aulas tão bem explicadas. O que eu posso te desejar é que Deus continue te abençoando muito e te agradecer pelo bom coração que você tem.

[@assisgauderetogaudereto7882]

nos ultimos dois anos tenho buscado conhecimento em vba. curso microlins, baixei videos, li e reli vba para leigos. quebrei a cabeça. mas o que tenho aprendido com vc não se pode medir. fico muito grato com esse aprendizado. estou com um projeto em andamento e caso queira receber as planilha dos projetos é só solicitar.

[@williamsoares7553]

Excelente aula parabéns pela Didática.

[@gilbertorodriguescarvalho746]

Muito boa sua aula. Vc está de parabéns. Obrigado pela sua ajuda e dedicação postando estas vídeo aulas.

[@kingbalaka1216]

parabéns amigo não tenho muito conhecimento no vba mais vc me abril muitas portas. muito obrigado mesmo!!!

[@cristianosilva6179]

Renan, Parabens pela aula e muito obrigado por compartilhar o seu conhecimento, me ajudou muito. Grato. E sucesso.

[@kxorrao1975]

Muito bom, parabéns Renam. "O conhecimento não é pra ser guardado a sete chaves e sim pra ser compartilhado, dividido, pois conhecimento guardado é igual dinheiro num cofre, perde o valor e não rende nada".

[@cucabeludo5377]

E vc ta compartilhando qual conhecimento?

[@desenhosanimadosparafamili8510]

obg por publicar seu email já lhe enviei um com a minha planilha....

[@altogrande18]

cara é muito fera mesmo, se garante !

[@RICARDORIBEIRO-up2id]

Renan, bom dia! É possível usar mais de um critério ao mesmo tempo para fazer a pesquisa? Por exemplo: eu quero saber quais empresas de Belo Horizonte vendem café. Neste caso eu teria a coluna de cidade e outra de produtos. Como eu faço para ter um retorno desses dois critérios ao mesmo tempo?

[@veronicasouza1555]

Boa noite! Renan tenho uma pasta de trabalho de clientes, com abas de janeiro a dezembro. Alguns desses clientes podem ter informações em duas ou mais planilhas. Como faço para criar a busca neste caso. O mesmo cliente pode ter mais de dois valores na mesma planilha ou em planilhas diferentes. E é possível já calcular a soma dos débitos em uma única busca? Ou seja preciso buscar os débitos do cliente em uma ou mais planilhas obrigada

[@lucianodias4477]

bom dia brother deixa eu te perguntar como faço pra mim fazer uma busca numa caixa de texto no listview

[@WilliamSouza-cj3yk]

Boa tarde, Utilizei seu código da macro TextBox2_Change() em minha planilha. Achei excelente, fiz algumas adaptações, mas não ela não consegue me retornar o número do telefone. Na minha planilha, o telefone está na coluna 10. Ao marcar a opção do option button (telefone) e digitar o telefone na textbox1 o meu listbox não mostra nenhum resultado. Todos os demais options buttons me retornam valores, apenas o telefone que não consigo. Você poderia me dar alguma sugestão de como fazer? O option button DDD, coloquei como telefone..... obrigado

[@cleberbrandao4192]

Boa noite Renam, Quanto começo a digitar no textbox de pesquisa, entre em uma especie de loop até o excel parar de responder. Teria alguma dica para que eu possa analisar? Desde já agradeço. Obrigado.

[@fabesouza]

Renam você poderia fazer um vídeo ensinando a realizar o filtro na listabox porém com vários filtros simultâneos, sendo que nem todos os filtros necessariamente estarão selecionados.

[@RenamFernandoRuthes]

Olá, já estou montando a planilha com listview... mas monto também com lisbox... se conseguir terminar posto ainda esse fim de semana... Att. Renam

[@fabesouza]

Mas nesta aula vc mostra como filtral uma condiçao apenas por vez, no meu caso eu preciso de varios critérios simultaneamente. Eu não estou utilizando botão de opção e sim botão de seleção e a lista seria gerada em função destes vários filtros que seriam aplicados. Seria aplicação de filtros em cascata, mas todos com valores pre estabelecidos (conforme seleçao dos botões)

[@RenamFernandoRuthes]

É isso mesmo... estou montando uma planilha para filtrar dessa forma... igual ao filtro avançado usando na planilha...mas para listbox e listview... OK Att. Renam

[@RenamFernandoRuthes]

Olá... Fabrício já postei no canal as vídeo aulas ( Vídeo aula 32 ) que ensinam a montar um filtro com vários critérios simultâneos em um listview... Att. Renam

[@Fernando-t2d2h]

​@@RenamFernandoRuthes Boa noite vc tem essa planilha com esse código fazendo favor poderia disponibilizar

[@damiaopereira7990]

boa tarde renan. criei um formulario basico com botao de busca. maisno bd o codigo se repete, como faço pra ele retornar todos os que ele encontrar? ex;o codigo 001 se repete varias vezes,e eu queria que ele filtrase todos e mostrase no listbox. obrigado

[@MrGhuntz]

Boa Noite Renam Estou com uma Duvida... Fiz a Codificação exatamente como a sua porem so consigo pesquisar usando 3 dos 6 criterios q indiquei na minha plan. os outro 3 nao executa a busca

[@RenamFernandoRuthes]

Olá... pode ser por causa das referências as colunas que não está correspondente aos dados, pode ser que haja linhas em branco na planilha, ou ainda que os nomes das OptButtons não estejam corretos... qualquer coisa manda a plan para [e-mail] para eu verificar... Att. Renam

[@gustavocamilo6957]

Ola Renan, gostaria que você me mostrasse como faço para não ter campos repetidos na planilha digitados pelo formulario ( se ja tiver aquele registro acionar um msg disendo que o mesmo ja existe) se puder me ajudar agradeço.

[@RenamFernandoRuthes]

segue links - Não aceita códigos repetidos www.dropbox.com/s/0cygp636nmgbihc/buscar%20retorno%20com%20loop%20codigos%20repetidos.xlsm?dl=0 - retorna mensgem de não encontrado www.dropbox.com/s/o3tsptwkap6b75s/buscar%20retorno%20com%20loop%20mensagem%20n%C3%A3o%20encontrado.xlsm?dl=0 - busca em listbox no mesmo formulário www.dropbox.com/s/x4lrikakhb4l0wr/buscar%20valores%20listbox%20mesmo%20userform%20-%20compartilhada.xlsm?dl=0 Att. Renam

[@alexsandersilvapereira8920]

queria muito que me ajudasse com código que faz a pesquisa com diferentes critérios de busca e retorna os resultados em uma listbox. e quando clicar duas vezes no listbox preenchesse os dados em seus respectivos campos no formulário só consegui baseado em suas aulas fazer a pesquisa com diferentes critérios de busca e retornar os resultados em uma listbox, mais preencher os campos do formulário já tentei e não consigo.

[@Fernando-t2d2h]

Alguém tem a planilha para download

[@pandorabull2010]

Parabéns Renan, suas Videos Aulas são muito claras e objetivas. Vc. teria alguma vídeo aula que mostre como carregar dados de uma plan e gravasse em outra ?De preferencia que tivesse uma listbox. um abraço.

[@RenamFernandoRuthes]

Olá... Obrigado! Infelizmente não tenho... fico devendo essa... Att. Renam

[@netokaboloca8131]

Bom dia Gil, tenho uma outra situação em banco de dados do Access em que preciso da tua ajuda. Ex: Tenho uma tabela com o registro dos funcionários e uma outra tabela com os produtos a serem vendidos, acontece q eu pretendo gratificar os funcionários com base nas vendas de produtos feitas por ele. Pra isso criei 5 estados no campo "estado" na tabela que contem o registro dos funcionários. Os estados estão em ordem decrescente começando de 5 até 1. O campo "estado" deve alterar automaticamente de 5 para 4, de 4 para 3... até o estado 1 sempre que o funcionário processar 4 vendas ou 4 faturas com o mesmo ID de funcionário. Logo que o funcionário processar 20 vendas (4 vendas x 5 níveis de Estado = 20 vendas) o seu estado troca para numero 1 e o sistema gera uma MsgBox a dizer: O funcionário ID tal é o melhor vendedor da empresa. Por favor Gil espero q tanha sido claro na minha questão e desejo muito q me ajudes com uma dica sobre como fazer isso.

[@adrianoramos2809]

Bom dia Renam, Como faria no código: If UCase(Left(valor_celula, Len(valor_pesq))) = UCase(valor_pesq) _ Para colocar um filtro com mais campos simultâneo de pesquisa, tipo quero pesquisar itens de um textbox1, textbox2 e textbox3 simultaneamente não separados ? Desde já agradeço, forte abraço ! Att, Adriano

[@RenamFernandoRuthes]

Adriano Ramos Olá... Adriano é só incorporar o valor das textboxes em variáveis e continuar a busca com AND usando a mesma sintaxe acima... ex. valor_celula1 = valor_pesq1 and valor_celula2 = valor_pesq2 é claro que adequando o código para procurar nas células para fazer as comparações... Att. Renam

[@alexandremachado3224]

Renam Fernando Ruthes Não consegui colocar essa modificação para funcionar. :( A primeira parte da busca eu fiz e ficou legal, porem preciso buscar uma segunda informação "dentro da Linha" encontrada na primeira Pesquisa. Por exemplo... eu localizei o codigo 1020, agora quero inserir em outra textbox a palavra "unidade" e ele me retorna o valor de 2 colunas apos a palavra unidade.

[@fernandojosuemartins5195]

Olá Renan, primeiramente gostaria de agradecer por seus videos, que me ajudam tanto. Estou com problemas, quando vou dar um click na listview, onde aparece o "erro em tempo de execução 13, tipos incompatíveis", ao depurar, deduzi que ele esta em "valor_lista_reg" que esta sendo igual a um nome (texto), e não a uma identificação (numero), já que não preciso disso. Teria algum codigo que eu pudesse substituir, para que esta "valor_lista_reg" seja igual ao valor do local da linha sem ter que cadastrar um codigo sequencial? sou leigo nisso, talvez não seja exatamente este o erro. linha = 2 registro = txt_id selecao = lst_busca.ListIndex valor_lista_reg = lst_busca.List(selecao, 0) txt_id = valor_lista_reg

[@marciobianco3393]

Renam onde esta a sua Video aula inicial Criar filtro de pesquisa com diferentes critérios para busca em ListBox

[@Evertonjrsilva]

Boa tarde! Consegui filtar meus dados e o usei em um botão busca ao invés de usar numa combobox. Quero saber qual o comando para que ao Selecionar algum ítem do listbox ele carregue automaticamente para os combobox e como fazer o comando para atualizar as alterações.

[@rendascomdigital]

Renan tentei aplicar a minha planilha esta situação de busca, porém deu alguns problemas que não sei resolver: Tipo, é a função "clear" não está ficando ativa quando coloco "lst_busca.clear" no meu excel e nem as funções .Additem ; . .List e nem a última Me.lbl_registros Pra ser sincero fiquei muito confuso com isso, porque quanto coloco a função "activicell.clear" só pra testar ela fica ativa. Como você pode me ajudar. Desde já agradeço Alexandre É PARABÉNS PELOS VÍDEOS

[@RenamFernandoRuthes]

Olá... deve estar havendo algum engano quanto as referências a listbox... fica difícil saber o que é sem ver o projeto, pois ás vezes um pequeno detalhe que passa despercebido gera um série de erros... então se puder envie a planilha para [e-mail] que vej se consigo achar o problema... Att. Renam

[@rendascomdigital]

Renam Fernando Ruthes Mandei para o e-mail se ajudar eu agradeço renam rsrs porque não conseguir mesmo

[@ivanildoleandro3847]

RENAN BOM DIA GOSTARIA DE SABER SER PODE FAZER UMA SELEÇÃO DE PRODUTOS DAS QUANTIDADES QUE MAIS SAIO NO MES

[@luizlima6678]

Boa noite, parabéns pelo vídeo aula. Poderia demostrar substituindo no grupo de pesquisa 1 o objeto opção pelo checkbox para pegar as colunas ao invés da linha e carregar no listview?

boa noite, parece ser uma brilhante planilha, quantas linhas suporta esse filtro? tenho um banco de dados de 10 mil linhas em cada 5 colunas, sera que aguenta?

[@pedroalmeida103]

Olá Renam, em primeiro lugar parabéns pelos videos, me ajudaram muito. Em segundo queria saber se tem como habilitar o ctrl+c/ctrl+v numa listbox?

[@RenamFernandoRuthes]

Olá, Olhe a vídeo aula 07 parte 2... lá coloco um código para lançar do form para o listbox....

[@desenhosanimadosparafamili8510]

RENAN MINHA USERF1 TEM 38 COLUNAS JA ALTEREI A PROP. COLUMNCOUNT P/ 38 POREM QUANDO ENTRO NA LINHA DE CODIGO INITIALIZE DA USERF1 ELA NÃO ESTÁ ACEITANDO MAIS DE 10 COLUNAS DE 0 A 9 TA COMPILANDO POREM QUANDO INSIRO MAIS UMA TA DANDO PROBLEMA COM A PROPRIEDADE LIST SUA VARIAVEL LINHALISTBOX = 0 TEM HAVER COM ESSE ERRO? PF ME RESPONDA ATÉ AQUI NORMAL .List(linhalistbox, 9) = Sheets("cadastro").Cells(linha, 10) AGORA AQ JÁ NAO ACEITA .List(linhalistbox, 10) = Sheets("cadastro").Cells(linha, 11)

[@tamiresmacedo2892]

o meu não deu certo, toda vez dá um erro com o (no caso o meu, lista_pesquisa.clear)

[@tamiresmacedo2892]

aparece erro não especificado, to tendo um problema com isso

[@matheusmendes2667]

Renam, boa tarde! Tenho uma dúvida no evento DoubleClick. Gostaria de abrir os dados da linha da ListBox em um Formulário para poder alterá-lo depois.Tem alguma vídeo aula explicando esse procedimento?

[@josebatistamoraisjunior414]

Prezado Renam, Saudações! Como seria a codificação para demonstrar os resultados em uma ListWiew? Grato Forte abraço!

[@RenamFernandoRuthes]

José Batista Morais Junior Olá... busque aqui no canal por "Filtro Listview" tenho várias planilhas sobre o assunto... Att. Renam

[@DavidSancha45]

Olá Renan. Gostaria de saber como faço para, ao dar duplo clique no registro desejado ele feche o Form e preencha a planilha que eu quero (Ordem de Compra). Poderia me ajudar? Desde já agradeço.

[@khall299hayabusa9]

Boa noite Renan. Como faço a busca com mais de um critério?

[@pandorabull2010]

Renan boa noite, já assisti essa vídeo aula um dezenas de vezes, mas não estou conseguindo entender o que esta acontecendo (falta de conhecimento talvez) ele faz a busca, não tem critério é só por nome mesmo e a cada letra ele vai restringindo a pesquisa até aí tudo bem, quando acha o nome e clico em alterar ele traz o primeiro ou o segundo registro. O que pode estar errado ? um abraço

[@someonebass3271]

Olá Renam Ternando. Primeiramente meus parabéns pelas aulas, tenho um problema, posso ter a sua ajuda ? Seguinte, adaptei sua Planilha do vídeo 25 listbox a um projeto meu aqui, porém as colunas veio com 8 eu mudei para 11, pois tenho 11 colunas, porém está a dar erro 380 " não é possível definir list. Valor de propriedade inválido.... Como resolver isso amigo ? Serei grato se ajudar ou se mesmo não...

[@fabioluizferreiradasilva3781]

Prezado Renan! uComo inserir atraves de codigo os textos na listbox, em seu projeto voce adptou label. No controle listview da para adicionar,mas não consigo no listbox Obrigado

[@FabioRBOliveira]

olá, como funcionaria em computadores 64bits?

[@gelsongianezini2689]

Amigo listview so funciona em versao 32bits do office, reinstala o office 32bits

[@arturaryanna1]

Boa tarde, estou com dificuldade com a compatibilidade com o ecxel 64 bits, pode me ajudar Sou iniciante em vba , tentei algumas soluções porém sem sucesso .

[@emersonreinert3104]

Boa noite Renan! Utilizei teu exemplo para o meu projeto, o problema é que meu banco de dados é bem grande, alterei a variável para double, mas mesmo assim demora demais para buscar os dados...existe alguma forma de resolver?

[@ricardoroberto1000]

Show de bola mais vc não tem como listview

[@ezequielidalgo1287]

Ola Renan, Gostaria de saber qual código você utilizou para carregar os dados no seu formulário a partir da seleção dentro da list box. é possível? Obrigado!

[@elsogoncalves5345]

Renam Bom Dia. Na suas video aulas de excel Minuto,na aula filtro em listbox na esta disponível para download tem como corrigir o link. Desde ja meu muito obrigado Att: Elso

[@RenamFernandoRuthes]

segue links Planilha 01 drive.google.com/file/d/0B2tBlpeZsUSZUll3ellPM09MdEk/view?usp=sharing Planilha 02 drive.google.com/file/d/0B2tBlpeZsUSZTzhRbjE5WG50V0E/view?usp=sharing

[@elsogoncalves5345]

Boa Noite Renam. Muito Obrigado,Fique com Deus. Att: Elso

[@elsogoncalves5345]

Boa Noite Renan. A planilha e aquela da vídeo aula(excel em minuto) filtro em listbox,onde o link esta com problema. Tem como me enviar o link onde posso baixar corretamente

[@danilofranco5193]

Boa noite Renam Ruthes.. Tb tenho problemas no Me.lbl_registros = conta_registros Quando vou digitar aparece a mensagem de "erro de Compilação: método ou membro de dados não encontrado." Gostei muito, mas não consegui rodar.. Valeu..

[@rodrigomvenancio]

Renan, como que faço para salvar todos os dados do listbox(no meu listbox eu tenho 6 colunas) numa planilha do excel ??? Estou com esta duvida se puder me ajudar.

[@esurbcpd3637]

adaptei ao meu forme mas porem apresenta o erro em tempo de execução 424 como resolver

[@RenamFernandoRuthes]

Olá... provavelmente na edição deve ter colocado algum comando de forma errada ou apagado algum valor necessário para o código rodar... só vendo e testando pra saber onde está o erro... Att. Renam

[@capesq]

Olá Renam, Fiz um modelo desse para minha planilha mas não completar os registros na listbox. Posso te mandar minha planilha pro email pra vc dizer o q está errado?

[@AdrianooMr]

como eu escolho quais colunas devem aparecer na listbox ? helpme

[@caio68657]

No comando UCASE(LEFT) ele retorna tudo a esquerda, caso eu queira que ele retorne todas as opções que contenham o valor digitado, ou seja, retorne tudo que contenha a palavra "investimento" ela estando no começo, meio e/ou final de todos os registros. *OBS: tentei utilizar a função LIKE porém não retorna valor nenhum. E a função de criterio em Filter não funciona pois é um LOOP (cod semelhante ao seu).

[@snthiago10]

Boa tarde; Por algum motivo do obscuro eu nunca consigo usar o .additem ele sempre da erro em qulquer aplicação que eu tento fazer.Você saberia me dizer o motivo? :P

[@RenamFernandoRuthes]

Olá, Ricardo é o seguinte... A listbox só aceita 10 colunas se passar disso não vai aceitar... no seu caso vai ter que adotar a Listview para conseguir trabalhar com mais de 10 colunas... ainda não postei aulas sobre listview mas espero essa semana colocar um vídeo sobre o assunto...

[@wemersoncesar2757]

Renam, Boa tarde! Apliquei este código no meu formulário porém está dando um erro na ultima parte do comando: Me.lbl_registros = conta_registros. "lbl_registo" se refere a alguma variável? Não entendi direito...

[@aquilesneves2401]

Estou com o mesmo problema.

[@mingaljf]

wemerson cesar beleza, o "lbl_registo" e a label que recebe a quantidade de registros encontrados, é aquele número que aparece em vermelho abaixo da listbox. Grande abraço.

[@luisgustavonunes9660]

boa tarde, o link da planilha não está disponivel!

[@RenamFernandoRuthes]

Planilha 01 drive.google.com/file/d/0B2tBlpeZsUSZUll3ellPM09MdEk/view?usp=sharing Planilha 02 drive.google.com/file/d/0B2tBlpeZsUSZTzhRbjE5WG50V0E/view?usp=sharing

[@murilomoreira1985]

QUERO FAZER UM SISTEM DE CONSULTA DE LIVROS, EXEMPLO: SAO TRES TEXT BOX codigo [___________] PRODUTO [______________________] Preço [_____] Ao consultar o codigo do Livro, o sistema tem que me trazer o produto e o preço correspondente aquele codigo Eu ja tenho toda a estrutura pronta e o banco de dados, so nao como linkar os dois Pode me ajudar , quanto vc cobra para fazer essa aula ?

[@joaocarlosmendescosta6763]

Olá Renam ,suas aulas são excelente ! quanto ao controle de estoque , como eu faço pra utiliza-lo com o sistema 64 bits.

[@gilbertorodriguescarvalho746]

Boa noite João, tudo bem ? Eu também já passei por esta dificuldade. Respondendo sua pergunta é só colocar PtrSafe na frente de Function quando for declarar a variável . por exemplo: Private Declare PtrSafe Function FindWindowA Lib "USER32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare PtrSafe Function GetWindowLongA Lib "USER32" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare PtrSafe Function SetWindowLongA Lib "USER32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Espero ter ajudado

[@RenamFernandoRuthes]

Gilberto Rodrigues Carvalho Obrigado por colaborar... Att. Renam

[@netokaboloca8131]

Olá pessoal eu sou o Manuel. Preciso que me ajudem na seguinte situação: Tenho várias tabelas com os seus dados e preciso juntar os dados de cada uma dessas tabela em campos diferentes numa única tabela geral. Ex: tbl_Radios, tbl_TV, tbl_Geral. Na tbl_Geral eu tenho no primeiro registo o Registo de Radios e no segundo registo eu tenho registo de TVs e no cabeçalho eu tenho os dizeres: Código, Designação, Avariados, Operacionais.

[@raelray]

'PROCEDIMENTO PARA BUSCAR OS DADOS NA BASE DE DADOS E COLOCAR NOS CAMPOS DA AGENDA Public Sub Buscar() For A = 0 To 15 CamposAgenda(A) = "" Set linhaprocurada = shtBase.Columns("a:a").Find(CamposAgenda(1), LOOKAT:=xlWhole) On Error GoTo error For A = 0 To 15 CamposAgenda(A) = linhaprocurada.Offset(0, A).Value Next Exit Sub erro: MsgBox "Esté Código não foi Localizado na Base de Dados", vbCritical, "ERRO" Exit Sub End Sub onde eu errei aqui?

[@desenhosanimadosparafamili8510]

QUAL O SEU EMAIL RENAN?

[@congregacaorecantodoparais7156]

Bom Dia, Renan sera que vc poderia me ajudar, não estou conseguindo encontra o erro que não deixa eu executar meu formulário, fiz todos os códigos que vc mostrou ai, se puder me responder pelo e-mail [e-mail] posso lhe enviar a planilha pra vc da uma olhada. grato! Daniel

[@TheWint3r]

Olá Renam eu tive um problema com o Windows 64 bits, quem também tiver pode estar pegando os códigos nesse sie:www.tomasvasquez.com.br/forum/viewtopic.php?t=2907 e alterando no erro VBA.

[@RenamFernandoRuthes]

[e-mail]

[@fernandojosuemartins5195]

Olá Renan, primeiramente gostaria de agradecer por seus videos, que me ajudam tanto. Estou com problemas, quando vou dar um click na listview, onde aparece o "erro em tempo de execução 13, tipos incompatíveis", ao depurar, deduzi que ele esta em "valor_lista_reg" que esta sendo igual a um nome (texto), e não a uma identificação (numero), já que não preciso disso. Teria algum codigo que eu pudesse substituir, para que esta "valor_lista_reg" seja igual ao valor do local da linha sem ter que cadastrar um codigo sequencial? sou leigo nisso, talvez não seja exatamente este o erro. linha = 2 registro = txt_id selecao = lst_busca.ListIndex valor_lista_reg = lst_busca.List(selecao, 0) txt_id = valor_lista_reg