VBA: Makro der gemmer ark uden eksisterende makro

denne kode gemmer en kopi af aktuel fil uden makroer (Ark1-3)

Sub Makro2()
    Sheets(Array("Ark1", "Ark2", "Ark3")).Select
    Sheets("Ark3").Activate
    Sheets(Array("Ark1", "Ark2", "Ark3")).Copy
    ActiveWorkbook.SaveAs Filename:="C:\MyFile.xls"
End Sub

Sub AlleArk()
    Sheets.Copy
    ActiveWorkbook.SaveAs Filename:="C:\MyFile.xls"
    'Workbooks("MyFile.xls").Close savechanges:=False
End Sub

Hmmm... 
Hvorfor er Workbooks plinget ud ?

Og det er vel muligt at implementere det i en allerede eksisterende makro ? :)

hvis du vil lukke kopien under afvikling af koden

det sku' jeg da mene

Min Save streng ser iøvrigt således ud

ThisWorkbook.SaveAs strSaveQF25

den bliver så bare gemt på en bestemt sti udfra en del parametre..
Men den gemmer stadig "kopien" med makro ..
Uden makro fylder den ca 50 kb, men med makro fylder filen over 100kb.

og det blir hurtigt til meget spildplads, da der gemmes 6 af dem i døgnet. :-/

Du kan enten sætte koden ind et passende sted i din kode eller
have den liggende som selvstændig sub, og så køre den inde
fra din kode med Call AlleArk

Bemærk at jeg bruger ActiveWorkbook.SaveAs Filename:="C:\MyFile.xls"
så gemmes den aktuelle kopi
Hvis jeg brugte ThisWorkbook.SaveAs Filename:="C:\MyFile.xls"
ville filen med makroer blive gemt

så det må vel blive til :

ActiveWorkbook.SaveAs strSaveQF25

som jeg ser det !

OK cool ... .  jeg tester lige engang :)

Hmm.. 

Selvom jeg bruger ActiveWorkbook, så gemmes makroen stadig i den nye fil

ok den med call er jeg ikke sikker på har lige testet
kan ikke huske hvordan man overfører variabelværdier til anden sub

Når jeg kører min eks. sub, så bliver kopien (den uden makroer)
aktiv formentlig lige efter linien 'Sheets.Copy'

kan du ikke paste den del af din kode, hvor mine linier indgår ?

Application.EnableEvents = False
    Application.DisplayAlerts = False
    'ThisWorkbook.SaveAs strSaveQF25
    ActiveWorkbook.SaveAs strSaveQF25
    Application.DisplayAlerts = True
    Application.EnableEvents = True

ahhh... smart..  jeg glemte Sheets.Copy

tror det skal være sådan

Application.EnableEvents = False
    Application.DisplayAlerts = False
    'ThisWorkbook.SaveAs strSaveQF25
    Sheets.Copy  '* 
    ActiveWorkbook.SaveAs strSaveQF25
    Application.DisplayAlerts = True
    Application.EnableEvents = True

Hmmm nu virker det..

Eneste problem jeg har nu er, at jeg har felter med grå baggrund. de blir nu rødlige ?

øhh ?

Jeg har et ark (en trykrapport til indrapportering af produktion i vores trykkeri)
Hvor hvert andet felt nedaf er med grå baggrund.. for at kunne skelne nemmere mellem dem .

i kopien bliver den baggrund rødlig ? :-s

prøver lige det her også (laver felter med grå)

Hmmm Nu begynder det at hænge sammen
Jeg kan se at baggrundsfarvepaletten ikke er den samme i kopien og originalen ..
i org. ligger en grå farve, mens der på samme plads i kopien ligger en sandfarve :S

jeg kan ikke umiddelbart se forskel på mine grå celler efter kørsel

Nej .. men tror det er fordi der er brugt "brugerdefinerede" farver. Så de ligger i paletten nederst... 
Ved du om der er en mulighed for at "overføre" paletten til kopien ?

er dine grå celler frembragt ved alm formatering i arket, eller
via makro ?

hmm ikke umiddelbart

det grå er lavet ved alm formatering...

kan ikke lige finde en løsning på dit formateringsproblem- desværre

Det må jeg selv lige hitte mig ud af så .

men smid lige et svar, du fik løst mit største problem :)

ok :-)