Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketMakro - Kopiering mellem filer

 Besvar Besvar
Forfatter
PI Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 07.Mar.2011
Status: Offline
Point: 294
Direkte link til dette indlæg Emne: Makro - Kopiering mellem filer
    Sendt: 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
Til top



Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg Sendt: 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
Til top
PI Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 07.Mar.2011
Status: Offline
Point: 294
Direkte link til dette indlæg Sendt: 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
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg Sendt: 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
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk