Soggetti ripetuti in righe: somma importi e valori unificati

[angyx]

Buongiorno ho bisogno di ottenere un risultato da un foglio excel. Ho circa 1400 righe con questa struttura:

Codice: Seleziona tutto

       A     |    B   |    C      |    D    |
PINCO          VIA...    imu        100
PALLO          VIA...    IRPEF      100
PINCO          VIA...    IRPEF      150

Cioè nomi soggetti ripetuti in righe diverse ognuna afferente ad un diverso servizio prestato.

Ho bisogno di ottenere per ogni soggetto 1 sola riga così composta:

Codice: Seleziona tutto

  A       |    B   |    C    |    D     |   C    |    D    |
PINCO    VIA...      imu      IRPEF                250
PALLO    VIA...               IRPEF                100

e cioè dovrei ottenere in 1 sola riga il nominativo, i servizi prestati e l'importo totale in quanto devo creare una stampa unione per la richiesta delle somme.

Non riesco ad individuare i passaggi per fare questa cosa. Andrebbe bene anche una macro. Grazie.

[ricky53]

Ciao,
prima di tutto benvenuto nel nostro forum.

Ci sono varie modi per ottenere il risultato che cerchi.
Io ti consiglio di utilizzare una TABELLA PIVOT che è, a mio avviso, la soluzione più semplice e facilmente riadattabile per nuove necessità.

[angyx]

Devo fare una stampa unione al termine, la tabella pivot (x come la so usare io) non mi aiuta. Quì c'è un esempio di quello che mi servirebbe, non so se si riesce ad ottenere una macro che faccia al mio caso. Ringrazio in anticipo

https://onedrive.live.com/redir?resid=6581d072003a758c!241&authkey=!AGfi6lJIAbtxSWQ&ithint=file%2cxlsx

[Anthony47]

Prova con una macro come questa:

Codice: Seleziona tutto

Sub recap()
Dim I As Long, myNext As Long, RiepSh As Worksheet, myPipp, myTot As Single
'
Set RiepSh = Sheets("Foglio2")          '<<< Il foglio dove si creera' il riepilogo
'
Sheets("Foglio1").Select
myNext = RiepSh.Cells(Rows.Count, 1).End(xlUp).Row + 1
For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row + 1
    If myPipp <> Cells(I, 1) Then
        If I > 2 Then RiepSh.Cells(myNext, 11) = myTot
        myNext = RiepSh.Cells(Rows.Count, 1).End(xlUp).Row + 1
        myPipp = Cells(I, 1)
        RiepSh.Cells(myNext, 1).Resize(1, 6).Value = Cells(I, 1).Resize(1, 6).Value
        myTot = 0
    End If
    RiepSh.Cells(myNext, Columns.Count).End(xlToLeft).Offset(0, 1).Value = Cells(I, 7).Value
    myTot = myTot + Cells(I, 8).Value
Next I
'
End Sub


Da excel: Alt-F11 per aprire l' editor delle macro; Menu /Inserisci /Modulo; copia il codice e incollalo nel frame di dx.
Personalizza l' istruzione marcata <<<, se Foglio2 non va bene.
Poi torna su Excel e manda in esecuzione la Sub Recap: Alt-F8, scegli Recap dall' elenco che ti propone, premi Esegui.
Sul riepilogo dovrai aggiungere le intestazioni di colonna a mano.

Ciao, fai sapere.

[angyx]

Funzione M A G N I F I C A M E N T E!!!!!!!!!!!!!!!!!!!!!!!!!!!
Grazie so muchhhhhhhhhhhhhhhh! E buona pasqua!

[angyx]

Forse c'è un problema (dovuto di certo all'esempio che ho postato) e cioè: per quei soggetti che hanno usufruito di + di 4 servizi manca appunto dal 5o in poi, cioè le colonne sono sempre 4, tutti gli altri eventuali servizi vengono scartati. Sbaglio qualcosa io?

[Anthony47]

Quando si fa poca analisi preliminare poi si perde tempo a inseguire le dimenticanze...
Ancora adesso non hai chiarito tutta la casistica, pertanto mi limito a suggerire di sostituire, nella macro precedente, la riga
If I > 2 Then RiepSh.Cells(myNext, 11) = myTot
con
If I > 2 Then RiepSh.Cells(myNext, Columns.Count).End(xlToLeft).Offset(0, 1).Value = myTot

Ciao