Gem kopi af regneark

Prøv med

Sub KopierogGem()
    Navn = ActiveWorkbook.Name
    Sheets("Ark1").UsedRange.Select
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveWorkbook.SaveAs CStr(Date) & " " & Navn
    ActiveWorkbook.Close
End Sub

Retv Ark1 til det ark, du skal hente dine data fra.

Øh ... hvor blev det gemt ?

I din standardmappe til gemning af Excel. Typisk Dokumneter.  Hvis selv vil bestemme stien så ret næstsidste linie til

ActiveWorkbook.SaveAs "Din sti her" & CStr(Date) & " " & Navn

Indtast din sti, hvor der står "Din stik her". Anførselstegnene skal bibeholdes.

Perfekt ... læg lige et svar :-)

Et svar :-)

Har du lagt et svar ?

Så prøver jeg igen :-9