Raggruppare dati uguali



  • Raggruppare dati uguali
    di DPG70 (utente non iscritto) data: 09/11/2014 11:49:18

    Ho costruito un DB di registrazioni giornaliere, nella colonna "B" registro la data e in "G" il tipo di risorsa (Manodopera; Mezzi; Materiali; ecc.),
    seguono i campi di registrazione per le quantità, prezzo unitario e valore totale.
    Chiedo cortesemente al forum se esiste un metodo Vba o Excel per raggruppare le varie righe di risorse dei materiali in una, sommando solo i valori totali.
    Premetto.. il DB è ordinato per data crescente e per risorsa, così giorno per giorno ho elencato a scendere prima tutta la risorsa di manodopera e poi per quella del materiale che essendo identificata a fianco come le altre da specifica,
    mi interessa visualizzare solo il totale giornaliero e non tutto l'elenco.

    Vedi sotto.

    DATA --------------- RISORSA ----- SPECIFICA ----- U.TA'-- Q.TA'-- PREZZO -- TOTALE
    01-01-14 ----------- Manodopera---- Operaio A ----- ore ---- 1 ------10--------- 10,00
    01-01-14 ----------- Materiale------- Ferro----------- kg.----- 1 ------ 1---------- 1,00
    01-01-14 ----------- Materiale------- Legno---------- mc.----- 1 ------ 100------- 100,00
    01-01-14 ----------- Materiale------- Acciaio--------- kg.----- 2 ------ 5---------- 10,00
    01-02-14 ----------- Manodopera---- Operaio A ----- ore ----- 2 ------10--------- 20,00
    01-02-14 ----------- Materiale------- Ferro----------- kg.----- 2 ------ 1---------- 2,00
    01-02-14 ----------- Materiale------- Rame----------- kg.----- 1 ------ 2---------- 2,00

    Vorrei visualizzare il tutto come segue:

    DATA --------------- RISORSA ----- SPECIFICA ----- U.TA'-- Q.TA'-- PREZZO -- TOTALE
    01-01-14 ----------- Manodopera--- Operaio A ------ ore ---- 1 ------10--------- 10,00
    01-01-14 ----------- Materiale-------"Totale"--------------------------------------- 111,00
    01-02-14 ----------- Manodopera--- Operaio A ------ ore ---- 2 ------10--------- 20,00
    01-02-14------------ Materiale-------"Totale"--------------------------------------- 4,00


    Se possibile, GRAZIE



  • di lepat (utente non iscritto) data: 09/11/2014 12:31:47

    allega un file di esempio con più dati ed anche il risultato desiderato



  • di DPG70 (utente non iscritto) data: 11/11/2014 16:06:11

    Ora ho inserito il file per maggiore chiarezza.

    Per chiunque mi risponda in merito, un grazie


  • Informazione generale
    di DPG70 (utente non iscritto) data: 14/11/2014 22:51:28

    Aspettando un pellegrino che mi possa aiutare ho una domanda da porre sempre in merito all'argomento.

    E' possibile applicare i subtotali solo ad un singolo dato, o a più dati della stessa colonna??

    Specifico: Al variare del campo "Data", posso applicare i subtotali al campo "Quantità",
    solo ad un singolo dato di riferimento del campo "Risorsa"?




  • di Lucas87 data: 16/11/2014 14:55:56

    Ciao
    Prova con questo
    Porta alla soluzione 1
     
    For i = 5 To Range("a" & Rows.Count).End(xlUp).Row
        If Cells(i, 4) = "Materiale" And Cells(i + 1, 4) = "Materiale" Then
            Cells(i, 10) = Cells(i, 10) + Cells(i + 1, 10)
            Range(Cells(i, 5), Cells(i, 9)).ClearContents
            Cells(i, 7) = "tot."
            Rows(i + 1).Delete
            i = i - 1
        End If
    Next