Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
OCULTAR LINHAS A PA...
 
Notifications
Clear all

OCULTAR LINHAS A PARTIR DE CRITERIOS

 
2024 - VBA & Macros
4 Posts
3 Usuários
0 Reactions
987 Visualizações
RSS
 denilsonsl
(@denilsonsl)
Posts: 84
Trusted Member
Topic starter
 

Boa tarde Mestres.

Preciso de uma ajuda.

Tenho uma planilha que tem varias linhas inseridas com produtos, data de solicitação e entrega.

Preciso de um codigo, que a partir do momento que clicar em uma checkbox, oculte as linhas que tenham datas que não seja a do dia de hoje por exemplo.

---- Vamos supor que tenho 10 linhas com pedidos solicitados hoje, quando ao clicar o checkbox, oculte as linhas que não seja a data do dia que foi implantado o pedido.

Exemplo, coloquei um pedido na data de 15/2/2016, se houver datas do dia 14/2/16 para "trás", quando ao momento que foi clicado o checkbox as linhas com datas inferiores as do dia 15/2/2016 são ocultadas.

Isso é possível?

SEGUE EM ANEXO A PLANILHA.

----- a planilha esta com senha no vba, segue senha pcp2015!

 
Postado : 15/02/2016 11:52 am
 Osvaldomp
(@osvaldomp)
Posts: 857
Prominent Member
 

Preciso de um codigo, que a partir do momento que clicar em uma checkbox, oculte as linhas que tenham datas que não seja a do dia de hoje por exemplo.

Olá, Denilson.

Veja se o código abaixo ajuda.

Private Sub CheckBox1_Click()
 If CheckBox1.Value Then
  [A2].AutoFilter Field:=1, Criteria1:=xlFilterToday, Operator:=xlFilterDynamic
 Else:   [A2].AutoFilter
 End If
End Sub

Osvaldo

 
Postado : 16/02/2016 9:14 am
 denilsonsl
(@denilsonsl)
Posts: 84
Trusted Member
Topic starter
 

Perfeito.....

Parabéns pelo código....

Att mais mestres....

 
Postado : 16/02/2016 9:40 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Denilson

Como a resposta foi útil, faltou você clicar na mãozinha da resposta do Osvaldo.
Vamos incentivar os colaboradores.
Acesse--> viewtopic.php?f=7&t=16757

[]s

Patropi - Moderador

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/02/2016 10:27 am
Forum Jump:
  Tópico Anterior
Próximo Tópico