ho trovato questo "pezzo" di macro e sono riuscito a capire qualcosina...
ma dovendo aggiungere alle somme anche Q2 e Q3 e la matrice U4:W6, mi prende lo sconforto...
- Codice: Seleziona tutto
'If Dir(Perc & FXLS) = "" Then GoTo AltraDir
Workbooks.Open Filename:=Perc & FXLS
'URD = Worksheets("SCHEDA PROGRAMMAZIONE").Range("B" & Rows.Count).End(xlUp).Row
For CP = 15 To 45
If CP = 20 Or CP = 23 Or CP = 25 Or CP = 29 Or CP = 33 Or CP = 38 Or CP = 42 Or CP = 46 Then GoTo NuovaRiga
'URR = Workbooks("Prospetto riepilogativo 2008.xls").Worksheets("SCHEDA PROGRAMMAZIONE").Range("A" & Rows.Count).End(xlUp).Row + 1
Workbooks("Scheda_riepilogativa_" & AnnoA & ".xls").Worksheets("SCHEDA PROGRAMMAZIONE").Range("H" & CP).Value = Workbooks("Scheda_riepilogativa_" & AnnoA & ".xls").Worksheets("SCHEDA PROGRAMMAZIONE").Range("H" & CP).Value + Workbooks(FXLS).Worksheets("SCHEDA PROGRAMMAZIONE").Range("H" & CP).Value
Workbooks("Scheda_riepilogativa_" & AnnoA & ".xls").Worksheets("SCHEDA PROGRAMMAZIONE").Range("J" & CP).Value = Workbooks("Scheda_riepilogativa_" & AnnoA & ".xls").Worksheets("SCHEDA PROGRAMMAZIONE").Range("J" & CP).Value + Workbooks(FXLS).Worksheets("SCHEDA PROGRAMMAZIONE").Range("J" & CP).Value
Workbooks("Scheda_riepilogativa_" & AnnoA & ".xls").Worksheets("SCHEDA PROGRAMMAZIONE").Range("L" & CP).Value = Workbooks("Scheda_riepilogativa_" & AnnoA & ".xls").Worksheets("SCHEDA PROGRAMMAZIONE").Range("L" & CP).Value + Workbooks(FXLS).Worksheets("SCHEDA PROGRAMMAZIONE").Range("L" & CP).Value
Workbooks("Scheda_riepilogativa_" & AnnoA & ".xls").Worksheets("SCHEDA PROGRAMMAZIONE").Range("O" & CP).Value = Workbooks("Scheda_riepilogativa_" & AnnoA & ".xls").Worksheets("SCHEDA PROGRAMMAZIONE").Range("O" & CP).Value + Workbooks(FXLS).Worksheets("SCHEDA PROGRAMMAZIONE").Range("O" & CP).Value
Workbooks("Scheda_riepilogativa_" & AnnoA & ".xls").Worksheets("SCHEDA PROGRAMMAZIONE").Range("T" & CP).Value = Workbooks("Scheda_riepilogativa_" & AnnoA & ".xls").Worksheets("SCHEDA PROGRAMMAZIONE").Range("T" & CP).Value + Workbooks(FXLS).Worksheets("SCHEDA PROGRAMMAZIONE").Range("T" & CP).Value
Workbooks("Scheda_riepilogativa_" & AnnoA & ".xls").Worksheets("SCHEDA PROGRAMMAZIONE").Range("U" & CP).Value = Workbooks("Scheda_riepilogativa_" & AnnoA & ".xls").Worksheets("SCHEDA PROGRAMMAZIONE").Range("U" & CP).Value + Workbooks(FXLS).Worksheets("SCHEDA PROGRAMMAZIONE").Range("U" & CP).Value
Workbooks("Scheda_riepilogativa_" & AnnoA & ".xls").Worksheets("SCHEDA PROGRAMMAZIONE").Range("V" & CP).Value = Workbooks("Scheda_riepilogativa_" & AnnoA & ".xls").Worksheets("SCHEDA PROGRAMMAZIONE").Range("V" & CP).Value + Workbooks(FXLS).Worksheets("SCHEDA PROGRAMMAZIONE").Range("V" & CP).Value
NuovaRiga:
Next CP
Workbooks(FXLS).Close savechanges:=False
e si potrebbe anche sistemare il foglio elencoarchivio come ultimo dei fogli e non per primo?
thx
ps: non mandarmi al diavolo sul più bello...