Gemme ark uden koden

Skal arkene gemmes hver for sig i to separate Excel-filer, eller skal begge ark gemmes i den samme fil?

udskriv til pdf-fil ?

Hej lige hurditg her fra  :-)

det skal gemmes i en fil  uden kode  :-)
i dette formart  :  "Gem.xlsx"

gemmes i en fil begge ark

Du kan prøve med nedenstående VBA-kode.

Private Sub CommandButton1_Click()
' Gem ark 2 - Gem Ark 3
' uden kode
'
' file naven "Gem.xlsx"

    Dim wb As Workbook
    Dim sh As Worksheet
   
    Application.ScreenUpdating = False
   
    For Each sh In ThisWorkbook.Worksheets
        Select Case sh.CodeName
            Case "Ark2", "Ark3"
                If wb Is Nothing Then
                    sh.Copy
                    Set wb = ActiveWorkbook
                Else
                    sh.Copy After:=wb.Sheets(1)
                End If
        End Select
    Next sh
   
    wb.SaveAs ThisWorkbook.Path & "\Gem.xlsx", xlWorkbookDefault
   
    Application.ScreenUpdating = True
   
End Sub

Hej  MaxZpaD

Jo tak den  gemmer , men den åber også det den har gemt hvad hvis den ikke skal det ?

Jeg har lige lagt noget op  :-)

https://www.dropbox.com/scl/fi/0gebkcthpx8jiff7o7dsh/Pr-ve-ark1.xlsm?rlkey=l2tid13utlpzex6ao31pbvygd&st=zayk1pm0&dl=0

hvis men trykker Ctrl + S

  Dim wb As Workbook
    Dim sh As Worksheet
 
    Application.ScreenUpdating = False
 
    For Each sh In ThisWorkbook.Worksheets
        Select Case sh.CodeName
            Case "Kørselsrapport", "Udskrive side 1", "Udskrive side 2", "Ark1"
                If wb Is Nothing Then
                    sh.Copy
                    Set wb = ActiveWorkbook
                Else
                    sh.Copy After:=wb.Sheets(1)
                End If
        End Select
    Next sh
 
    wb.SaveAs ThisWorkbook.Path & "\Gem.xlsx", xlWorkbookDefault
 
  'ThisWorkbook.SaveAs Filename:=Worksheets("Hjælpe Ark").Range("B31"), FileFormat:=xlOpenXMLWorkbook
 
    Application.ScreenUpdating = True
 

Hilsen Martin G.

Hvis jeg forstår dig korrekt, så er det bare at lukke den fil, som arkene er blevet kopieret over i:

wb.SaveAs ThisWorkbook.Path & "\Gem.xlsx", xlWorkbookDefault
wb.Close False

Hej igen  😊
Ja lige præcis  😊

Men den overskriver ikke
Det kan denne her  :

ThisWorkbook.SaveAs Filename:=Worksheets("Hjælpe Ark").Range("B31"), FileFormat:=xlOpenXMLWorkbook

uden nogen problemer  😊

Jeg ville gøre det sådan her:

Application.DisplayAlerts = False
    wb.SaveAs ThisWorkbook.Path & "\Gem.xlsx", xlWorkbookDefault
Application.DisplayAlerts = True

Jeg er ret overbevist om, at hvis du gemmer med "ThisWorkbook.SaveAs" og det samme filnavn (nu ved jeg jo ikke, om du har indbygget et tidsstempel eller anden variabel i dit filnavn i cellen Worksheets("Hjælpe Ark").Range("B31")), så overskriver den heller ikke uden, at DisplayAlerts er sat til False.

Hej
Nu gemmer den ”Hjælpe ark”

Jeg har lagt en ny fil op

https://www.dropbox.com/scl/fi/090irlbfc5kbhyp3mmjcm/Pr-ve-ark2.xlsm?rlkey=9dp2ilne2g4ifn7jaf4ajh5ca&st=or5k8pz3&dl=0

og den laver en fej

Hilsen Martin G.

ligger under her

Module1 - Sub Gem_Som()