Makro og VBA - Makro - Kopiering mellem filer

Makro - Kopiering mellem filer

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=551
Udskrevet den: 12.Dec.2024 kl. 21:05

Emne: Makro - Kopiering mellem filer

Besked fra: PI
Emne: Makro - Kopiering mellem filer
Posteringsdato: 04.Dec.2011 kl. 20:42

Hej Forum!

Jeg har forsøgt at implementere en makro (jf. nedenfor) som åbner arket i en excelfil (QBI-Master.xls'!INDGANGSNØGLE) og kopierer data fra dette og ned i den åbne excelfil (QBI-GERapport-Master.xls), hvor makroen er skrevet.

Den virkede til at begynde med, men melder nu forskellige former for errors. Er der et "makro-skarpt" forummedlem som kan hjælpe?

Sub OpdaterBroQBIMaster()
'
'
    Windows("QBI-Master.xls").Activate
    Sheets("INDGANGSNØGLE").Select
    Range("D57:D607").Select
    Selection.Copy
    Windows("QBI-GERapport-Master.xls").Activate
    Range("A4").Select
    ActiveSheet.Paste
    Windows("QBI-Master.xls").Activate
    Range("F57:F607").Select
    Selection.Copy
    Windows("QBI-GERapport-Master.xls").Activate
    Range("B4").Select
    ActiveSheet.Paste
    Windows("QBI-Master.xls").Activate
    Range("N57:O607").Select
    Selection.Copy
    Windows("QBI-GERapport-Master.xls").Activate
    Range("C4").Select
    ActiveSheet.Paste
    Range("A2").Select
    Windows("QBI-Master.xls").Activate
    Range("I1").Select
    Application.Run "'QBI-Master.xls'!TilbageTilVelkomst"
    ActiveWindow.Close
End Sub

-------------
Mvh. PI / Excel 2010

Svar:

Besked fra: Allan
Posteringsdato: 05.Dec.2011 kl. 11:17

Hej PI,

Jeg tror du skal undersøge om der er flettede celler i et af de områder du kopierer fra eller sætter ind i.

Hvilke fejl ser du når du kører makroen?

Prøv evt. om denne virker bedre.

Sub OpdaterBroQBIMaster()
    Windows("QBI-Master.xls").Activate
    Sheets("INDGANGSNØGLE").Select
    Range("D57:D607").Select
    Selection.Copy
    Windows("QBI-GERapport-Master.xls").Activate
    Range("A4").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Windows("QBI-Master.xls").Activate
    Range("F57:F607").Select
    Selection.Copy
    Windows("QBI-GERapport-Master.xls").Activate
    Range("B4").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Windows("QBI-Master.xls").Activate
    Range("N57:O607").Select
    Selection.Copy
    Windows("QBI-GERapport-Master.xls").Activate
    Range("C4").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A2").Select
    Workbooks("QBI-Master.xls").Close False
End Sub

Besked fra: PI
Posteringsdato: 05.Dec.2011 kl. 18:30

Hej Allan!

Jeg får stadig samme error: Run-time error '9': Subscript out of range.

-------------
Mvh. PI / Excel 2010

Besked fra: Allan
Posteringsdato: 05.Dec.2011 kl. 18:47

Hej igen,

Hvis jeg opretter 2 filer med navne som du foreskriver, får jeg ingen fejl.

Har du mulighed for at uploade dine ark? (Du kan fjerne/ændre evt. følsomme data.)

//Allan