periodiek opslaan

[pjseynaeve]

Beste,
Ik heb in bijlage een produktiekaart aangemaakt.
Had graag het volgende willen proberen:

Na het invullen van de produktiekaart had ik graag een kopie opgeslaan van de produktiekaart.

Dus na het invullen van een produktiekaart, de produktiekaart kopiëren (in een andere file of dezelfde file opslaan) en terug een blanco.
Tot zover lukt mij dit

Had graag ook nog een naam gegeven aan het tabblad (Datum + ploegtype) en dit dus niet.

Bekijk bijlage 213691

 

[VenA]

Even de zoekfunctie gebruiken.

 

[Warme bakkertje]

Sub Macro1()
'
' Macro1 Macro
' Test
'
' Sneltoets: CTRL+SHIFT+J
'
    With Sheets("Voorblad")
        .Copy , Sheets(1)
        Sheets(2).Name = Format(.Range("b4"), "dd-mm-yyyy") & " - " & .Range("D4")
        Application.Union(.Range("E7:F8"), .Range("D4:E4"), .Range("A13:O48"), _
            .Range("I4:K6"), .Range("N4:O5"), .Range("L8:L9")).ClearContents
        Application.Goto .Range("A13")
    End With
   
End Sub

 

[pjseynaeve]

Bedankt @Warme bakkertje (Rudi) voor de geslaagde macro.

Ik zet de vraag op opgelost

 

[pjseynaeve]

Bestaat er ook een VBA code om de file weg te schrijven naar een extern bestand.

Van "MAP1" naar "MAP2" bv

 

[Haije]

Ja, die bestaat...

TIP: voor de gevraagde actie eens uit met de macrorecorder aan

 

[pjseynaeve]

Heb het gedaan,maar als ik het nu wegschrijf kopieert hij nu alles naar een nieuwe file

 

[pjseynaeve]

Beste mensen,

Momenteel heb ik deze macro code:

Sub Macro1()
'
' Macro1 Macro
' Test
'
' Sneltoets: CTRL+SHIFT+J
'
If WorksheetFunction.CountA(Range("Inputbereik")) < 10 Then
  MsgBox ("Niet alle groene velden zijn ingevuld!!")
   Exit Sub
End If
    With Sheets("Produktie pers 3")
        .Copy , Sheets(1)
        Sheets(2).Name = Format(.Range("b4"), "dd-mm-yyyy") & " - " & .Range("D4")
                Application.Goto .Range("A13")
    Sheets("Produktie pers 3").Select
    Range("E7:G7").Select
    Selection.ClearContents
    Range("E8:G8").Select
    Selection.ClearContents
    Range("D4:E4").Select
    Selection.ClearContents
    Range("A13:O48").Select
    Selection.ClearContents
    Range("J4:L4").Select
    Selection.ClearContents
    Range("J5:L5").Select
    Selection.ClearContents
    Range("J6:L6").Select
    Selection.ClearContents
    Range("O5:P5").Select
    Selection.ClearContents
    Range("O4:P4").Select
    Selection.ClearContents
    Range("M8").Select
    Selection.ClearContents
    Range("M9").Select
    Selection.ClearContents
    Range("A13").Select
    MsgBox "Produktiekaart succesvol verplaatst"
    End With
        
End Sub

had graag de sheet dat ik gekopieerd heb naar een ander sheet nog eens gekopieerd naar een extern bestand.
Sorry voor de 2 vakjes in plaats van 1 vak

 

[VenA]

Gebruik even codetags. Dit is onleesbaar. Verder zijn al die selects totaal onnodig.

 

[pjseynaeve]

Iets zoals dit dan:

Sub Macro1()
'
' Macro1 Macro
' Test
'
' Sneltoets: CTRL+SHIFT+J
'
If WorksheetFunction.CountA(Range("Inputbereik")) < 10 Then
  MsgBox ("Niet alle groene velden zijn ingevuld!!")
   Exit Sub
End If
    With Sheets("Produktie pers 3")
        .Copy , Sheets(1)
        Sheets(2).Name = Format(.Range("b4"), "dd-mm-yyyy") & " - " & .Range("D4")
                Application.Goto .Range("A13")
    Sheets("Produktie pers 3").Select
    Range("Alles_Wissen").Select
    Selection.ClearContents
    MsgBox "Produktiekaart succesvol verplaatst"
    End With
        
End Sub

Gegevens worden verplaats naar een ander tabblad in dezelfde file.
Maar nu had ik graag dat gekopieerde tabblad verplaatst naar een andere file, met dezelfde naam

 

[Warme bakkertje]

Sub Macro1()
'
' Macro1 Macro
' Test
'
' Sneltoets: CTRL+SHIFT+J
'
    If WorksheetFunction.CountA(Range("Inputbereik")) < 10 Then
        MsgBox ("Niet alle groene velden zijn ingevuld!!")
        Exit Sub
    End If
    With Sheets("Produktie pers 3")
        myname = Format(.Range("b4"), "dd-mm-yyyy") & " - " & .Range("D4")
        .Copy , Sheets(1)
        Sheets(2).Name = myname
        .Copy
        With ActiveWorkbook
            .SaveAs "G:\Mijn documenten\" & myname & ".xlsx", 51
            .Close True
        End With
        Range("Alles_Wissen").ClearContents
        Application.Goto .Range("A13")
        MsgBox "Produktiekaart succesvol verplaatst"
    End With
        
End Sub

 

[pjseynaeve]

@Warme bakkertje

Macro werkt goed, maar denk dat ik mijn vraag niet goed geformuleerd hebt.
Hij moet ze inderdaad wegschrijven naar een ander bestand, maar alle andere (nieuwe tabbladen ) moeten ook in diezelfde file komen en ze niet steeds apart opslaan.

Toch reeds bedankt voor de moeite

 

[pjseynaeve]

Ben er geraakt, dank aan allen voor de duw in de juiste richting