Hum...
Io partendo da tuo file, con quella macro ho ottenuto questo:
- Codice: Seleziona tutto
DH DI DJ DK DL DM DN DO DP DQ
1 2 7 3 0 2 1 8 8 1
0 3 2 5 15 4 4 9 9 19
0 22 0 6 6 13 4 15 15 0
0 32 6 7 2 15 4 16 16 9
4 34 3 8 3 17 4 19 19 7
2 35 0 20 5 18 8 32 32 0
3 41 1 25 2 21 9 37 37 0
2 42 3 30 5 23 2 38 38 5
7 43 1 35 0 27 7 39 39 3
2 44 1 36 1 28 15 41 41 2
1 45 1 42 0 32 1 54 54 2
4 47 0 47 0 33 2 55 55 20
2 48 7 50 3 37 2 57 57 2
10 49 6 58 4 51 3 63 63 1
7 54 4 61 1 59 3 67 67 1
0 57 0 63 9 68 10 72 72 2
3 65 2 65 0 76 2 77 77 1
8 70 5 67 5 78 10 81 81 0
5 72 0 77 3 81 4 82 82 3
8 80 8 84 8 86 3 90 90 6
La colonna DO e' quella che gia' conteneva i dati dell' ultima estrazione con accanto i ritardi; la colonna DP ri-riporta (per effetto della macro) le estrazioni e accanto vengono "calcolati" i ritardi; che mi sembra quanto richiesto.
Presumo a questo punto che su 2007 vada in tilt l' istruzione "
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True", per cui ti chiedo di registrare una macro mentre:
-copi gli estratti da Tot_2009
-vai su Ritardo, selezioni ad esempio DS1
-fai Incolla-speciale /Valori, con spuntata l' opzione Trasponi
Poi pubblichi il codice ottenuto.
Non ho capito se la macro copia i dati estratti e se SI dove li copia.
Rileggendo il tuo penultimo messaggio, mi rendo conto di aver ignorato totalmente la parte relativa alle righe 24:44; ma anche ora che la leggo e la rileggo non capisco la domanda, che probabilmente era gia' stata chiarita in una discussione precedente che poi avevo smesso di seguire. Si tratta per caso di copiare le formule presenti ad esempio in DN24:DN44 e incollarle 2 colonne piu' a destra?
Inoltre la macro posiziona i nuovi estratti sopra i vecchi ritardi (vedi l' esempio sopra), se le formule sottostanti sono elaborazione dei ritardi allora mi viene il dubbio che i ritardi (sono le colonne in rosso?) probabilmente vanno mantenuti; ma questo si risolve modificando questa
Cells(1, Columns.Count).End(xlToLeft).Select in questa:
Cells(1, Columns.Count).End(xlToLeft).Offset(0,1).SelectAttendo il codice della macro registrata e le precisazioni relativamente ai dubbi espressi.
Ciao.
Registrazione
