Condividi:        

[EXCEL] Riportare i dati da un foglio all'altro con selezion

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] Riportare i dati da un foglio all'altro con selezion

Postdi Sendokamata » 14/04/09 14:41

Salve a tutti,
ho un problema con Excel che non riesco a risolvere.
Avrei bisogno di riportare i Dati che ho su alcuni Fogli Excel in un foglio riepilogativo, facendo delle selezioni.
Per spiegarmi meglio:
Ho 11 fogli di Excel con tre colonne: servizio (che vanno dal valore 10 al valore 90), stato (che puo' avere valore I o V) e quantita'.

Io avrei bisogno di fare un foglio riepilogativo in cui mettere questi dati andando a selezionarli.

Per esempio il foglio 1 che e' ho chiamato Piacenza e' cosi' composto:
10 V 4858
10 I 1110
21 V 2346
21 I 293
22 V 19
22 I 1
25 V 2835
25 I 930
26 V 42
26 I 57
28 I 2
30 I 31
33 V 3
35 V 560
35 I 27
36 V 3736
36 I 375
39 V 256
39 I 21
41 V 108
41 I 19

il foglio 2 che ho chiamato Parma e' cosi' composto:
10 V 13269
10 I 2730
13 I 5
16 I 1
21 V 2287
21 I 489
22 V 82
22 I 6
24 V 8
24 I 2
25 V 9982
25 I 1018
26 V 206
26 I 68
30 I 19
35 V 1655
35 I 61
36 V 8364
36 I 617
39 V 201
39 I 27
41 V 895
41 I 84


Quello che io vorrei ottenere in automatico e' un foglio di Excel riepilogativo che sia cosi' composto:
Piacenza
10 V = (Valore che deve andare a prendere in automatico con una selezione sul foglio di Piacenza cercando chi ha il servizio 10 e lo stato V)
10 I = (Valore che deve andare a prendere in automatico con una selezione sul foglio di Piacenza cercando chi ha il servizio 10 e lo stato I)

Parma
10 V = (Valore che deve andare a prendere in automatico con una selezione sul foglio di Parma cercando chi ha il servizio 10 e lo stato V)
10 I = (Valore che deve andare a prendere in automatico con una selezione sul foglio di Parma cercando chi ha il servizio 10 e lo stato I)
ecc.......

spero di essere stato abbastanza chiaro
Ciao e Grazie
Sendokamata
Newbie
 
Post: 5
Iscritto il: 14/04/09 14:27

Sponsor
 

Re: [EXCEL] Riportare i dati da un foglio all'altro con selezion

Postdi Flash30005 » 14/04/09 15:19

Potresti postare il form del foglio riepilogativo o l'intera cartella di excel?
Da quello che descrivi non è molto chiaro, almeno per me, se i dati sul riepilogativo vanno a sostituire i precedenti es.
10 V (di piacenza)
10 V (di parma)
saranno sostituiti alla successiva selezione di 10 I o 21 V? Oppure si accodano?
E, poi, il terzo campo valore 4858 (di 10 V piacenza) va riportato?

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [EXCEL] Riportare i dati da un foglio all'altro con selezion

Postdi Sendokamata » 14/04/09 15:54

Ok... allora provo ad allegare l'immagine dei due file interessati per vedere se riesco ad essere piu' chiaro.
Nell'immaigne 1 ci sono i dati che mi vengono mandati dalle singole provincie; questi dati io dovrei metterli in un foglio riepilogativo che metto nell'immagine due.
Quello che io vorrei fare ad esempio e' dire : nel foglio statistiche attivita' nella casella A7 riportami la Somma di tutti quelli che nel foglio di Piacenza hanno come DOTIPSER = 10 e come DO_STATO='V'; nella casella B7 riportami la Somma di tutti quelli che nel foglio di Piacenza hanno come DOTIPSER = 10 e come DO_STATO='I'; nella caella E7 riportami la somma di tutti quelli che hanno come DOTIPSER = 25 e come DO_STATO='V'; ecc. ecc...

Spero di essere stato piu' chiaro.
ciao e grazie
Allegati
Piacenza.jpg
immagine foglio Piacenza
(36.78 KiB) Scaricato 43 volte
Statistica attivita.jpg
immagine foglio Statistiche Attivita'
(33.56 KiB) Scaricato 32 volte
Sendokamata
Newbie
 
Post: 5
Iscritto il: 14/04/09 14:27

Re: [EXCEL] Riportare i dati da un foglio all'altro con selezion

Postdi Anthony47 » 14/04/09 18:22

Ciao Sendokamata e benvenuto nel forum.
Per evitare equivoci, i tuoi dati sono in 11 fogli dello stesso file o in 11 file diversi?

Ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [EXCEL] Riportare i dati da un foglio all'altro con selezion

Postdi Sendokamata » 16/04/09 08:56

Ciao e grazie per l'aiuto...
I miei dati sono in 11 file diversi, che mi vengono spediti ogni settimana con i dati settimanali.
Per questo mi occorre un file riepilogativo che ogni settimana vada ad aggiornarsi con questi dati.
grazie
Sendokamata
Newbie
 
Post: 5
Iscritto il: 14/04/09 14:27

Re: [EXCEL] Riportare i dati da un foglio all'altro con selezion

Postdi Flash30005 » 16/04/09 10:37

Avevo supposto che fossero tutti nella stessa cartella di excel e ogni foglio avesse il nome della provincia, che comunque puoi creare semplicemente incollando i dati in una cartella.
il programma si divide in 3 macro la prima (Contafogli), inizia a formattare il foglio Riepilogo (da foglio vuoto con nome Riepilogo)
Codice: Seleziona tutto
Public Ir As Integer
Sub Contafogli()
Nf = Worksheets.Count
Ir = 0
IRC = 0
    Worksheets("Riepilogo").Range("A3").Select
For I = 2 To Nf
    ActiveCell.Offset(Ir, 0).Value = Worksheets(I).Name
    Range("A" & Ir + 3).Font.Bold = True
    Call Riempi
Ir = Ir + 7
Next
Call Compila
End Sub

La macro 2 (Riempi) assegna tutti i DotipSer possibili (da 10 a 90) e inserisce il Do_Stato (V o I) al foglio Riepilogo
Codice: Seleziona tutto
Sub Riempi()
IRC = Ir + 2
C = 0
For Col = 10 To 90
    ActiveCell.Offset(IRC, C).Value = Col
    ActiveCell.Offset(IRC + 1, C).Value = "V"
    C = C + 1
    ActiveCell.Offset(IRC, C).Value = Col
    ActiveCell.Offset(IRC + 1, C).Value = "I"
    C = C + 1
Next
Rows(IRC + 3 & ":" & IRC + 5).HorizontalAlignment = xlCenter
Worksheets("Riepilogo").Range("A3").Select
End Sub

e infine la macro 3 (Compila) assegna i valori in corrispondenza di DotipSer e Do_Stato nel foglio Riepilogo
Codice: Seleziona tutto
Sub Compila()
For Va = 3 To 73 Step 7
    Foglio = Worksheets("Riepilogo").Range("A" & Va).Value
    Nval = Worksheets(Foglio).Range("A" & Rows.Count).End(xlUp).Row
    For I = 1 To Nval
        RifVal = Worksheets(Foglio).Range("A" & I).Value & Worksheets(Foglio).Range("B" & I).Value
        For RR = 1 To 180
            Worksheets("Riepilogo").Cells(Va + 2, RR).Select
            If RifVal = Worksheets("Riepilogo").Cells(Va + 2, RR).Value & Worksheets("Riepilogo").Cells(Va + 3, RR).Value Then Worksheets("Riepilogo").Cells(Va + 4, RR).Value = Worksheets(Foglio).Range("C" & I).Value
        Next
    Next
Next
End Sub


E' importante che i dati delle province inizino dalla cella A1 alla cella C..x, se occorre allego il file completo di macro.

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [EXCEL] Riportare i dati da un foglio all'altro con selezion

Postdi Sendokamata » 16/04/09 15:08

Ti ringrazio veramente tanto.. mi hai dato una grandissima mano..
Se vuoi allegare anche il file completo di Macro mi faresti un ulteriore favore (dato che in Excel non sono molto bravo... infatti se non ci saltavo fuori trasformavo tutto in DBF e li gestivo cosi') se no dovrei riuscirci a saltare fuori anche io...
grazie ancora per l'aiuto
Sendokamata
Newbie
 
Post: 5
Iscritto il: 14/04/09 14:27

Re: [EXCEL] Riportare i dati da un foglio all'altro con selezion

Postdi Flash30005 » 16/04/09 15:35

Allego il file

Ciao
Allegati

[L’estensione zip è stata disattivata e non puó essere visualizzata.]

Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [EXCEL] Riportare i dati da un foglio all'altro con selezion

Postdi Sendokamata » 21/04/09 16:00

Perfetto... sono riuscito a fare tutto grazie al file che mi hai mandato.
grazie ancora.
Ciao
Sendokamata
Newbie
 
Post: 5
Iscritto il: 14/04/09 14:27


Torna a Applicazioni Office Windows


Topic correlati a "[EXCEL] Riportare i dati da un foglio all'altro con selezion":


Chi c’è in linea

Visitano il forum: Nessuno e 85 ospiti