001. Riportare somma tramite VBA

Download PDF

Domanda:

Scopiazzando sul web sono riuscito a creare la seguente macro che
vorrei modificare:
Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim l As Long
l = 1
With Me
.Columns(1).ClearContents
.Cells(1, 1) = \”ELENCO GIOCATORI\”
.Cells(1, 2) = \”IMPORTO Assegnato\”
.Cells(1, 1).Name = \”Sommario\”
End With

For Each wSheet In Worksheets
If wSheet.Name <> Me.Name Then
l = l + 1
With wSheet
.Range(\”A1\”).Name = \”Start\” & wSheet.Index
.Hyperlinks.Add Anchor:=.Range(\”A1\”), Address:=\”\”, SubAddress:= _
\”Sommario\”, TextToDisplay:=\”Torna al Sommario\”

End With
Me.Hyperlinks.Add Anchor:=Me.Cells(l, 1), Address:=\”\”, _
SubAddress:=\”Start\” & wSheet.Index, TextToDisplay:=wSheet.Name
End If
Next wSheet
End Sub

questa crea un sommario automatico dei fogli di lavoro
presenti in una cartella excel.
Mi occorrerebbe inserire nella colonna B il totale del foglio di
lavoro relativo.
Potreste aiutarmi cortesemente?
vi ringrazio anticipatamente ….

——-

Risposta:

negli sheet 2,3,4 ho inserito in posizioni diverse a titolo didattico, una colonna dove puoi inserire gli importi che verranno sommati e mostrati nello sheet ‘Sommario’. Ho parametrizzato infatti il codice per permetterti di collocare la colonna dove prefierisci. La macro viene lanciata automaticamente al verificarsi dell’evento Workbook_Open e può essere eseguita anche premendo il bottone ‘Aggiorna’.

In allegato trovi il file con i commenti inseriti direttamente nel modulo VBA.

Importo Assegnato

Riccardo Vincenti

The following two tabs change content below.