cella di riferimento filtro excel

[walkimi]

ciao, volevo porvi un quesito:
su una tabella excel ho impostato un filtro automatico che interessa n colonne;
vado ad applicare il filtro su una colonna di testo nella quale sono inseriti i nomi di vari comuni scegliendone uno; è possibile fare riferimento al valore scelto in modo da cambiare in automatico una casella in cima al foglio, praticamente da usare come titolo?
cerco di spiegarmi meglio : seleziono da filtro il comune di Canicattì e vorrei che apparisse in una cella sopra i filtri il valore Canicattì, poi sotto le varie righe con tutti i record che riguardano Canicattì; una volta che cambio il filtro con Roma vorrei che in automatico mi cambiasse il valore della cella in cima al foglio....

se qualcuno ha qualche procedura da consigliare is welcome.
grazie ^^

[walkimi]

al momento ho risolto associando a ogni comune un numero, facendo il filtro ho calcolato la media del numero associato (quindi se canicattì è associato a 5 la media è 5 e così via) con la funzione subtotale, poi attraverso un elenco numerato e la funzione scarti ho fatto andare a prendere il testo del comune corrispondente; un po' artificioso ma funziona.
se qualcuno ha un metodo un po' più elegante

[Anthony47]

Potresti usare la seguente macro:

Codice: Seleziona tutto

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
MemoCell = "C1"            '<<<< Cella in cui scrivere il risultato
If ActiveSheet.AutoFilterMode Then
With ActiveSheet.AutoFilter.Filters(1)
If .On Then Crit1 = .Criteria1
End With
End If
Range(MemoCell).ClearContents
If Crit1 <> "" Then Range(MemoCell).Value = Right(Crit1, Len(Crit1) - 1)
Application.EnableEvents = True
End Sub

Tasto destro sul tab col nome del foglio su cui lavori, scegli “Visualizza codice”; si apre il vba editor; copia il codice e incollalo nel frame vuoto di destra (se ci sono gia’ altre istruzioni allora posta quello che hai per vedere la compatibilita’).
Modifica la riga segnata con <<<<, inserendo la cella che vuoi compilare.

Poi torna su excel, applica il filtro e vedi se torna…
Ciao, fai sapere.

[walkimi]

perfetto grazie mille era quello che cercavo, avevo fatto un passo in avanti con un elenco a discesa associato a una macro da lanciare con un pulsante

Sub Macro1()
On Error GoTo errore
'oggetto workflow
Dim wrkFoglio As Worksheet
'testo da cercare
Dim StrTesto As String
'instanzo l'oggetto
Set wrkFoglio = Worksheets("Foglio1")
StrTesto = wrkFoglio.Range("B8").Text
'faccio il filtro
wrkFoglio.Range("AM9").AutoFilter field:=1, Criteria1:=StrTesto
Exit Sub
errore:
MsgBox Err.Description
End Sub

ma la tua soluzione è più elegante ^^