Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Apaga Dados do Filt...
 
Notifications
Clear all

Apaga Dados do Filtro de Pesquisa

 
2024 - VBA & Macros
3 Posts
2 Usuários
0 Reactions
1,075 Visualizações
RSS
 lucianorn
(@lucianorn)
Posts: 14
Active Member
Topic starter
 

Boa tarde, tenho um sistema no qual em uma planilha uso um filtro para pesquisa de nomes e fichas, bem
teria um modo, de após a pesquisa do filtro quando vou fechar a planilha no botão salvar e fechar da macro em apagar automaticamente
a pesquisa que foi feito pelo filtro sem ter que fazer manualmente.
pesquisei achei um método só que ele apaga enquanto você escreve no campo não deixando com isso fazer a pesquisa.
segue em anexo a planilha de exemplo lembrando que essa é apenas um exemplo.

 
Postado : 24/05/2017 2:03 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Luciano

Tenho percebido que você não leu as regras, que é a primeira coisa que a pessoa deve fazer após se inscrever em um fórum.

Você tem infringido as regras, como por exemplo, anexando arquivos sem compactar, destacando todo texto das mensagens, etc..

Para facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s

Patropi - Moderador

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

 
Postado : 24/05/2017 3:21 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Troque a Rotina FECHAR pela a abaixo :

Sub FECHAR()

    Dim ShtP79 As Worksheet
    Set ShtP79 = Worksheets("P79")
    
    'Limpa os controles ActiveX
    ShtP79.OLEObjects("NUMERO").Object.Value = ""
    ShtP79.OLEObjects("NOME").Object.Value = ""

    ' SALVAR E FECHAR Macro
    MsgBox "Sistema Salvo, Fechando"
    
    ActiveWorkbook.Save
    
    Application.Quit

End Sub

[]s

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

 
Postado : 24/05/2017 6:10 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico