Opslaan als

[gerrit123456789]

Goede morgen,

Ik heb een bestand welke ik dagelijks wil gebruiken.

Als ik op de knop druk van opslaan, dan moet dit bestand worden opgeslagen met als bestandsnaam de datum van cel C3 en cel C4.

Tevens moeten alle gele cellen leeggemaakt worden nadat het bestand is opgeslagen.

Wie kan mij hiermee helpen om het voor elkaar te krijgen.

met vriendelijke groet,

Gerrit



Bekijk bijlage Nieuw ploegoverdracht.xlsm

 

[Gert Bouwmeeste]

Zoiets?


Bekijk bijlage Nieuw Ploegenoverdracht.xlsm

 

[gerrit123456789]

Ja, dat is wat ik bedoel.

Waar kan ik in de macro neer zetten, naar welke map het opgeslagen moet worden.

Wel zie ik hij de datum wanneer hij het bestand opslaat heel vreemd noteert.

Zie bijlage.

Groet,

Gerrit

 

[Gert Bouwmeeste]

Hierbij aangepast. De rood gemarkeerde regel kun je aanpassen om een verwijzing naar je eigen mappen te maken. Denk er wel om dat je afsluit met een "\".
Verder de datum-notatie wat netter gemaakt. Ik heb dat zo gedaan omdat je de bestanden dan altijd netjes op volgorde krijgt in de map.

Bekijk bijlage 2017-05-02 Nacht Ploegenoverdracht.xlsm

Sub OpslaanAlsEnLeegmaken()
'
' OpslaanAlsEnLeegmaken Macro
'
[COLOR="#FF0000"][B]    Pad = "H:\dropbox\data\"[/B][/COLOR]
    DatumWaarde = [C3].Value
    Datum = Year(DatumWaarde)
        If Month(DatumWaarde) < 10 Then
            Datum = Datum & "-0" & Month(DatumWaarde)
        Else
            Datum = Datum & "-" & Month(DatumWaarde)
        End If
        
        If Day(DatumWaarde) < 10 Then
            Datum = Datum & "-0" & Day(DatumWaarde)
        Else
            Datum = Datum & "-" & Day(DatumWaarde)
        End If
            
    
    Dienst = [C4].Value
    
    Bestand = Pad & Datum & " " & Dienst & " Ploegenoverdracht.xlsm"
    ActiveWorkbook.SaveAs Filename:= _
        Pad & Datum & " " & Dienst & " Ploegenoverdracht.xlsm" _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    Union(Range( _
        "M22,D22:E22,D21:E21,B21:C21,B22:C22,A21,A22,B24:K26,N24:W26,B27:K29,N27:W29,B30:K34,N30:W34,B35:K39,N35:W39,B40:K44,N40:W44,B45:K50,N45:W50,C3,C4,C5,O8,O9,C8,C9,C11,C12,C13,F11:K11,F12:K12,F13:K13" _
        ), Range( _
        "C15,C16,C17,C18,O18,O17,O16,O15,O13,O12,O11,R11:W11,R12:W12,R13:W13,M21,N21:O21,P21:Q21,P22:Q22,N22:O22" _
        )).Select
    Range("N45").Activate
    ActiveWindow.SmallScroll Down:=24
    Union(Range( _
        "M22,D22:E22,D21:E21,B21:C21,B22:C22,A21,A22,B24:K26,N24:W26,B27:K29,N27:W29,B30:K34,N30:W34,B35:K39,N35:W39,B40:K44,N40:W44,B45:K50,N45:W50,B51:K53,N51:W53,B54:B55,C54:K55,N54:N55,O54:W55,B56:K59,N56:W59,C3,C4,C5,O8,O9" _
        ), Range( _
        "C8,C9,C11,C12,C13,F11:K11,F12:K12,F13:K13,C15,C16,C17,C18,O18,O17,O16,O15,O13,O12,O11,R11:W11,R12:W12,R13:W13,M21,N21:O21,P21:Q21,P22:Q22,N22:O22" _
        )).Select
    Range("N56").Activate
    Selection.ClearContents
    Range("C3").Select
End Sub

 

[gerrit123456789]

Dat is wat ik bedoel.

Ik kan nu weer verder.
Héél hartelijk bedankt voor je hulp.

met vriendelijke groet,

Gerrit