Goedemorgen,
Zit met een vraagje.
Wil van een gedeelte van een werkblad een copy maken dit in een nieuw werkblad zetten en hiervan een excel file maken en vervolgens hiervan een PDF maken.
Alles zou goed moeten werken, maar hij kopieert geen gegevens over.
Hieronder het stukje code waar dit allemaal gebeurd.
Het probleem zit hem in dit stukje:
Hij kopieert wel de vaste gegevens in het document, maar niet de variabele die erin komen.
Iemand een idee hierover?
Al many thanks.
Vr. Gr.
Dutch
Zit met een vraagje.
Wil van een gedeelte van een werkblad een copy maken dit in een nieuw werkblad zetten en hiervan een excel file maken en vervolgens hiervan een PDF maken.
Alles zou goed moeten werken, maar hij kopieert geen gegevens over.
Hieronder het stukje code waar dit allemaal gebeurd.
Code:
With ActiveWorkbook.Sheets.Add ' maakt een nieuw wb aan
[B]ActiveWorkbook.Sheets("Data").Range("L1:W122" & 60).Copy .Range("A1")[/B]
.Columns.AutoFit ' past de kolommen aan, aan de nodige breedte
.Copy
With ActiveWorkbook
With ActiveSheet.PageSetup ' zet de juiste marges neer voor nieuwe file
.LeftMargin = Application.InchesToPoints(0.393700787401575)
.RightMargin = Application.InchesToPoints(0.393700787401575)
.TopMargin = Application.InchesToPoints(0.393700787401575)
.BottomMargin = Application.InchesToPoints(0.590551181102362)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
End With
.SaveCopyAs c01
.Close
End With
.Delete
End WithHet probleem zit hem in dit stukje:
Code:
[B]ActiveWorkbook.Sheets("Data").Range("L1:W122" & 60).Copy .Range("A1")[/B]Iemand een idee hierover?
Al many thanks.
Vr. Gr.
Dutch
