Errore nella macro: "Errore di run-time '1004'. Errore nel metodo Pste per la classe Worksheet"

Question

Ciao a tutti.

Sto lavorando su un progetto con una macro...

Purtroppo non riesco a risolvere l'errore in oggetto.

La macro è la seguente (in grassetto la riga dove mi segnala l'errore). Potreste aiutarmi? Grazie mille a ciascuno!

Sub Aggregato()

'

' Aggregato Macro

' Macro registrata il 01/02/2013 da ricciar1

'

'

    Sheets("CARD").Select

    ChDir "E:\Cld Card A0U e A0K\A0U 6R\2013\Salvadanaio A0U\06 Giugno"

    Workbooks.Open Filename:= _

        "E:\Cld Card A0U e A0K\A0U 6R\2013\Salvadanaio A0U\06 Giugno\Prima decade (A0U 6R).xls"

    Sheets("Riepilogo").Select

    Range("I60:J60").Select

    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

    Selection.Copy

    ActiveWindow.WindowState = xlNormal

    Windows("Prima decade (Zona Napoli).xls").Activate

    ActiveWindow.WindowState = xlMaximized

   Range("A1").Select

    ActiveSheet.Paste

    ActiveWindow.WindowState = xlNormal

    Windows("Prima decade (A0U 6R).xls").Activate

    ActiveWindow.WindowState = xlMaximized

    Application.CutCopyMode = False

    Application.DisplayAlerts = False

    ActiveWindow.Close

    Sheets("CARD N-3").Select

    ChDir "E:\Cld Card A0U e A0K\A0K 1N\2013\Salvadanaio A0K\06 Giugno"

    Workbooks.Open Filename:= _

        "E:\Cld Card A0U e A0K\A0K 1N\2013\Salvadanaio A0K\06 Giugno\Prima decade (A0K 1N).xls"

    Sheets("Riepilogo").Select

    Range("I60:J60").Select

    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

    Selection.Copy

    ActiveWindow.WindowState = xlNormal

    Windows("Prima decade (Zona Napoli).xls").Activate

    Range("A1").Select

    ActiveSheet.Paste

    ActiveWindow.WindowState = xlMaximized

    Sheets("RCA").Select

    ActiveWindow.WindowState = xlNormal

    Windows("Prima decade (A0K 1N).xls").Activate

    Application.CutCopyMode = False

    Application.DisplayAlerts = False

    ActiveWindow.Close

    ActiveWindow.WindowState = xlMaximized

    ChDir "E:\Cld RCA A8D e A9D\A8D 3B\2013\Salvadanaio 2013\06 Giugno"

    Workbooks.Open Filename:= _

        "E:\Cld RCA A8D e A9D\A8D 3B\2013\Salvadanaio 2013\06 Giugno\Prima decade (A8D 3B).xls"

    Sheets("Riepilogo").Select

    Range("I60:J60").Select

    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

    Selection.Copy

    ActiveWindow.WindowState = xlNormal

    Windows("Prima decade (Zona Napoli).xls").Activate

    Range("A1").Select

    ActiveSheet.Paste

    Windows("Prima decade (A8D 3B).xls").Activate

    Application.CutCopyMode = False

    Application.DisplayAlerts = False

    ActiveWindow.Close

    Sheets("RCA N-3").Select

    ChDir _

        "E:\Cld RCA A8D e A9D\A9D 7N\2013\A9D Salvadanaio RCA 2013\06 Giugno"

    Workbooks.Open Filename:= _

        "E:\Cld RCA A8D e A9D\A9D 7N\2013\A9D Salvadanaio RCA 2013\06 Giugno\Prima decade (A9D 7N).xls"

    Sheets("Riepilogo").Select

    ActiveWindow.SmallScroll Down:=15

    Range("I60:J60").Select

    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

    Selection.Copy

    Windows("Prima decade (Zona Napoli).xls").Activate

    Range("A1").Select

ActiveSheet.Paste

    Windows("Prima decade (A9D 7N).xls").Activate

    Application.CutCopyMode = False

    Application.DisplayAlerts = False

    ActiveWindow.Close

    ActiveWindow.WindowState = xlMaximized

    Range("F53").Select

    Sheets("Riepilogo").Select

End Sub

Sub Cancella()

Answer 1

Solo per ringraziarvi per la disponibilità e per darvi un riscontro: lavorando un pò sul file che creava problemi (non quello della macro ma quello che veniva aperto dalla macro) ho visto che qualcuno aveva pasticciato un pò e, sistemandolo, è tutto tornato apposto ;-)

Grazie mille per l'aiuto!

Answer 2

Solo per ringraziarvi per la disponibilità e per darvi un riscontro: lavorando un pò sul file che creava problemi (non quello della macro ma quello che veniva aperto dalla macro) ho visto che qualcuno aveva pasticciato un pò e, sistemandolo, è tutto tornato apposto ;-)

Grazie mille per l'aiuto!

Grazie a te per la segnalazione.

Ciao e alla prossima.

Answer 3

ActiveSheet.Paste

Senza entrare nel merito della macro, sostituisci con:

Range("A1").PasteSpecial

 

grazie per la veloce risposta. Ho provato ma purtroppo continua l'errore... :-( che fare?"

Sinceramente non capisco cosa dovrebbe fare il codice. Me lo spieghi a parole?

Grazie.

Answer 4

Ciao a tutti.

Sto lavorando su un progetto con una macro...

Purtroppo non riesco a risolvere l'errore in oggetto.

La macro è la seguente (in grassetto la riga dove mi segnala l'errore). Potreste aiutarmi? Grazie mille a ciascuno!

ActiveSheet.Paste

Senza entrare nel merito della macro, sostituisci con:

Range("A1").PasteSpecial

 

grazie per la veloce risposta. Ho provato ma purtroppo continua l'errore... :-( che fare?"

Answer 5

Ciao a tutti.

Sto lavorando su un progetto con una macro...

Purtroppo non riesco a risolvere l'errore in oggetto.

La macro è la seguente (in grassetto la riga dove mi segnala l'errore). Potreste aiutarmi? Grazie mille a ciascuno!

ActiveSheet.Paste

Senza entrare nel merito della macro, sostituisci con:

Range("A1").PasteSpecial