Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

cella di riferimento filtro excel

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

cella di riferimento filtro excel

Postdi walkimi » 30/10/07 12:49

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
Utente Junior
 
Post: 24
Iscritto il: 13/02/06 15:34

Sponsor
 

Postdi walkimi » 30/10/07 14:41

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 ;)
walkimi
Utente Junior
 
Post: 24
Iscritto il: 13/02/06 15:34

Postdi Anthony47 » 31/10/07 02:09

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.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea

Postdi walkimi » 06/11/07 11:07

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 ^^
walkimi
Utente Junior
 
Post: 24
Iscritto il: 13/02/06 15:34


Torna a Applicazioni Office Windows


Topic correlati a "cella di riferimento filtro excel":


Chi c’è in linea

Visitano il forum: Nessuno e 8 ospiti