Risultati da 1 a 15 di 15

Discussione: Totali distinti



  1. #1

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Totali distinti

    Ciao a tutti.

    E' da un po' che mi scervello ma non riesco a risolvere

    Come vedete dal file allegato sul foglio Preventivo ho una serie di eventi.

    Come faccio (con formule o VBA) ad avere il totale per singola località tenendo presente che l'elenco degli eventi è variabile e che ogni singolo evento è strutturalmente (numero righe e voci) uguale agli altri?

    Ho inserito il totale in basso manualmente per essere più chiaro.

    Grazie

    Alfredo
    File Allegati File Allegati

  2. #2
    L'avatar di Canapone
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Firenze
    Messaggi
    1075
    Versione Office
    2010 su Win
    Likes ricevuti
    598
    Likes dati
    202

    Re: Totali distinti

    Ciao Alfredo,

    hai bisogno di un totale che legga un intervallo variabile?

    Esempio, in C6

    Codice: 
    =SOMMA(INDICE(C$1:C$100;CERCA(2;1/VAL.VUOTO(C$1:C5);RIF.RIGA($1:5))):C5)
    da copiare accanto ad ogni totale.

    E' una buona occasione per salutarti.

  3. I seguenti 2 utenti hanno dato un "Like" a Canapone per questo post:


  4. #3
    L'avatar di Canapone
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Firenze
    Messaggi
    1075
    Versione Office
    2010 su Win
    Likes ricevuti
    598
    Likes dati
    202

    Re: Totali distinti

    Ciao,

    se avessi bisogno dell'elenco degli eventi:

    In E2

    Codice: 
    =SE.ERRORE(INDICE($B$2:$B$1000;PICCOLO(SE(VAL.NUMERO(RICERCA("Lunch presentation";$B$2:$B$1000))+VAL.NUMERO(RICERCA("Breakfast presentation";$B$2:$B$1000))>0;RIF.RIGA($2:$1000)-1);RIGHE(A$1:A1)));"")
    matriciale da copiare in basso

    In F2

    Codice: 
    =SE(E2<>"";INDICE(C$1:C$1000;PICCOLO(SE(B$1:B$1000="Total";RIF.RIGA($1:$1000));RIGHE(A$1:A1)));"")
    matriciale da copiare in basso

    Forse sono fuori strada.

    Saluti

  5. I seguenti 3 utenti hanno dato un "Like" a Canapone per questo post:


  6. #4

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Totali distinti

    Grazie Stefano è sempre un piacere leggerti.

    Le provo subito

    Alfredo

  7. #5

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Totali distinti

    Stefano la prima formula restituisce il totale che ho già.

    Le matriciali non sommano quello della stessa località (ci sono due Paris).

    Il risultato che vorrei ottenere è quello inserito manualmente in basso in grassetto nell'esempio

    Non so se mi sono spiegato

    Alfredo

  8. #6
    L'avatar di Canapone
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Firenze
    Messaggi
    1075
    Versione Office
    2010 su Win
    Likes ricevuti
    598
    Likes dati
    202

    Re: Totali distinti

    Ciao Alfredo,

    temevo di essere fuori strada.

    Ci penso un po'. Nel frattempo spero intervenga qualche amico del Forum.

    Ringrazio anche Marius44 per l'apprezzamento.

  9. #7
    L'avatar di Canapone
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Firenze
    Messaggi
    1075
    Versione Office
    2010 su Win
    Likes ricevuti
    598
    Likes dati
    202

    Re: Totali distinti

    Ciao di nuovo

    una soluzione così e così:

    in D2 ed accanto al database per creare una colonna di servizio (edit: ho aggiustato parentesi, stessi risultati)


    Codice: 
    =SE(VAL.NUMERO(RICERCA("Lunch presentation";B2))+VAL.NUMERO(RICERCA("Breakfast presentation";B2));SINISTRA(B2;TROVA("-";B2)-2);D1)
    Poi un semplice somma.se/2 che legga l'elenco delle città da elaborare

    Codice: 
    =SOMMA.SE($D$2:$D$21;G2;$C$2:$C$21)/2
    In attesa di soluzioni migliori...
    File Allegati File Allegati

  10. #8

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2809
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: Totali distinti

    Aggiungo alle già sbalorditive soluzioni di Canapone (che saluto), la versione VBA
    Codice: 
    Option Compare Text
    Option Explicit
    
    
    Sub SubTot()
    Dim uRiga As Long, i As Long
    Dim mioRange As Range
    Dim Totale As Double
    
    
    Set mioRange = Foglio2.Range("a1").CurrentRegion
    
    
    uRiga = mioRange.Rows.Count
    
    
    For i = 2 To uRiga
        If mioRange.Cells(i, 2) = "total" Then
            mioRange.Cells(i, 3) = Totale
            Totale = 0
        Else
            Totale = Totale + mioRange.Cells(i, 3)
        End If
    Next
    Set mioRange =Nothing
    End Sub

  11. #9

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Totali distinti

    Ciao Rubik e ringrazio anche te.

    Probabilmente non sono stato chiaro nella esposizione del problema.

    I totali che per ogni località già ci sono.

    Per Milan e London abbiamo 450 e Paris ha 550 e 550.

    Io vorrei che al termine dell'elenco degli eventi (quale che sia la sua lunghezza) ci sia riportato


    Col. B Col. C
    Totale Milan 450
    Totale London 450
    Totale Paris 1.100

    Cioè deve esser fatto un totale complessivo per località.

    Grazie

    Alfredo

  12. #10

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2809
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: Totali distinti

    Avevo capito male. Prova questa.
    Codice: 
    Option Compare Text
    Option Explicit
    
    
    Sub SubTot()
    Dim uRiga As Long, i As Long
    Dim mioRange As Range
    Dim Totale As Double
    Dim City As String
    Dim a As Integer
    
    
    Set mioRange = Foglio2.Range("a1").CurrentRegion
    
    
    uRiga = mioRange.Rows.Count
    
    
    For i = 2 To uRiga
        If InStr(1, mioRange.Cells(i, 2), "Presentation") > 0 Then
            City = Mid(mioRange.Cells(i, 2), 1, InStr(1, mioRange.Cells(i, 2), " ") - 1)
            Do
                Totale = Totale + mioRange.Cells(i, 3)
                i = i + 1
            Loop Until mioRange.Cells(i, 2) = "total"
            a = 1
            Do Until Foglio2.Cells(a, 5) = ""
                If Foglio2.Cells(a, 5) = City Then
                    GoTo Successivo
                End If
                a = a + 1
            Loop
            Foglio2.Cells(a, 5) = City
    Successivo:
             Foglio2.Cells(a, 6) = Foglio2.Cells(a, 6) + Totale
             Totale = 0        
        End If
    
    Next
    Set mioRange = Nothing
    End Sub

  13. #11

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Totali distinti

    Ciao Rubik

    Ti ringrazio tantissimo dell'aiuto; la macro funziona perfettamente e l'ho solo modificata un po' per meglio adattarla ai mie scopi.

    Ho provato ad inserire il codice in un commandbutton su una userform ma non funziona e va in debug dandomi "Errore definito dall'applicazione o dall'oggetto" su questa riga

    Codice: 
    Loop Until mioRange.Cells(i, 2) = "total"
    Cosa potrebbe essere?

    Poi volevo farti i più sinceri complimenti per la tua preparazione veramente eccezionale!

    Potresti dirmi qual è stato il tuo percorso didattico? Da quali fonti (libri, internet o altro) derivano le tue conoscenze?

    Da appassionato vorrei saperne sempre di più

    Alfredo

  14. #12

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2809
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: Totali distinti

    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Ciao Rubik

    Ti ringrazio tantissimo dell'aiuto; la macro funziona perfettamente e l'ho solo modificata un po' per meglio adattarla ai mie scopi.

    Ho provato ad inserire il codice in un commandbutton su una userform ma non funziona e va in debug dandomi "Errore definito dall'applicazione o dall'oggetto" su questa riga

    Codice: 
    Loop Until mioRange.Cells(i, 2) = "total"
    Cosa potrebbe essere?
    Bisognerebbe provare col file originale, ma sono molto importanti le dichiarazioni in testa al Modulo in particolare Option Compare Text in quanto ho notato che la stringa "total" è scritta in varie maniere (TOTAL, Total ecc.)

    I tuoi complimenti mi lusingano:246:

  15. #13

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Totali distinti

    Centrato in pieno Rubik era proprio l'Option Compare Text che mancava :98:

    Grazie ancora.

    Alfredo

  16. #14

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2809
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: Totali distinti

    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Centrato in pieno Rubik era proprio l'Option Compare Text che mancava :98:

    Grazie ancora.

    Alfredo
    Libera la mail, è piena e non riesco a contattarti.

  17. #15

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6800
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: Totali distinti

    La libero subito

    Purtroppo dato il numero ridicolmente limitato (3) dei messaggi privati che ho a disposizione devo svuotare la casella di posta.

    Alfredo

Discussioni Simili

  1. concatenare 2 macro di 2 file distinti
    Di nemoclipru nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 15/03/17, 15:41
  2. [Risolto] Aprire maschera in base ai totali
    Di fauly nel forum Domande su Microsoft Access
    Risposte: 24
    Ultimo Messaggio: 15/03/17, 10:55
  3. Totali mi piace
    Di Baloon_50 nel forum Problemi, suggerimenti e Novità del forum
    Risposte: 3
    Ultimo Messaggio: 15/08/16, 00:56
  4. pivot - totali complessivi
    Di Andre81 nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 24/06/16, 15:30
  5. Ricerca dati distinti confrontando due record in due fogli excel
    Di AndreaGiulia nel forum Domande su Excel in generale
    Risposte: 27
    Ultimo Messaggio: 16/12/15, 23:32

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •