Gemme et sheet fra en workbook som en kopi

Du kan evt. bruge "Indsæt speciel > Værdier" ......
Så overskrives alle formler og links med værdier og arket vil ikke fylde nær så meget.

Sub Makro1()

    Sheets("Ark1").Select
    Sheets("Ark1").Copy
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Din sti\kopiMappe2.xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    ActiveWindow.Close
End Sub

ret selv arknavnet og stien hvor den skal gemme

makroen skal ligge i et nodul

nodul = modul

Husk også filnavnet skal rettes til

Får en fejl 1004 ved Cells.Select

er dit ark beskyttet

eller celler

Nej det er det ikke.

Hvilke udgave af excel bruger du

Version 2002 = XP

smid lige din rettede kode herind så jeg kan se den

jeg bruger 2000, men i xp burde det også virke.

1004 koden, er det ikke hvis stien, hvor den skal gemme ikke eksisterer.

jeg skal til møde, kommer senere

Jeg har prøvet at rette 'Cells.Select' til

  Sheets("TAXAmeter-afregning").Range("A1:W50").Select

Så ser det ud til at virke

Det eneste jeg 'mangler' nu er at de 2 makroknapper jeg har på arket ikke skal gemmes med. Kan man skjule dem på kopien inden man gemmer ?

kan du ikke sætte dette ind inden
ActiveWorkbook.SaveAs Filename:=

ActiveSheet.Shapes("CommandButton1").Select
    ActiveSheet.Shapes.Range(Array("CommandButton1", "CommandButton2")).Select
    Selection.Delete


og rette navnene på knapperne til dine navne

hov, den første linie skal ikke med

Så fik jeg det til at fungere som jeg tror jeg gerne vil.

Dog mangler jeg lige det lille problem at hvis filen eksisterer i forvejen, så kommer Excel og spørger om man vil overskrive :-)
Normalt vil det ikke være et problem da mit bilagsnummer skifter for hver udskrift og det er den jeg bruger som filnavn.

Jeg synes bare ikke jeg kan finde en parameter der forcer overwrite.

Sættes ind lige efter
Sub Makro1()
Application.DisplayAlerts = False

sættes ind lige inden End Sub

Application.DisplayAlerts = True

Det burde man jo have husket fra Access ( DoCmd.SetWarnings )

Kan se, at det endte med en "Indsæt speciel/værdier"-løsning.
Det var vel egentlig det, jeg lagde ud med at foreslå, eller ....?

Det kan du vel egentlig have ret i, men som hardcoreprogrammør :-) overser jeg nogen gange ting hvor der ikke er skrevet noget kode. Jeg ved ikke om du kender fornemmelsen?

Jeg skal se om ikke jeg kan huske dig, så du ikke bliver snydt en anden gang.

No bad feelings ....

Hvis du havde skrevet, at det var en VBA-opgave kunne vi jo ha' gået til fadet med det samme .... ;-)

Jamen det er jeg også overbevist om - det plejer du nok at kunne :-)

Men kan du så fortælle mig hvordan jeg gør så der ingen VBA kode gemmes med i kopien ? Så skal jeg hurtigt få oprettet et pointgivende spørgsmål til dig.

Baggrunden for det hele er at jeg har et regneark til indtastning af lønninger. Disse får et fortløbende bilagsnummer ved udskrift og jeg ønsker så at gemme de indtastede data med udregninger til senere brug. Men VBA koden på de trykknapper jeg har på arket gemmes også, selvom jeg har fået slettet knapperne (sådan gør man åbenbart i M$' verden)

Du kan evt. i Workbook_close hændelsen ligge følgende kode, som sletter et helt modul:

Sub DeleteVBComponent(ByVal wb As Workbook, ByVal CompName As String)
' deletes the vbcomponent named CompName from wb
    Application.DisplayAlerts = False
    On Error Resume Next ' ignores any errors
    wb.VBProject.VBComponents.Remove wb.VBProject.VBComponents(CompName) ' delete the component
    On Error GoTo 0
    Application.DisplayAlerts = True
End Sub


Eks. DeleteVBComponent ActiveWorkbook, "TestModule"

Jo - men jeg skal vel sådan set slette det i det øjeblik lige inden jeg gemmer den nye kopi.  Det kan jeg ikke lige få til at funke med det kode.

Hvis du skulle have interesse i at se arket, så smid en mailadresse.