Alan, não é a mesma questão o que solicitou no outro Forum e não retornou se resolveu ?

List box, procurar dados nacoluna B e retornar da coluna A
http://www.tomasvasquez.com.br/forum/vi ... =20&t=4773

[]s

Sim é a mesma questão Mauro, mas como lá só você que me respondeu, e você disse que estava sem tempo, não queria repetir a pergunta de novo. E vai que alguém já resolveu uma questão parecida.

No meu caso eu não consegui achar uma solução, eu não trabalho com vba, só preciso deste código para facilitar a planilha de caixa que tenho, não é para uma empresa ou coisa grande, só uma loja de ração que tenho.

Alan, veja se ajuda. Substitua o seu código pelo código abaixo.

Private Sub ListBox1_Click()
 Dim c As Long
  c = Sheets("ESTOQUE").Columns(2).Find(ListBox1.Value).Row
  ActiveCell.Value = Sheets("ESTOQUE").Cells(c, 1)
  Unload Me
End Sub

sugestão - acrescente o comando Cancel = True no seu código que está no módulo da planilha "DIA 31", conforme abaixo, assim a célula clicada sai do modo edição

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Cancel = True
 If Target.Column = 1 Then UserForm1.Show
End Sub

Alan, com as informações postadas e analisando com mais calma seu modelo, cheguei a entender o que está querendo, só que no meu entendimento, para que a pesquisa com a digitação no textbox temos de mudar o layout de seu modelo, explicando :
Resolvida a questão das linhas em BRANCO, você está utilizando a mesma rotina que carrega o listbox para a pesquisa, e com isto tem problemas, então coloquei rotina separada, e tambem, como a pesquisa é realizada pela coluna B, na mesma temos os titulos, o que não tem como ignorar e desta forma os itens ficam embaralhados no listbox.

De uma olhada no modelo com os ajustes e veja se ajuda.

Pesquisar e Lançar Itens Listbox

Qualquer duvida retorne, e na medida do possivel vamos ajudando.

[]s

alan2002fx, fiz uma rápida análise da sua planilha e posso dizer q vc está com princípios antiquados p/ a administração da mesma.
Vc não usa tabelas nomeadas, tabelas dinâmicas, referências a tabelas nomeadas nas fórmulas, cabeçalhos distantes dos dados e por aí vai.
Na planilha anexa eu montei algumas sugestões p/ facilitar sua vida com os modernos recursos do Excel, mas q atende até versões mais antigas.
Nós podemos te ajudar muito mais do q simplesmente aperfeiçoando códigos, mas isso depende de vc.

Resolvido.

Obrigado a todos pela ajuda, a solução do Osvaldomp, resolveu o meu problema.

Mauro Coutinho, valeu pelas dicas e ajudas, DJunqueira, gostei da idéia e estudarei para aplica-lá, porém tenho que deixar por enquanto pois estou me dedicando ao minha faculdade.

Boa sorte a todos, e parabéns por repartir e ajudar com seus conhecimentos.