[excel] copiare dati ogni x campi

[[_Kilckk_]]

devo fare una cosa un pò insolita... mi trovo con un foglio excel che non devo copiare dati come A1,A2,A3,A4,A5 ma devo prendere i dati ogni 16 campi cioè A1, A17,A34,A51,ecc.... fino alla fine del documento e li devo riportare in un altro foglio in modo ordinato in A1,A2,A3,A4,A5,ecc... come potrei fare?

Grazie.

[borgodiavalon]

prova a guardare questo codice:

Dim x As Integer, y As Integer
    x = 1
    y = 1
RITORNA:
    Sheets("Foglio1").Select 'seleziono il foglio
    Range("A" & x).Select 'seleziono la cella
    
    'verifico se la cella ha valori
    If Range("A" & x) = "" Then 'se è vuota messaggio di fine
        MsgBox "FATTO"
    Else 'se è piena
        Selection.Copy 'copio il valore della cella
        Sheets("Foglio2").Select 'cambio foglio
        Range("A" & y).Select 'mi posiziono sulla cella
        ActiveSheet.Paste 'incollo
        x = x + 16 'aumento il valore della variabile che seleziona la cella da copiare
        y = y + 1 'aumento il valore della variabiale della cella in cui incollare
        GoTo RITORNA
    End If

lo copi in un modulo di vba di excel e lo lanci, lui copia i dati e li incolla su un altro foglio, dovrai logicamente adattare i nomi dei fogli ed il range delle celle.

[[_Kilckk_]]

grazie 1000 funziona alla grande... mi hai fatto risparmiare di copiare a mano 752 dati.

Grazie.

[borgodiavalon]

alla prossima allora.