ShowAllData



  • ShowAllData
    di Luca73 data: 28/07/2015 09:52:58

    Ciao a tutti
    ho un piccolo problema che non so come scavalcare.
    Ho una macro che in presenza di filtri attivi non fiunziona (deve aggiungere alcune celle)
    Non sapendo quale filtro è attivo ho provato ad eliminare tutti i filtri attivi con:
    ActiveSheet.ShowAllData
    Ora però se non ci sono filtri attivi il ShowAllData mi dà errore.
    Come posso fare?
    Esiste una proprietà che i dica se sono attivi filtri?
    Ciao
    Luca






  • di alfrimpa data: 28/07/2015 10:11:02

    Ciao Luca

    Ho trovato su questo sito

    h t t p://stackoverflow.com/questions/25950141/excel-vba-macro-to-remove-current-cells-value-from-active-autofilter-in-same-co

    il codice che vedi in basso che, forse, può esserti utile.

    Alfredo
     
    Set w = ActiveSheet
    If w.AutoFilterMode = False Then Selection.AutoFilter
    flag = False






  • di patel data: 28/07/2015 10:16:44

    prova così
     
    Sub Show_All()
    With Worksheets(1)
      If .FilterMode Then  .range("A1:G25").AutoFilter
    End With
    End Sub






  • di Luca73 data: 28/07/2015 10:37:43

    Ciao Alfredo e Andrea
    Partendo dai vostri suggerimenti, usando l'help
    ho risolto essere come sotto.
    Ringrazio tutti
     
    If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData






  • di patel data: 28/07/2015 12:15:15

    ottima fusione