Riepilogo fogli di lavoro

Question

Salve,

Ho un file excel composto da diversi fogli la cui struttura è la stessa per ogniuno.

Vorrei fare un foglio di riepilogo mettendo di tutti gli altri fogli, le setesse celle su una riga.

In totale nel riepilogo devo mettere circa una decina di valori per ogni foglio e mediamente ho circa 40/50 fogli!!!

Spero di aver esposto bene il problema.

Grazie

FRYSKY

Answer 1

Perfetto, quello che cercavo

Delle ottimizzazioni

1. se non voglio i valoro consecutivi, ma lasciare degli spazi per consentire l'elaborazione delle singole voci prese dai vari fogli ?
2. se rinomino il foglio Riepilogo, è possibile fare in modo che la macro utilizzi il foglio corrente ?
3. è possibile fare in modo che i valori vengano presi solo dai fogli a destra del foglio Riepilogo ?

Ho tolto la riga di codice

.Range("A" & lRiga).Value = sh.Name

perche mi dava il nome della scheda che non mi serviva

GRAZIE

1) Non ho capito. Se intendi lasciare una riga vuota fra una serie di tati e l'altra, modifica questo:

lRiga = lRiga + 1

così:

lRiga = lRiga + 2

Se invece vuoi una cella vuota fra un dato e l'altro sulla riga, modifica questo:

lCol = lCol + 1

così:

lCol = lCol + 2

2) Si potrebbe utilizzare ActiveSheet. Si potrebbe perché la cosa va contro al mio modo di vedere la programmazione di Excel. Se fai partire inavvertitamente la macro da un foglio che non sia quello che vorresti tu.... beh ti lascio immaginare.

3) Puoi per favore spiegare il perché? La cosa è fattibile, ma forse esistono metodi più pratici. Come è organizzato l'insieme dei tuoi fogli?

Answer 2

Perfetto, quello che cercavo

Delle ottimizzazioni

1. se non voglio i valoro consecutivi, ma lasciare degli spazi per consentire l'elaborazione delle singole voci prese dai vari fogli ?
2. se rinomino il foglio Riepilogo, è possibile fare in modo che la macro utilizzi il foglio corrente ?
3. è possibile fare in modo che i valori vengano presi solo dai fogli a destra del foglio Riepilogo ?

Ho tolto la riga di codice

.Range("A" & lRiga).Value = sh.Name

perche mi dava il nome della scheda che non mi serviva

GRAZIE

Answer 3

Vedo di spiegarmi meglio:

Ho 40 fogli ogniuno con una analisi.

Tutti i fogli sono uguali (hanno la stessa struttura, ma cambiano i valori).

Vorrei riportare i dati che mi servono presi dai singoli fogli in un nuovo foglio di riepilogo per poi elaborarli e fare delle statistiche (ma questo sarà il prossimo step).

Questi dati che mi servono nel riepilogo si trovano in tutti i fogli alla stessa posizione e sono circa 10 per foglio.

Ogni riga del file di riepilogo fa riferimento ai dati dello stesso foglio.

Attualmente ho fatto manualmente dando = e selezionando le singole celle, ma aumentando i fogli la mole di lavoro diventa eccessiva!

Spero di essermi spiegato meglio.

GEAZIE

Non hai spiegato *dove* sono posizionati i dati da riportare, in quali celle.

Mettiamo siano le celle A1, B5, C11 e che tu voglia riportare i dati di tutti i fogli nel foglio Riepilogo, questa macro dovrebbe fare quanto chiedi:

Public Sub m()

    Dim rng As Range

    Dim sh As Worksheet

    Dim shRiepilogo As Worksheet

    Dim lRiga As Long

    Dim lCol As Long

    Dim c As Range

    Set shRiepilogo = ThisWorkbook.Worksheets("Riepilogo")

    lRiga = 2

    For Each sh In ThisWorkbook.Worksheets

        If sh.Name <> "Riepilogo" Then

            Set rng = sh.Range("A1,B5,C11")

            lCol = 2

            With shRiepilogo

                .Range("A" & lRiga).Value = sh.Name

                For Each c In rng

                    .Cells(lRiga, lCol).Value = c.Value

                    lCol = lCol + 1

                Next

                lRiga = lRiga + 1

            End With

            Set c = Nothing

            Set rng = Nothing

        End If

    Next

    Set shRiepilogo = Nothing

    Set sh = Nothing

End Sub

In grassetto la parte da modificare con i tuoi riferimenti.

Qui trovi un aiuto se non hai mai utilizzato le macro di Excel:

• http://answers.microsoft.com/it-it/office/wiki/office_2013_release-excel/excel-dove-e-come-inserire-il-codice-visual-basic/ed29ee63-a537-4e5d-8631-76766cf40503

Answer 4

Vedo di spiegarmi meglio:

Ho 40 fogli ogniuno con una analisi.

Tutti i fogli sono uguali (hanno la stessa struttura, ma cambiano i valori).

Vorrei riportare i dati che mi servono presi dai singoli fogli in un nuovo foglio di riepilogo per poi elaborarli e fare delle statistiche (ma questo sarà il prossimo step).

Questi dati che mi servono nel riepilogo si trovano in tutti i fogli alla stessa posizione e sono circa 10 per foglio.

Ogni riga del file di riepilogo fa riferimento ai dati dello stesso foglio.

Attualmente ho fatto manualmente dando = e selezionando le singole celle, ma aumentando i fogli la mole di lavoro diventa eccessiva!

Spero di essermi spiegato meglio.

GEAZIE

Answer 5

Salve,

Ho un file excel composto da diversi fogli la cui struttura è la stessa per ogniuno.

Vorrei fare un foglio di riepilogo mettendo di tutti gli altri fogli, le setesse celle su una riga.

In totale nel riepilogo devo mettere circa una decina di valori per ogni foglio e mediamente ho circa 40/50 fogli!!!

Spero di aver esposto bene il problema.

Grazia

FRYSKY

La tua domanda non è molto chiara, almeno per me.

Cosa vuol dire *le stesse celle su una riga*?

Ok i fogli hanno la stessa struttura, ma qual è questa struttura?

Grazie.