Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Excel - Creare macro, o altro, per collegare fogli con filtr

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

Excel - Creare macro, o altro, per collegare fogli con filtr

Postdi ste2505 » 14/03/13 17:29

Un saluto a tutti,
è la prima volta che scrivo qua nel forum e spero mi possiate aiutare perché mi fareste fare un figurone con il mio capo :)

Intanto vi anticipo che la mia azienda è divisa in Aree e in ogni area ci sono diversi Agenti che seguono ovviamente un tot di clienti ciascuno.

Ho creato un file excel (che potete scaricare qua: http://rapidshare.com/files/1402599123/ ... 03-06.xlsx ) in cui c'è il fatturato per ogni area e agente e l'importo delle fatture scadute dei loro clienti.

Il file è così strutturato:
- Foglio "Riepilogo": è presente il fatturato totale e lo scaduto dell'azienda diviso per le aree. Per ogni area ho creato un collegamento ipertestuale che porta ai singoli fogli di lavoro delle varie aree
- Fogli delle Aree: sono 12 fogli per altrettante aree in cui c'è il fatturato per ogni Agente e lo scaduto
- Foglio "Aging": ci sono tutti gli importi degli scaduti dell'azienda per area - agente - cliente con i filtri per ogni colonna presente nel file

Io vorrei creare una macro (non ne ho mai fatta una) o qualsiasi altra cosa che permetta al mio capo di cliccare su ogni agente presente nei "Fogli delle Aree" e che gli si apra il foglio "Aging" debitamente filtrato per quell'agente. Esempio: se clicca sulla cella del foglio "Area 1"in cui c'è "Agente 1" vorrei che gli si aprisse il foglio "Aging" con i soli dati relativi all'"Agente 1"; dopo tornerebbe nel foglio "Area 1" e cliccando sulla cella in cui cui c'è "Agente 2" vorrei che gli si aprisse il foglio "Aging" con i soli dati relativi all'"Agente 2"

Non so se sono riuscito ad essere abbastanza chiaro ma spero di sì perché se riuscite ad aiutarmi vi sarò grato per sempre!! ;)
ste2505
Newbie
 
Post: 5
Iscritto il: 14/03/13 16:40

Sponsor
 

Re: Excel - Creare macro, o altro, per collegare fogli con f

Postdi Flash30005 » 14/03/13 21:25

Ciao Ste2505 e benvenuto nel Forum

Il file non è scaricabile
prova ad usare questo server

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Excel - Creare macro, o altro, per collegare fogli con f

Postdi Anthony47 » 15/03/13 00:01

Anche Rapidshare e' un ottimo provider, purtroppo a Feb 2013 hanno attuato una policy per cui i folder preesistenti degli utenti sono diventati tutti "privati"; per condividere con altri bisogna creare e usare un folder "pubblico", come descritto in questo messaggio: viewtopic.php?f=26&t=80395

Ciao
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: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel - Creare macro, o altro, per collegare fogli con f

Postdi ste2505 » 15/03/13 08:35

Ops scusate.

L'ho caricato su filedropper come consigliato:

http://www.filedropper.com/fatturatocap ... 2013-03-06
ste2505
Newbie
 
Post: 5
Iscritto il: 14/03/13 16:40

Re: Excel - Creare macro, o altro, per collegare fogli con f

Postdi Flash30005 » 15/03/13 10:47

In un modulo inserisci questo codice
Codice: Seleziona tutto
Public Agente As String

Sub Filtra()
    Sheets("AGING").Select
    UR2 = Range("A" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("$A$1:$P$" & UR2).AutoFilter Field:=2, Criteria1:=Agente
End Sub

Poi nel Vba di ogni foglio Area
questo codice
Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UR = Range("A" & Rows.Count).End(xlUp).Row
CheckArea = "A2:A" & UR
If Not Application.Intersect(Target, Range(CheckArea)) Is Nothing Then
    If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
Agente = Target
Filtra
End If
End Sub


Per accedere al Vba premi il tasto Alt+F11
crei un modulo dal menu Inserisci -> Modulo
Sul frame di destra incolli la macro indicata per il modulo
Poi sul frame di sinistra troverai gli Ogetti (Fogli) doppio click su ogni foglio Area e incolli (sul frame di destra)
la macro indicata per i fogli

Per maggior chiarezza invio questo file

Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Excel - Creare macro, o altro, per collegare fogli con f

Postdi ste2505 » 15/03/13 14:18

Wow :!: :!:

Grazie mille Flash così è veramente perfetto!!
Ti sono debitore!! :)
ste2505
Newbie
 
Post: 5
Iscritto il: 14/03/13 16:40


Torna a Applicazioni Office Windows


Topic correlati a "Excel - Creare macro, o altro, per collegare fogli con filtr":


Chi c’è in linea

Visitano il forum: patel, Zer0Kelvin e 27 ospiti