filtri excel

Hai un problema con Excel?

Nuova discussione

filtri excel
di claude (utente non iscritto) data: 30/05/2015 21:01:21
Ho un tabella in cui ci sono dei filtri... mi occorrerebbe tramite un pulsante che mi uscisse un messaggio con scritto i criteri dei filtri che applico sulla tabella...
grazie
di Marius44 data: 31/05/2015 12:57:14
Sarebbe meglio avere un tuo file sul quale lavorare. Infatti non sappiamo come vengono applicati i filtri.
Comunque, supponendo che siano applicati tramite una macro, vedi se può andar bene la seguente (inserita subito dopo l'applicazione di un filtro) :

mes1 = Range(xy).Text: mes2 = Range(xz).Text: mes = mes1 & " - " & mes2
MsgBox mes, 0, "Criteri"

dove range(xy) e range (xz) sono le celle dove hai indicato in precedenza i tuoi criteri.
Fammi sapere.
Ciao
di claude (utente non iscritto) data: 02/06/2015 21:30:21
Purtroppo non va bene perché nella tabella non ho utilizzato il filtro avanzato...pertanto per applicare i criteri dei filtri vado nella casella a discesa...
di Marius44 data: 02/06/2015 22:22:15
Come detto prima, sarebbe meglio avere un file su cui lavorare.
Ciao.

di claude (utente non iscritto) data: 02/06/2015 22:30:58
Ho risolto ho trovato la soluzione in una vecchia discussione in questo sito!!! Grazie tanto lo stesso !!!!

 Set fatturato = Sheets("db")
    If fatturato.AutoFilterMode = True Then

        For i = 1 To fatturato.AutoFilter.Filters.Count
'MsgBox fatturato.AutoFilter.Filters.Count
            Set Filtro = fatturato.AutoFilter.Filters.Item(i)
            If Filtro.On Then
 Select Case Filtro.Count
                Case 1
                    cr = Filtro.Criteria1
                Case 2
                    cr = Filtro.Criteria1 & Filtro.Criteria2
                Case 3
                    For Each criterio In Filtro.Criteria1
                        cr = cr & criterio
                    Next
                End Select
            End If
            Next
         End If

Vuoi Approfondire?