vendredi 23 janvier 2015

macro voor opslaan als naam.pdf en als naam.xlsx in een macro

Posted on 09:33 by Unknown
wie ken en wil een regel maken voor opslaan als naam.pdf en als naam.xlsx in een macro



ik heb al wat gehad en geplakt maar het wil niet zo lukken



Sub VolgRooster()

Range("B3").Value = Range("B3").Value

Range("B4:M7,B9:M12,B16:M19,B21:M24").ClearContent s

Range("B3").Value = Week





End Sub



Public Sub OpslBestand()

Dim NieuwFact As Variant

'kopieren document als nieuwe factuur

ActiveSheet.Copy

NieuwFact = "C:\Roosters\Weekrooster" & Range("B3").Value & ".xlsx"

ActiveWorkbook.SaveAs NieuwFact, FileFormat:=xlOpenXMLWorkbook

ActiveWorkbook.Close

VolgRooster

End Sub



alvast bedankt voor het lezen



groetjes mario





macro voor opslaan als naam.pdf en als naam.xlsx in een macro
Categories:

0 commentaires:

Enregistrer un commentaire

Inscription à : Publier les commentaires (Atom)