problema con subtotale in vba

Hai un problema con Excel?

Nuova discussione

problema con subtotale in vba
di Elios (utente non iscritto) data: 11/12/2013 10:54:27
In un foglio di lavoro ho riportato dei dati e una colonna di totali per ogni riga. Vorrei creare dei subtotali ad ogni cambiamento di gruppo. Mi sono perso. Potete aiutarmi
Grazie Elios

colonna = 1

j = 1
Do Until Sheets("Listino").Cells(j, colonna) = Empty

    Sheets("Listino").Select
    Cells(j, colonna).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.Offset(0, 13)).Select
    Selection.Copy
    Sheets("Bilancio").Select
    Range("A1").Select
    Selection.End(xlDown).Offset(1, 0).Select
    ActiveSheet.Paste
colonna = colonna + 16

Loop

x = 4

Do Until Sheets("Bilancio").Cells(x, 15) = Empty

    If Cells(x, 15) = "TOT" Then
    Range(Selection.Offset(0, 1)).Select
    Range(Selection, Selection.Offset(1, -1)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FormulaR1C1 = "=SUM"
    x = x + 1
    
Loop

di Grograman (utente non iscritto) data: 11/12/2013 11:12:30
Sarebbe utile un file di esempio con il codice completo!
di Elios (utente non iscritto) data: 11/12/2013 12:19:07
Ecco il file
di Elios (utente non iscritto) data: 11/12/2013 12:21:35
Ecco il file
di Grograman (utente non iscritto) data: 11/12/2013 12:49:36
Tramite formula non va bene?

Da mettere in N3 così come è, poi la copi sulle altre categorie:
=SE.ERRORE(SOMMA(SCARTO(O5;0;0;CONFRONTA("TOT";O5:$O$500;0)-2));SOMMA(SCARTO(O5;0;0;CONTA.VALORI(O5:O500))))
di Elios (utente non iscritto) data: 11/12/2013 17:32:41
Grazie per l'aiuto, è fantastico. Hai qlc consiglio per il codice che ho scritto?
di Grograman data: 12/12/2013 08:54:57
cit: "Hai qlc consiglio per il codice che ho scritto?"

Provarlo

Mancano le variabili, un end if, un do, insomma è totalmente sbagliato.
di Elios (utente non iscritto) data: 12/12/2013 17:57:35
Grazie, era proprio quello che desideravo sentire. Sto provando a fare qlc in vba, come hai visto non sono esperto.

Vuoi Approfondire?