Este fórum está sendo desativado

[CAMILOALVES01]

Bom Dia,
Pedido de Ajuda: Preciso de uma macro e/ou função que possa executar a seguinte rotina:
- Filtre a coluna "B7" pelo equipamento e que somente as linhas relativas a esse filtro sejam exibidas.
Desde Já Agradeço

[osvaldomp]

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address <> "$B$7" Then Exit Sub
 Application.ScreenUpdating = False
 On Error Resume Next
 Me.ShowAllData
 On Error GoTo 0
 If Target.Value <> "" Then [A8:F8].AutoFilter 1, Target.Value
End Sub

#
dica - na Validação de B7 utilize Intervalo Dinâmico Nomeado, assim não exibirá 900+ linhas vazias

[CAMILOALVES01]

Bom Dia! Prezado osvaldomp - 09 Jun 2022 às 11:01
Primeiramente Muito Obrigado Por Disponibilizar Seu Tempo e Conhecimento Para Ajudar-me.
Funcionou 100% Dentro do Esperado, Replicamos Sua Solução Para Outras 3 Planilhas Que Temos, Porém Uma Delas Está Protegida/Bloqueada Para Alterações, Especificamente Neste Caso A Macro Não Funcionou, “Quebramos a Cabeça” e Até Tentamos Uma Solução Acrescentando a Sua Macro a Seguinte Rotina: Sheets("BANCO DE DADOS").Unprotect "admin2022", porém não houve o desbloqueio da planilha.
Se for possível, teria como analisar e verificar um contorno para desbloqueio da referida planilha?
OBS: segue planilha (aproveitamos a do exemplo inicial) para uma possível avaliação
Atenciosamente

[osvaldomp]

Olá, @CAMILOALVES01 .

1. B7 está bloqueada e por isso não permite alterações com a planilha protegida.
Para desbloquear ~~~> desproteja a planilha | clique com o direito em B7 | Formatar células | Proteção | desmarque Bloqueadas | OK

2. "Até Tentamos Uma Solução Acrescentando a Sua Macro a Seguinte Rotina: Sheets("BANCO DE DADOS").Unprotect "admin2022", porém não houve o desbloqueio da planilha."

Substitua essa linha que você acrescentou pela linha abaixo.
Me.Protect Password:="admin2022", AllowFiltering:=True, userinterfaceonly:=True

[CAMILOALVES01]

Boa Tarde! Prezado osvaldomp - 10 Jun 2022 às 11:33
Obrigado Pela Paciência e Ensinamento.
Perfeito, 10.
Fica com DEUS!