Filtra_Lixtbox_VBA

[Adonias]

Tompás seu exemplo de filtro a partir de um listbox resolve direitinho meu problema com as seguinte adaptações

eu tenho na planilha q4 colunas e quero que quando for digitando no textbox o listbox apresente todos os dados nas suas colunas


CPF NOME PROCESSO DATA
222555444 Maia 3215455666 01/05/2010
665544887 joao 3215447721 02/05/2012
222555444 Maia 3225548852 02/06/2012


repare que a busca visa descobrir quantos processos há no CPF tal

quando eu começar a digitar o cpf 222555444 aparecerá o list com todos os dados cadastrado para aquele cpf

CPF NOME PROCESSO DATA
222555444 Maia 3215455666 01/05/2010
222555444 Maia 3225548852 02/06/2012

eu devo selecionar o desejado e clicando os dados devem ser apresentados em 4 textbox no formulário


Agradeço

Adonias

[Adonias]

Galera boa
Caso alguém possa dar uma resolvida neste problema eu agradeceria

Tomás, caso você implemente me forneça o link para eu baixar.

Grato

Adonias

[joseA]

Post um exemplo...

[Adonias]

Jose, infelizmente não sei como colocar um arquivo aqui no forum.
Poderia me ajudar nessa tarefa também?

Grato

[Adonias]

ok, descobri

Esse exemplo é do Tomas com algumas alterações

O que quero é que quando eu começar a digitar o número do CPF 222.222.222-22 apareça a relação no list contendo as demais colunas e eu possa selecionar e clicando os dados sejam enviados para os textbox no form

[joseA]

Teste aí:

Código: Selecionar todos

Private Sub ListBox1_Click()
Me.TextBox2.Value = Me.ListBox1.Value
Call PESQUISA
End Sub
Sub PESQUISA()

Dim PrimEndereço, C As Range
With Sheets("Plan1").Range("A2:A65000")
    Set C = .Find(TextBox2.Text, LookIn:=xlValues, LOOKAT:=xlPart, MatchCase:=False)
    If Not C Is Nothing Then
        PrimEndereço = C.Address
        Do
    
            Me.TextBox3 = Sheets("Plan1").Range("B" & C.Row).Value
            Me.TextBox4 = Sheets("Plan1").Range("C" & C.Row).Value
            Me.TextBox5 = Sheets("Plan1").Range("D" & C.Row).Value
                                      
    
            Set C = .FindNext(After:=C)
        Loop While Not C Is Nothing And C.Address <> PrimEndereço
    End If
End With
End Sub

[Adonias]

JoseA,
Já foi de grande ajuda, mas quando seleciono somente o primeiro item da lista aparece nos textbox e se eu mu e escolho i item seguinte os dados não alteram continuam os mesmo.

Eu preciso que quando eu escolher um dos vários processos que aparecer para determinado CPF o mesmo aparecça nos textbox e se eu quiser ver outro quando escolher o outro deverá aparecer nos textbox.

O código que você me forneceu agora apenas escolhe o primeiro item.
Reparei que mesmo sque eu escolha o segundo item os dados apresentados serão sempre os dados da primeira linha do list

Aguardo

[Adonias]

A propósito, ainda continua aparecendo no list apenas a primeira coluna

[joseA]

Segue adaptação de um modelo do Tomás:

[Adonias]

JoseA, amigo Deus te abençoe

Era isso que eu estava querendo
Ainda continua exibindo a mesma data do itam da primeira linha, mas foi bom demais
Vou descobrir o que é

Valeu mesmo
Grato

Adonias