Moderatori: Anthony47, Flash30005
=SOMMA.SE(Foglio1!$B$2:$B$4;Riepilogo!$B2;Foglio1!$J$2:$J$4)
Sub Riepilogo()
Sheets("Riepilogo").Range("H:IV").Delete
Sheets("Riepilogo").Range("B2:B65000").ClearContents
Worksheets("Riepilogo").Range("Z1").Value = "Totale Fogli"
Col = 7
For FF = 1 To Worksheets.Count
If Sheets(FF).Name <> "Riepilogo" Then
Col = Col + 1
Sheets("Riepilogo").Cells(1, Col).Value = "Q.tà " & Sheets(FF).Name
URF = Worksheets(FF).Range("B" & Rows.Count).End(xlUp).Row
For RRF = 2 To URF
CodP = Sheets(FF).Range("B" & RRF).Value
TR = 0
URR = Worksheets("Riepilogo").Range("B" & Rows.Count).End(xlUp).Row + 1
For RRR = 2 To URR
If Worksheets("Riepilogo").Range("B" & RRR).Value = CodP Then
Sheets("Riepilogo").Cells(RRR, Col).Value = Sheets("Riepilogo").Cells(RRR, Col).Value + Worksheets(FF).Range("J" & RRF).Value
Sheets("Riepilogo").Cells(RRR, 26).Value = Sheets("Riepilogo").Cells(RRR, 26).Value + Worksheets(FF).Range("J" & RRF).Value
TR = 1
GoTo SaltaRR
End If
Next RRR
If TR = 0 Then
Worksheets("Riepilogo").Range("B" & URR).Value = CodP
Sheets("Riepilogo").Cells(URR, Col).Value = Worksheets(FF).Range("J" & RRF).Value
Sheets("Riepilogo").Cells(URR, 26).Value = Sheets("Riepilogo").Cells(URR, 26).Value + Worksheets(FF).Range("J" & RRF).Value
End If
SaltaRR:
Next RRF
End If
Next FF
End Sub
Torna a Applicazioni Office Windows
gestire e togliere oggetti in colonna con condizione Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 2 |
Access 2003: creare maschera per inserire dati su più tabell Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 1 |
Creare ricevuta generica da foglio excel Autore: tommy95 |
Forum: Applicazioni Office Windows Risposte: 1 |
Creare un elenco numerato di titoli in excel come in word Autore: wallace&gromit |
Forum: Applicazioni Office Windows Risposte: 8 |
Visitano il forum: Nessuno e 89 ospiti