Knop "Opslaan" op werkblad maken

[Rozendal]

Hallo,

Voor velen waarschijnlijk erg eenvoudig, maar ik kom er niet uit.. ook niet met Google.

Ik wil graag een knop "Opslaan" maken in mijn werkblad ter vervanging van ctrl+s

Kan iemand mij daarmee helpen?

MVG Erik

 

[edmoor]

Waar ben je naar op zoek?
Het maken van de knop? De code die er achter zou moeten?
Een mogelijkheid wat betreft de code is dit:

Sub DocumentOpslaan()
    Dim WB As Variant
    
    WB = Application.GetSaveAsFilename
    If WB <> False Then
        ActiveWorkbook.SaveAs Filename:=WB
    End If
End Sub

Maar daar is nog veel meer voor te verzinnen afhankelijk van wat je precies wlt.

 

[JanBG]

Hallo,

Welkom op dit forum.

Zo iets:

Sub Macro1()
    ActiveWorkbook.SaveAs Filename:="C:\DATA\voorbeeld.xlsm"
End Sub

 

[HSV]

Het bestand is vast al ergens opgeslagen.

thisworkbook.save

 

[Rozendal]

@edmoor en JanBG: Bedankt voor jullie reactie... Zoals ik het zie is dit voor "Opslaan als". Dat was niet de bedoeling.
@HSV: Bedankt voor de reactie..... Zoals ik al zei zal het wel erg makkelijk zijn... en dat blijkt... Dit was wat ik zocht.

En het is nog gelukt ook :thumb:

Bedankt!!

 

[HSV]

Graag gedaan,

In je openingspost kan je de vraag op opgelost zetten.
Bvd.