Bart Aimar ha scritto:
C'è modo di sapere via macro se una determinata sheet ha un filtro
"aperto" ?
Mi rispondo da me...
Sembra sia indispensabile percorrere tutte le righe, controllando per
ciascuna se è attivo un filtro.
Questa macro lavora sulla tabella attiva e sembra funzionare...
Mi sembra utile in molte situazioni.
Sub HasFilter_in_Sheet()
Dim oSheet
Dim oFilterDesc
oSheet = ThisComponent.currentController.activeSheet
'sheet corrente
For i = 2 to getLastUsedRow(oSheet)
if oSheet.getRows().getByIndex(i).IsFiltered = true then
if msgbox ("This sheet is filtered"& CHR$(10) & CHR$(10)_
& "Remove All Filters ?" ,36, ""& CHR$(10)) = 6 then
oFilterDesc = oSheet.createFilterDescriptor(True)
oSheet.filter(oFilterDesc)
end if
exit sub
end if
Next I
msgbox "NO filter in This sheet"
End sub
saluti
Bart
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
