riordino elenco con totali



  • riordino elenco con totali
    di rita (utente non iscritto) data: 15/07/2013 11:07:01

    ciao a tutti, un quesito che mi tira scema
    ho un elenco con due colonne
    colonna a con nomi in ordine alfabetico che si possono ripetere sempre in ordine crescente e di fianco nella colonna b delle quantita'
    come posso inserire dei totali per ogni gruppo di nomi nella colonna c e riordinare l'elenco in maniera decrescente (dal valore piu' alto a quello piu' basso" in base ai totali parziali
    qui sotto un esempio banale come e' l'elenco e come dovrebbe diventare
    grazie a chi mi da una mano
    ho provato con i subtotali ma non riesco poi a riordinarlo in maniera adeguata

    -------nomi---------quantita'
    .........A....................8
    .........B....................7
    .........B....................3
    .........B.....................2
    .........C.....................1
    .........D.....................5
    .........E.....................6
    .........E.....................12
    .........E......................10

    DOVREBBE DIVENTARE
    -------nomi---------quantita'...TOTALE
    .........E.....................6...........28
    .........E.....................12
    .........E......................10
    .........B....................7............12
    .........B....................3
    .........B.....................2
    .........A....................8............8
    .........D.....................5...........5
    .........C.....................1...........1

     


  • subtotali
    di canapone data: 15/07/2013 14:14:03

    Ciao,

    i subtotali aiutano, una volta ordinati i dati per colonna A, inserisci i subtotali.

    Fuori dal foglio comparirà in alto a sinistra un quadrettino con "2", cliccaci per chiudere i subtotali.
    Una volta chiusi ordina i subtotali in ordine decrescente. Riapri i dati cliccando sul quadrettino con il "3".

    Spero sia d'aiuto


  • subtotali esterni
    di canapone data: 15/07/2013 14:17:39

    Ciao,

    una volta riordinati i risultati, nel caso volessi i subtotali all'esterno, potresti levare i subtotali (dati-subtotali-rimuovi tutti) ed in C2 accanto al primo numero scrivere

    =SE(CONTA.SE($A$2:A2;A2)=1;SOMMA.SE($A$2:$A$1000;A2;$B$2:$B$1000);"")

    Saluti



  • di rita (utente non iscritto) data: 15/07/2013 16:29:04

    putroppo i subtotali non vanno bene
    escogitero' qualcosa d'altro
    grazie in ogni caso



  • di HarryBosch data: 16/07/2013 11:44:30

    Ciao Rita
    hai dato un'occhiata alle tabelle Pivot?
    Magari una di quelle poteva esserti sufficiente: raggruppi per lettera e per ognuna trovi il totale.

    Se invece ti serve proprio come l'esempio che hai fatto, allora puoi provare questa routine..
    In sostanza, agisce così:
    - determino la formula per trovare il totale relativo ad ogni lettera, e la inserisco in C2 (la prima riga dei dati)
    -copio la formula su tutta la colonna e la ordino in modo crescente
    - elimino il totale di questa colonna quando il gruppo comprende più di un elemento (tramite il ciclo For Each)

    Se ci sono dubbi fammi sapere...
     
    Sub subtotali()
        Dim ur As Integer, i As Integer
        Dim rng As Range, cella As Range
        
        Application.ScreenUpdating = False
            
        ur = Cells(Rows.Count, 1).End(xlUp).Row
        [c2] = "=SUMIF($A$2:$A$" & ur & ",A2,$B$2:$B$" & ur & ")"
        [c2].Copy Range("c3:c" & ur)
        
        Set rng = Range("a1:c" & ur)
        rng.Sort Key1:=Range("c1"), Order1:=xlDescending, _
                 Header:=xlGuess, OrderCustom:=1
    
        rng = rng.Value
        For i = 2 To ur
            If Cells(i, 1) = Cells(i - 1, 1) Then
                Cells(i, 3) = ""
            End If
        Next
    
        Application.ScreenUpdating = True
    End Sub
    



  • di rita (utente non iscritto) data: 17/07/2013 12:53:54

    grazie a tutti per le risposte
    x harry - provero' la sub e ti faro' sapere



  • di RITA (utente non iscritto) data: 17/07/2013 14:06:40

    ............il somma se .......... perche' non ci sono arrivata
    geniale
    grazie