Konverter flere ark til separate variabelt navngivet regneark

Public Sub Lav_filer()
sti = "C:\Dokumenter\" ' ret til din sti
  For Each ws In Worksheets
If ws.Name <> "Forside" And ws.Name <> "Bagside" Then
' skift selv navnet på siderne der ikke skal med
      Sheets(ws.Name).Copy
      navn = ws.Name & Date  ' filen får arknavnet og dads dato, ret selv til
      ActiveWorkbook.SaveAs Filename:= _
        sti & navn & ".xls", FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    ActiveWindow.Close
 
  End If
Next
End Sub

Kabbak, mangler du ikke lige en linie efter  Sheets(ws.Name).Copy for kun at have værdier med  ?
fx.
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value

selvfølgelig, den må hellere komme med.

Godt at du nærlæste det bak, jeg havde overset det med værdier

Public Sub Lav_filer()
sti = "C:\Dokumenter\" ' ret til din sti
  For Each ws In Worksheets
If ws.Name <> "Forside" And ws.Name <> "Bagside" Then
' skift selv navnet på siderne der ikke skal med
      Sheets(ws.Name).Copy
      ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
      navn = ws.Name & Date  ' filen får arknavnet og dags dato, ret selv til
      ActiveWorkbook.SaveAs Filename:= _
        sti & navn & ".xls", FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    ActiveWindow.Close
 
  End If
Next
End Sub

Hej kabbak (og bak)

Koden virker ikke (run-time error): Method 'Copy' of Object '_Worksheet' failed.
Makroen standser og gul-markerer netop på linien: Sheets(ws.Name).Copy

Er bak inde på noget og i givet fald hvordan skl den endelige kode så være?

hvilken version af excel har du ?

det virker fint i 2000 og 2003

Kode stopper desværre. Har det betydning at hvert af de ark der skal kopieres værdier fra indeholder hver sin pivottabel? - derfor ønsket om copy-paste special-value og formats

Hov - undskyld jeg er desværre lidt langsom på tasterne - jeg har Excel 2000

jeps min fejl, tænkte ikke lige på pivottabeller
sådan
Public Sub Lav_filer()
sti = "C:\" ' ret til din sti
  For Each ws In Worksheets
If ws.Name <> "Forside" And ws.Name <> "Bagside" Then
' skift selv navnet på siderne der ikke skal med
      Sheets(ws.Name).Copy
      ActiveSheet.UsedRange.Copy
      ActiveSheet.PasteSpecial Paste:=xlPasteValues
      navn = ws.Name & Date  ' filen får arknavnet og dags dato, ret selv til
      ActiveWorkbook.SaveAs Filename:= _
        sti & navn & ".xls", FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    ActiveWindow.Close
 
  End If
Next
End Sub

Mærkeligt - Koden giver stadigvæk samme run-time error: Method 'Copy' of Object '_Worksheet' failed og makroen standser og gul-markerer linien: Sheets(ws.Name).Copy

Skal jeg gøre nogle References?

prøv lige at erstattte Sheets(ws.Name).Copy med
ws.copy

Så kommer der en ny Run-time error: 1004 Application-defined or object-defined error og kodelinen [ActiveSheet.PasteSpecial Paste:=xlPasteValues]markeres!

erstat med  ActiveSheet.UsedRange.PasteSpecial Paste:=xlPasteValues

og nu skal det fungere :-)

bak - du er en rigtig 'skrapsak' - det spiller herligt!

Gi'r jeg dig point ved at trykke på 'svar'?

Nej, det er kabbak, der skal have points, for det er hans kode der er brugt.
Jeg kom bare til at blande mig, og måtte så redde det i land igen :-)

Og point kan du først give når kabbak har svaret...

Jeg synes nu også at bak skal ha´, han var hurtig til at finde ud af den sidste linie, jeg skulle ihvertfald bruge længere tid, og så havde spørgsmålet nok ikke været løst endnu.;-))

Hej kabbak

Nu da bak er enig i at det er din kode, så følger hermed points - tak til jer begge :)

tak for point ;-))