Opslaan door button

[Bart123456]

Hoi,

Ik ben bezig met facturen maken in excel, nu wil ik een button als ik daar op klik dat de pagina word opgeslagen als dd_mm_jjjj_x.xls (voor de x moet komen te staan wat er in I2 staat. Hoe kan ik dit doen? Iemand een antwoord?

Mvg Bart

 

[joost verdaasdo]

Hai Bart,

Bedoel jij met pagina de huidige sheet?

Zo ja dan kan het zo:

Sub SavePage()
Dim sText   As String

ActiveSheet.Copy
sText = Format$(Now, "dd_mm_yyyy ") & ActiveSheet.Range("I2").Value & ".xls"
ActiveWorkbook.SaveAs sText

End Sub

See yah! :thumb: