Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Soggetti ripetuti in righe: somma importi e valori unificati

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

Soggetti ripetuti in righe: somma importi e valori unificati

Postdi angyx » 01/04/15 11:19

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.
angyx
Newbie
 
Post: 4
Iscritto il: 01/04/15 11:05

Sponsor
 

Re: Soggetti ripetuti in righe: somma importi e valori unifi

Postdi ricky53 » 01/04/15 14:46

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à.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Soggetti ripetuti in righe: somma importi e valori unifi

Postdi angyx » 02/04/15 15:50

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
angyx
Newbie
 
Post: 4
Iscritto il: 01/04/15 11:05

Re: Soggetti ripetuti in righe: somma importi e valori unifi

Postdi Anthony47 » 02/04/15 23:19

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

Re: Soggetti ripetuti in righe: somma importi e valori unifi

Postdi angyx » 03/04/15 09:01

Funzione M A G N I F I C A M E N T E!!!!!!!!!!!!!!!!!!!!!!!!!!!
Grazie so muchhhhhhhhhhhhhhhh! E buona pasqua!
angyx
Newbie
 
Post: 4
Iscritto il: 01/04/15 11:05

Re: Soggetti ripetuti in righe: somma importi e valori unifi

Postdi angyx » 03/04/15 10:09

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?
angyx
Newbie
 
Post: 4
Iscritto il: 01/04/15 11:05

Re: Soggetti ripetuti in righe: somma importi e valori unifi

Postdi Anthony47 » 03/04/15 22:25

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


Torna a Applicazioni Office Windows


Topic correlati a "Soggetti ripetuti in righe: somma importi e valori unificati":


Chi c’è in linea

Visitano il forum: Nessuno e 8 ospiti