Página 1 de 1
{RESOLVIDO] Macro Filtra Equipamento
Enviado: 09 Jun 2022 às 09:51
por 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
Re: Macro Filtra Equipamento
Enviado: 09 Jun 2022 às 11:01
por osvaldomp
Código: Selecionar todosPrivate 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
Re: Macro Filtra Equipamento
Enviado: 10 Jun 2022 às 10:59
por 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
Re: Macro Filtra Equipamento
Enviado: 10 Jun 2022 às 11:33
por 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
Re: Macro Filtra Equipamento
Enviado: 10 Jun 2022 às 15:59
por CAMILOALVES01
Boa Tarde! Prezado osvaldomp - 10 Jun 2022 às 11:33
Obrigado Pela Paciência e Ensinamento.
Perfeito, 10.
Fica com DEUS!