Excel Routine in una macro

[Statix]

Ciao a tutti,
volevo sapere quante routine si possono eseguire con una macro,
ne ho provato a metterne circa 160 è mi ha dato un errore di eccesso.
La routine in questione è questa,la devo eseguire circa 200 volte,naturalmente i dati di copia e incolla saranno diversi.
C' un altro modo per gestirle tutte insieme.

Codice: Seleziona tutto

Sheets("Lottoplus").Select
    Range("F4:J4500").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Ambata").Select
    Range("I3").Select
    ActiveSheet.Paste
    Range("B3:G92").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Ritardi").Select
    Range("I7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

[Anthony47]

volevo sapere quante routine si possono eseguire con una macro, ne ho provato a metterne circa 160 è mi ha dato un errore di eccesso.

Intendi dire che l' hai eseguita 160 volte e poi succede qualcosa, vero?

Credo che dipenda dalla memoria che si occupa sempre di piu' man mano che esegui le copie; purtroppo Application.CutCopyMode = False non cancella i dati dalla clipboard, e ti confesso che ho sempre trovato difficile ripulirla.
Hai Excel2007, vero, con quale Sistema Operativo?

Ciao.

[Statix]

Ciao Anthony
si, ho Excel 2007 e Windows Xp Prof.
Pc Pentium D830(2*3000Mhz) con 1Gb di ram

[Statix]

Ho riprovato la macro,dopo aver eseguito 62 routine ,si ferma è mi da questo errore

Codice: Seleziona tutto

errore 1004
Metodo Range dell'oggetto Global non riuscito.

le routine sono tutte uguali tranne le celle di copia e incolla di destinazione.

[Anthony47]

Humm... questo non c' entra con le risorse del sistema.
Su quale istruzione va in errore? poi ti dovro chiedere altre cose.

Ciao.

[Statix]

In effetti c'era un errore,adesso il massimo di routine che mi fa la macro sono circa 100.

[Anthony47]

E dopo? che messaggio ti da'?

Ciao.

[Anthony47]

Per quanto riguarda il tentativo di ripulire la clipboard, prova a usare queste istruzioni:
Definizioni, in testa al modulo

Codice: Seleziona tutto

Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function CloseClipboard Lib "user32" () As Long
Public Declare Function EmptyClipboard Lib "user32" () As Long
Public Declare Function ClearClipboard Lib "user32" () As Long

Poi questa sub:

Codice: Seleziona tutto

Sub ClearClipboard()
OpenClipboard 0&
EmptyClipboard
CloseClipboard
End Sub

Poi nel tuo codice inserirai una Call ClearClipb
Pero' non sono certo del risultato; sono chiamate di sistema e in quell' area sono poco ferrato, e quando le ho usate non sempre l' esito era cosi' evidente.
Sono prese dal sito di Chip Pearson, http://www.cpearson.com/excel/clipboard.htm


Ciao

[Statix]

Ciao Anthony
ho provato ma non va mi dice
Errore di compilazione
Routine troppo Grande
quindi non fa nessun effetto.
Credo che dovro fare 2 macro.