Excel Filtrar listbox e alterar status

[Jefferson TS]

Olá. Tenho uma tabela base de cadastros e um formulário com listbox dessa base. Preciso fazer duas coisas:
1º filtrar no listbox status ATIVOS e INATIVOS com botões de opção;
2º alterar status dos itens selecionados conforme botões de comando (cadastros ATIVOS, alterar para INATIVOS)
Conforme imagem abaixo:

Alguém poderia me ajudar?
obs: o botão para 'alterar para ativo' está em baixo do 'alterar para ativo', eles ficam visíveis e invisíveis de acordo com o botão de opção selecionado.

CONTROLE NOVO.rarBuscando informações...

[RafaVillani]

@Jefferson TSQual a senha da planilha?

[Jefferson TS]

Perdão. A senha é 1234

@RafaVillani Aproveitando o assunto filtro na mesma planilha.

Sabe me dizer como eu poderia fazer para selecionar o tipo de filtro nessa parte? CPF ou Nome conforme imagem abaixo:

 

CONTROLE NOVO.rarBuscando informações...

[RafaVillani]

@Jefferson TSSegue sua planilha, fiz o filtro dos Ativos e Inativos, e acrescentei um novo botão de opção para mostrar todos.

 

Quanto a forma de alterar o Status, fiz com apenas um botão, se o status for Ativo ele é altera para Inativo, se for Inativo é alterado para Ativo.

 

Quanto a opção do filtro por CPF ou Nome, acredito que o @AfonsoMirajá o instruiu no outro tópico.

 

RafaVillani

CONTROLE NOVO.rarBuscando informações...

[Jefferson TS]

@RafaVillani Show. Ficou muito bom.

 

  Em 28/05/2021 às 16:07, RafaVillani disse:

Quanto a opção do filtro por CPF ou Nome, acredito que o @AfonsoMirajá o instruiu no outro tópico.

Expandir  

 

Fiz as alterações sugeridas mas não funcionou. E também não está filtrando nada. Poderia dar uma olhada?

CONTROLE NOVO.rarBuscando informações...

[Jefferson TS]

@RafaVillani

Seria alguma coisa nesse sentido?
 

Private Sub TextBoxPESQUISAR_Change()
Call Desprotege

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

If OptionButtonCPF.Value = True Then
    Application.ScreenUpdating = False
    Planilha7.Range("p2") = TextBoxPESQUISAR.Value
'    Call FiltroPesquisarCPF (FAZER FILTRO PRO CPF)
    Application.ScreenUpdating = True
End If

Call Protege
End Sub

 

E o UserformPESQUISAR.ListBoxPESQUISAR  não está mais filtrando, e não encontro a falha.