You are here:Home-Domande su Excel VBA e MACRO-[RISOLTO] Incollare dati dopo intestazione-Rispondi a: [RISOLTO] Incollare dati dopo intestazione
Rispondi a: [RISOLTO] Incollare dati dopo intestazione2018-10-21T08:21:08+02:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Incollare dati dopo intestazione Rispondi a: [RISOLTO] Incollare dati dopo intestazione

BySalvBySalv
Amministratore del forum
    Post totali: 697

    Ciao Gene, il problema è che la cella “A2” del foglio “DBFormazione” è vuota ecco il motivo che cancella le intestazioni.

    Infatti quando questa riga di codice

    r = sh1.Cells(Rows.Count, 1).End(xlUp).Row

    vede l’ultima cella occupata risulta 1 che sono le intestazioni, quindi quando cancella l’area dei dati per la nuova scrittura con questa

    sh1.Range("A2:I" & r).ClearContents

    la variabile “r” essendo uguale ad 1 il range da cancellare diventa “Range(“A2:I1”) cosi cancella le intestazioni, non avevo calcolato che potevano non esserci dati da cancellare per scrivere i nuovi, o modificato il codice in:

    If sh1.Cells(2, 1) <> "" Then sh1.Range("A2:I" & r).ClearContents

    cosi se non ci sono dati in “A2” non cancella niente.

    ti passo il file, il link

    https://mega.nz/#!VENjBYjS!8r0_Rf44gfMPkUKOdamXoyGhbDJEX0joya3iVaBmMuQ

    Ciao By Sal :bye:

    Ciao By Sal (8-)
    se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie