You are here:---Rispondi a: [RISOLTO] Incollare dati dopo intestazione
Rispondi a: [RISOLTO] Incollare dati dopo intestazione 2018-10-21T08:21:08+00: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: 318

    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:

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi