riporta la parola filtrata

[marcoc]

ciao a tutti,
che formula devo scrivere per far visualizzare a mò di titolo in una cella al di sopra del filtro, ciò che si filtra nella colonna A?

[Flash30005]

Scarica i file di uno degli ultimi post (risolutivi) e vedi se soddisfano la tua esigenza
non sono formule ma soddisfano l'aspettativa.

ciao

[marcoc]

scusa, non capisco cosa devo scaricare e dove...

[Flash30005]

Ops
Non ho riportato il link
che doveva essere questo
Maforse a te occorre qualcosa di diverso...
Ma spiega meglio, quando applichi il filtro non è visibile nella stessa cella del filtro?
Se così, nel titolo non devi far altro che inserire in A1 (se cella titolo)

Codice: Seleziona tutto

=B2

Dove B2 è la cella del filtro

Fai sapere
Ciao

[marcoc]

quando filtro una colonna, vorrei che in una cella a parte, all'inizio del foglio mi comparisse la parola filtrata.
es: filtro la colonna A su "giallo", vorrei che nella cella E1 mi comparisse la parola "giallo"; filtro "blu" e mi compare "blu" e così via.
è più o meno come la funzione MODA(A1:A100) estesa anche alle lettere, ma solo di ciò che è visualizzato dal filtro.

[Flash30005]

ehmm,
non capisco...
Se hai in A1 il filtro (colori: Giallo, Blu etc) quando selezioni Giallo nella riga A2 e successive avrai la parola Giallo in quanto filtrato
se sceglierai Blu nella riga A2 e successive avrai Blu quindi in E1 metterai la formula
=A2
Mi sfugge qualcosa?

Fai sapere
Ciao

[marcoc]

ciao Flash,
ti allego il file
http://rapidshare.com/files/396995855/Cartel1.xlsx.html

[Flash30005]

Il problema non è tanto riportare in E1 la parola filtrata perché con questa macro ci si riesce

Codice: Seleziona tutto

Sub TrovaFiltro()
URF = Worksheets("Foglio1").Cells(Rows.Count, 2).End(xlUp).Row
Range("B3:B" & URF).Copy Destination:=Range("E2")
For RR = 3 To URF
    Range("E" & RR).ClearContents
Next RR
End Sub


tutto sta a far attivare la macro e l'unica cosa che mi sovviene è il richiamo della macro nella variazione di selezione del foglio
quindi inserendo questo codice nel foglio1 (non nel modulo)

Codice: Seleziona tutto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Call TrovaFiltro
Application.EnableEvents = True
End Sub

Si ottiene la parola filtrata solo dopo aver cliccato altrove

Altri tipi di automazioni non ne trovo.

Ciao

[Anthony47]

Oppure...
1) Inserisci questo codice in Modulo1

Codice: Seleziona tutto

Function Chefiltro()
Application.Volatile
If ActiveSheet.AutoFilter.Filters(1).On Then
    Chefiltro = ActiveSheet.AutoFilter.Filters(1).Criteria1
    If ActiveSheet.AutoFilter.Filters(1).Operator Then Chefiltro = Chefiltro & " ..."
End If
End Function

2) Poi in una cella scrivi

Codice: Seleziona tutto

=chefiltro()

Funziona sul primo filtro, e in caso di piu' criteri restituisce "..." in coda al primo criterio.

Ciao

[marcoc]

ciao a entrambi
Flash, non riesco a farla funzionare; mettendo la prima parte in moduli e la seconda nel foglio non mi trova il nome "TrovaFiltro()"
Anthony, la macro mi funziona, però nella cella mi riporta anche l' "=" davani alla parola filtrata; è possibile non farlo visualizzare?

[Flash30005]

Se non trova la macro "TrovaFiltro" significa che non hai messo la macro nel modulo di quella cartella di excel (magari in altro file)

Ti invio questo file

Ciao

[Anthony47]

Per quanto riguarda togliere il carattere iniziale, lo puoi fare usando la funzione STRINGA.ESTRAI; ma sei sicuro di volerlo togliere? hai provato a usare il filtro con la clausola "maggiore di"? Che cosa ti restituisce la formula? che cosa vorresti vedere?

Ciao

[marcoc]

Se metto maggiore di mi dà la prima parola in ordine alfabetico.
Con stringa.estrai comunque funziona perfettamente.

Con questa formula, se filtro 2 parole mi dà come risultato la prima in ordine alfabetico e poi tre puntini; se invece ne filtro 3 o di più mi dà #VALORE!; se non filtro mi dà cella vuota.
Come posso ottenere i puntini se filtro da 3 a n-1 valori, di modo da avere sempre la cella bianca se non filtro?