Excel vba 2010 - Risultati diversi tra modalità normale e debug

Question

Ciao a tutti,

ho un codice vba che copia dati da un excel ad un altro, crea il range di input e quello di output, la cosa strana è che se gira in modalità debug mi copia tutti i record se non gira in debug no  . 

Il codice è il seguente :

        Sheets("Dati").Select

        Sheets("Dati").Activate

        spazio1 = "a" & primoVal & ":bb" & range2

        ActiveSheet.Range(spazio1).Select

        Selection.Copy

        Sheets("BW_APP").Select

        Sheets("BW_APP").Activate

        ActiveSheet.Range("A" & appLastRow).Select

        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

            :=False, Transpose:=False

        Application.CutCopyMode = False

Vi assicuro che i range li crea perfettamente, è un problema di copia negli appunti ? Come risolverlo ? Vorrei evitare di fare un ciclo per copiare ogni singola riga

Grazie

Answer 1

eccolo :

https://onedrive.live.com/?id=B18EC4A1F40E212E%21107&cid=B18EC4A1F40E212E

in sostanza , il discorso gira in questo modo , nel foglio dati vengono di volta in volta elaborati "n" record in base a dei periodi di date, ed accodati tutti in Bw_app.

In questo caso però tutti i dati sono già in BwApp, speriamo sia un test attendibile

Grazie.

Answer 2

Ciao IL CREM,

non riesco a caricarlo, sono praticamente 65000 righe di dati sensibili .

Sorry ...

Sostituisci tutti i dati con Topo Gigio.

Mi interesserebbe solo la configurazione dei dati!

Ripensandoci, visto che la mia versione è inglese, sostituisci Topo Gigio con Mickey Mouse. 

Where there's a will, there's a way! :-)

===

Regards,

Norman

Answer 3

Ciao,

non riesco a caricarlo, sono praticamente 65000 righe di dati sensibili .

Sorry ...

Answer 4

Ciao IL CREM,

     Sheets("Dati").Select

        Sheets("Dati").Activate

        spazio1 = "a" & primoVal & ":bb" & range2

        ActiveSheet.Range(spazio1).Select

        Selection.Copy

        Sheets("BW_APP").Select

        Sheets("BW_APP").Activate

        ActiveSheet.Range("A" & appLastRow).Select

        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

            :=False, Transpose:=False

        Application.CutCopyMode = False

Prova a caricare il file problematico, privo di dati sensibili.

Nel frattempo, credo che possa utilmente cancellare ognuna delle istruzioni di selezionare e attivare foglo i intervalli.

===

Regards,

Norman