Auteur Topic: foutmelding in macro (gelezen 35 keer)

peter vdf · « **Gepost op:** **Vandaag** om 20:39:38 »

hallo iedereen,
ik zit met een vervelend probleem. ik ben een leek in macro's en heb een aanpassing laten doen via chatgpt( waar ik al veel spijt van heb) in mijn excell blad. we gebruiken dit voor factuurtjes op te maken naar onze leden. nu wou ik de originele code terug zetten maar is er toch iets fout waardoor ik steeds een foutmelding krijg. Ik hoop dat jullie me kunnen helpen. dit is de code. als je de excel file wil moet je me iets laten weten. Als het kan het volledige stuk dat ik moet veranderen aub.
alvast bedankt voor de moeite.

SoftAid · « **Reactie #1 Gepost op:** **Vandaag** om 20:57:19 »

Hallo Peter,

Welkom op Oplossing.be

Een screenshot meegeven is netjes, maar zo onhandig voor ons helpers

Moeten we de hele (en onvolledige) macro gaan intypen, en een werkblad aanmaken met je factuur?

Het zou zo veel gemakkelijker zijn als je het bestand als bijlage zou aanhangen, en ontdoe die copy van persoonlijke data. Zo zal je veel sneller geholpen worden.

Tot... later?

Groeten,

SoftAid

peter vdf · « **Reactie #2 Gepost op:** **Vandaag** om 21:18:31 »

Hallo

Bedankt voor de tip. Ik voeg de excell in bijlage bij. Het is dus de bedoeling als ik op de knop opslaan klik dat hij het document opslaat, uitprint en document leegmaakt voor volgende gegevens te kunnen invullen. Ik zat dus te rommelen in de code omdat ik wou dat mijn veld" omschrijving" soms te klein is en ik daardoor 2 documenten moet opmaken voor dezelfde persoon. ik had dit graag veranderd dat mijn blad doorloopt op de volgende blad met de voorwaarden die dan natuurlijk beneden op het 2de blad staan. ik hoop dat er iemand kan helpen.

SoftAid · « **Reactie #3 Gepost op:** **Vandaag** om 21:44:28 »

Peter, er ontbreekt een Underscore _ na de tekst

Code: [Selecteer]

Worksheets("Factuur").Range("A1:G48").ExportAsFixedFormatin 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 foutjes 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...

SoftAid

Help!

Menu

Hulp bij posten

Zoeken

Recente topics