Somma automatica su colonne e record variabili

Stato
Chiusa ad ulteriori risposte.

ibernet

Utente junior
31 Maggio 2019
62
18
O365
3
Se avete un foglio dove avete n tabelle uguali nelle quali dovete applicare delle somme a n colonne di ogni tabella questo codice è ideale.

Ecco lo script che automaticamente vi riporta le somme:
Leggete bene le istruzioni contenute nel codice prima di utilizzarlo

Visual Basic:
Sub Somma_colonne()
'Settare i DATI DI CONFIGURAZIONE MANUALE
'*****************************************************************************************
 
'Riferimenti formule e celle
Dim ColP As Integer
Dim RicercaTesto As String
'Riferimento Ciclo Inizio/Fine
Dim Rec As Integer
Dim RecArrivo As Integer
Dim Col As Integer
Dim ColArrivo As Integer
'Variabile Autocalcolata
Dim RigaFormula As Integer
 
'>>>>>>>>>>> DATI DI CONFIGURAZIONE MANUALE <<<<<<<<<<
ColP = 6                            'Valorizzo la colonna dove cercare il record nel quale bisognerà fare la somma
RicercaTesto = "Somma"              'Quando trova questo testo applica le somme a quel livello di record
Rec = 1                             'Record di Inizio Ciclo 1
RecArrivo = 100                     'Record di Fine Ciclo 1
Col = 8                             'Colonna di Inizio Ciclo 2
ColArrivo = 16                      'Colonna di Fine Ciclo 2
'*****************************************************
'  IL CODICE DA QUI IN GIU' NON DEVE ESSERE TOCCATO
'*****************************************************
 
RigaFormula = Rec + 1               'VALORE FISSO Record di partenza della formula
Range("A1").Select
 
For e = Rec To RecArrivo
 
  If ActiveCell.Value = RicercaTesto Then
    For i = Col To ColArrivo
        'Seleziono la formula dal file di partena
        Cells(e - 1, i).Select
        'Copio la formula nel file di arrivo
        Cells(e - 1, i).Formula = "=SUM(R[" & RigaFormula & "]C:R[" & -1 & "]C)"
    Next i
        RigaFormula = 1
  Else
    Cells(e, ColP).Select
    RigaFormula = RigaFormula - 1
  End If
 
Next e
 
Range("A1").Select
 
End Sub
 
  • Like
Reactions: ges
Stato
Chiusa ad ulteriori risposte.

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!