Condividi tramite

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

Anonimo
2017-11-02T13:26:13+00:00

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

Microsoft 365 e Office | Excel | Per la casa | Windows

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti Nessun commento

4 risposte

Ordina per: Più utili
  1. Anonimo
    2017-11-02T15:41:57+00:00

    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.

    La risposta è stata utile?

    0 commenti Nessun commento
  2. Anonimo
    2017-11-02T14:07:42+00:00

    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

    La risposta è stata utile?

    0 commenti Nessun commento
  3. Anonimo
    2017-11-02T13:56:15+00:00

    Ciao,

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

    Sorry ...

    La risposta è stata utile?

    0 commenti Nessun commento
  4. Anonimo
    2017-11-02T13:35:50+00:00

    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

    La risposta è stata utile?

    0 commenti Nessun commento