Notifications
Clear all

Macro para executar um filtro

7 Posts
3 Usuários
0 Reactions
1,624 Visualizações
(@japimentel)
Posts: 0
New Member
Topic starter
 

Olá, pessoal, bom dia.
Tomando como referência a planilha em anexo, gostaria de saber se posso executar um filtro automático para a coluna A, cujo cabeçalho é X, todas as vezes que uma célula da referida coluna for zerada.
Assim, sempre que eu zerar o conteúdo da célula e sair, o Excel deve executar o filtro automaticamente.
Cada uma das linhas desta planilha é um compromisso (agenda).
Atualmente, quando quero baixar o compromisso da agenda (e não deletar), deleto o X da célula e executo o filtro.
Assim, vão restando na planilha apenas as linhas que ainda mantém, na coluna A, o X e, consequentemente, as tarefas que ainda não foram realizadas.
Penso que talvez criar uma macro para executar o filtro na saída da coluna A resolverá o problema; mas desconheço como criar e implementar a macro.
Desde já agradeço aos colegas que se prontificarem em ajudar.

 
Postado : 01/03/2018 8:03 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

japimentel,

Boa tarde!

Anexe seu arquivo excel aqui mesmo no fórum, compactado com .ZIP.

 
Postado : 01/03/2018 9:07 am
(@japimentel)
Posts: 0
New Member
Topic starter
 

Obrigado, Wagner. Segue arquivo zipado.

 
Postado : 01/03/2018 9:21 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

japimentel,

Boa tarde!

Veja se é assim.

 
Postado : 01/03/2018 12:18 pm
(@japimentel)
Posts: 0
New Member
Topic starter
 

Muito bom, Wagner. Ficou excelente.
Acrescento apenas um detalhe: quando eu deleto o conteúdo da célula, o procedimento é executado e o cursor fica oculto, justamente na célula que acabou de ficar vazia e foi filtrada.
Como faço para que o cursor vá para a célula a1 da planilha?
Pelo que percebi, você está executando uma macro no evento on change. Se você me passar o comando, e onde devo inseri-lo, posso concluir por aqui.
Muito obrigado.
Parabéns.

 
Postado : 01/03/2018 1:36 pm
(@xlarruda)
Posts: 0
New Member
 

Colega japimentel insira isso no fim do codigo do colega wagner (antes do Application.Screenupdating = False):

Plan7.Range("A1").Select

Abrç!

 
Postado : 01/03/2018 1:46 pm
(@japimentel)
Posts: 0
New Member
Topic starter
 

Muito obrigado, amigo.
Ficou perfeito.

 
Postado : 01/03/2018 2:00 pm