Galera... Ta faltando tão pouco pra eu nunca mais usar VBA...

Tenho um UserForm1 e nele tenho ListBox1 que é carregado com um BD("A$1:B$10000") dimencionado dentro de uma planilha, um Botão CmdOk, um TxtDescriçao e TxtCodigo.

Preciso de um exemplo de como usar uma pesquisa que conforme eu digite vá eliminando resultados no ListBox que não Coicidam com o TxtDescriçao (local onde procuro o item desejado).

Alguem poderia me mandar um Exemplo?

Obs: Por favor preciso também da Referencia utilizada pra adicionar ao meu projeto.

vba é +- o mesmo código de vb6...

em vb6 eu faria algo assim..(usando DAO) usaria o evento para procurar no BD as palavras que comecem com o q foi digitado.... e carregaria o listbox a cada letra digitada

private sub txtdescriçao_keyup(KeyAscii As Integer)

    a$=txtdescriçao.text

   n=len(a$)

        ssql="select * from suatabela"  

    set tabela= banco.openrecordset(ssql,dbopensnapshot)

    listbox1.clear

      do until  tabela.eof

                b$=tabela("nomecampo")

                n1=len(b$)

                if n1<n then

                else

                      if mid(a$,1,n)=mid (b$,1,n) then

                              listbox1.additem tabela("nomecampo")

                       else

                       endif

               tabela.movenext

     loop

     tabela.close

endsub

    

 

Como vc pode ver a cada tecla digitada a lista será preenchida novamente...

fui...

 

     

    

 

     

       

 

Ai é que esta... como usar Open numa planilha que esta dentro do Arquivo já aberto...

a planilha que chama o User Form é a Plan1 e o BD esta na Plan6... no exemplo acima como denominar "suatabela"?... tentei o exeplo qu me mandou e ta bugando...