Forum di Excel e VBA, per condividere esperienze e risolvere problemi su: Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.
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