Excel Filtro listbox para cpf com optionbutton

[Jefferson TS]

Olá. Alguém poderia me ajudar com este filtro, especificamente na parte do CPF, não aparece nada quando digito:
 

Private Sub TextBoxPESQUISAR_Change()
Call Desprotege
Application.ScreenUpdating = False

If OptionButtonNOME.Value = True Then
    Planilha7.Range("m2") = TextBoxPESQUISAR.Value
    Call FiltroPesquisar
    Application.ScreenUpdating = True
End If

If OptionButtonCPF.Value = True Then
Dim cpf As String
cpf = TextBoxPESQUISAR.Value

    Planilha7.Range("p2") = cpf
    Call FiltroPesquisar
    Application.ScreenUpdating = True
End If
    
Application.ScreenUpdating = True
Call Protege
End Sub

 

CONTROLE NOVO.rar

[RafaVillani]

@Jefferson TSVeja se dessa forma lhe atende.

 

RafaVillani

CONTROLE NOVO.rar

@Jefferson TSSegue novamente a planilha, havia um erro que eu corrigi.

CONTROLE NOVO.rar

[Jefferson TS]

@RafaVillani  Não deu certo a parte do cpf, está trazendo na listbox sempre o primeiro cadastro da tabela, mas não sei como fazer pra consertar isso:

 

Sub Filtro_CPF()

Dim Cont As Long
Dim Linha As Long
Dim CPF As String
Dim LinhaMatriz As Long
Dim C As Object
Dim Primeiro As String
Dim L As Long
Dim fonte(1 To 1000, 1 To 10) As Variant

If Me.TextBoxPESQUISAR.Value = Empty Then
    Me.ListBoxPESQUISAR.RowSource = Planilha2.ListObjects("tabela_cadastro")
    Exit Sub
End If


L = Planilha7.Range("a5").CurrentRegion.Rows.Count + 4
Planilha7.Range("A5:J" & L).ClearContents

LinhaMatriz = 1
Linha = 5

CPF = Me.TextBoxPESQUISAR

Set C = Planilha2.Range("E:E").Find(CPF)

Linhalistbox = 0

If Not C Is Nothing Then
Primeiro = C.Address

    Do
    fonte(LinhaMatriz, 1) = C.Offset(0, -4).Value
    fonte(LinhaMatriz, 2) = C.Offset(0, -3).Value
    fonte(LinhaMatriz, 3) = C.Offset(0, -2).Value
    fonte(LinhaMatriz, 4) = C.Offset(0, -1).Value
    fonte(LinhaMatriz, 5) = C.Offset.Value
    fonte(LinhaMatriz, 6) = C.Offset(0, 1).Value
    fonte(LinhaMatriz, 7) = C.Offset(0, 2).Value
    fonte(LinhaMatriz, 8) = C.Offset(0, 3).Value
    fonte(LinhaMatriz, 9) = C.Offset(0, 4).Value
    fonte(LinhaMatriz, 10) = C.Offset(0, 5).Value
    LinhaMatriz = LinhaMatriz + 1
    Cont = Cont + 1
    Set C = Planilha2.Range("E:E").FindNext(C)
    Loop While Primeiro <> C.Address

End If

If Cont = 0 Then
    Me.ListBoxPESQUISAR.RowSource = Planilha7.Range("A5:J5").Address
    Exit Sub
End If
Cont = Cont + 4
Planilha7.Range("A5:J" & Cont) = fonte
Me.ListBoxPESQUISAR.RowSource = Planilha7.Range("A5:J" & Cont).Address
End Sub

 

CONTROLE NOVO.rar

[RafaVillani]

@Jefferson TSRevisado e testado, funcionando perfeitamente, veja o vídeo.

 

RafaVillani

Filtro CPF.rar