riepilogare dati su unico foglio

Hai un problema con Excel?

Nuova discussione

riepilogare dati su unico foglio
di Tacchino82 (utente non iscritto) data: 25/01/2017 00:18:01
Buonasera,

Avrei la necessità di copiare su un foglio "riepilogo" i dati di un'altro foglio "pippo" appartenenti alla stessa cartella di lavoro.
Sotto posto un esempio:
Con l'esempio, nella cella j23 del foglio "riepilogo" mi scrive quello che trova nella cella h41 del foglio "pippo".

Adesso per esigenze mi servirebbe che facesse la stessa operazione fino alla cella j500 incrementando di 1 il range j (quindi j24-j25-j26......) indicato da x e di 1 il range h (h42-h43-h44......) indicato da y, per sette volte dopo di che aumentare 5 e continuare fino a j500

j23
j24
j25
j26
j27
j28
j29
j34
j35
.........

Grazie
sub_Riepiloga() dim x as integer dim y as integer x = range("j23") y = range ("h41") sheets("riepilogo").x.value = sheets("pippo").y end sub
di patel data: 25/01/2017 09:02:49
allega un file di esempio con i dati ed il risultato desiderato commentato

di Luca73 data: 25/01/2017 09:08:33
Innanzitutto la tua spiegazione è molto confusa e difficile da capire
Vado ad intuizione.
tu vuoi prendere i Range (H42:H48) del foglio pippo (numero 7 volte step 1) e copiarne i valori nel foglio riepilogo al range (J24:J30)

Sub prova()
Dim Indice
sheets("riepilogo").Range("J24:J30").Formula = sheets("pippo").Range("h42:h48").Formula
For Indice = 31 to 500 step 5
    sheets("riepilogo").Range("J"& Indice).Formula = sheets("pippo").Range("h48").offset(Indice-30,0).Formula
Next indice
End Sub

Vuoi Approfondire?