1
Excel / Re: foutmelding in macro
« Laatste bericht door SoftAid Gepost op 04 oktober 2025, 21:44:28 »Peter, er ontbreekt een Spatie én een Underscore _ na de tekst:
Een foutje gevonden: je hebt waarschijnlijk bovenaan rijen weggehaald, en daarmee klopt je code in de macro niet meer:
D13 moet D11 worden en E13 moet E11 worden
Als je meer rijen wenst laat dan weten (met een voorbeeldbestand) hoe je wilt dat je werkblad er uit zal zien, bijvoorbeeld je hoofding ook op het 2 de bladzijde of niet, je kan Excel vragen om de ingegeven tekst te verdelen over de 2 bladzijden enzovoorts.
Als je vragen hebt, shoot...
SoftAid

Code: [Selecteer]
Worksheets("Factuur").Range("A1:G48").ExportAsFixedFormat
in de Macro. Dus zou zo moeten zijn:Code: [Selecteer]
Worksheets("Factuur").Range("A1:G48").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=PDFPad, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Een foutje gevonden: je hebt waarschijnlijk bovenaan rijen weggehaald, en daarmee klopt je code in de macro niet meer:
Code: [Selecteer]
' Factuurregels leegmaken
Sheets("Factuur").Range("A16:G41").ClearContents
Zou nu moeten zijn:Code: [Selecteer]
' Factuurregels leegmaken
Sheets("Factuur").Range("A14:G39").ClearContents
En deze klopt ook niet:Code: [Selecteer]
PDF = Sheets("Factuur").Range("D13") & Format(Sheets("Factuur").Range("E13"), "#0000") & ".pdf"
D13 moet D11 worden en E13 moet E11 worden
Als je meer rijen wenst laat dan weten (met een voorbeeldbestand) hoe je wilt dat je werkblad er uit zal zien, bijvoorbeeld je hoofding ook op het 2 de bladzijde of niet, je kan Excel vragen om de ingegeven tekst te verdelen over de 2 bladzijden enzovoorts.
Als je vragen hebt, shoot...



