Goede avond

facturen op te slaan heb ik middels veel lezen kopiëren en plakken het volgde
dat die bij opslaan niet de lay-out mee overneemt waarschijnlijk omdat ik een bereik heb ingesteld ipv het hele blad te kopieren
als ik het hel blad kopieer dat heb ik ook mijn knoppen met makro die hij mee kopieërt en dat is niet de bedoeling

volgende code gebruik ik

Sub FactuurOpslaan()
'
' FactuurOpslaan Macro
'
' Sneltoets: Ctrl+x
'

Dim sBestandsnaam As String
Dim sPadnaam As String
sBestandsnaam = Range("E14").Value & "-" & ".xlsx"
sPadnaam = "C:\Users\Vicky\Documents\facturen\"

    If Not (Right(sPadnaam, 1)) = "\" Then
        MsgBox "De padnaam wordt niet afgesloten met een backslash (\)" & Chr(13) & Chr(13) & _
                "Herstel dit...!", vbOKOnly, "Fout"
        Exit Sub
    End If
   
    Range("A1:E52").Select
    Selection.Copy
    Range("A1").Select
    Workbooks.Add
    ActiveSheet.Paste
    Range("J5").Select
    Sheets("Blad1").Select

    ActiveSheet.Copy
    ActiveSheet.SaveAs Filename:=sPadnaam & sBestandsnaam
    ActiveWindow.Close
    ActiveWorkbook.Close Savechanges:=False
    Range("C2").Select
   
    Range("E14").Value = Range("E14").Value + 1
Range("A26:E34").ClearContents
Range("E13").Value = Date
   
 MsgBox "uw document is opgeslagen", vbInformation
   

End Sub

Kan het op een andere manier?
Dank

hallo linvic,

welkom op Oplossing.be.

zelf zou ik de voorkeur geven aan het opslaan van de facturen (het tabblad "factuur") als een PDF-document.
Een PDF wordt namelijk aanvaard als een officieel boekhoudkundig document (een Excel niet), en je kan het  gemakkelijker beveiligen tegen aanpassingen door de klant. Er wordt ook geen code, macro's en/of knoppen meegenomen naar je PDF, evenmin als formules in je werkblad. Allemaal voordelen. Je klant moet ook niet beschikken over een Excel-programma, en je kan gemakkelijk een link naar een gratis PDF-Reader in de mail zetten, de mail waarmee je de factuur verstuurt.

Voorbeeld om je factuur als PDF op te slaan:

Sub FactuurOpslaan()

Dim sBestandsnaam As String, sPadnaam As String

sBestandsnaam = Range("E14").Value
sPadnaam = "C:\Users\Vicky\Documents\facturen\"
   
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        sPadnaam & sBestandsnaam & ".PDF", IgnorePrintAreas:=False, OpenAfterPublish:=True     'het PDF tonen (of niet = False)

'tabblad "Factuur" leegmaken en factuurnummer verhogen
Range("E14").Value = Range("E14").Value + 1
Range("A26:E34").ClearContents
Range("E13").Value = Date
End Sub
Die controle op de slash (/) vind ik overbodig daar deze in de code staat.

SoftAid