van excel naar een brief???

[Sander11]

Hallo Jelle,

Ik heb hem geprobeerd met aanpassing van het pad. Ik krijg helaas een foutmelding. Ik heb hem zo gemaakt:
Sub herinnering()
'
' herinnering Macro
'

'
Range("A7").Select
Selection.Copy
Sheets("1e herinnering").Select
ActiveSheet.Paste
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\temp\test.pdf", Quality:=xlQualityStandard,
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Sheets("deb beheer").Select

End Sub

Ik heb geen idee waar de fout zit.


De hele macro heb ik van jou of een ander gehad. Ik heb er zelf niets aan geschreven. Ik weet er te weinig van om er wat nuttigs mee te doen. Je hebt wel gelijk. Ik moet de cel waar hij in moet plakken wel geselecteerd hebben, anders doet hij het niet. Dat is overigens geen probleem want het werkblad waarin gekopieerd wordt, is verder niet in gebruik.

Je zin over het laten opslaan met factuurnummer als bestandsnaam begrijp ik niet helemaal.

Groet,

 

[Sander11]

En het is natuurlijk Jelte en geen Jelle.

Excuus

 

[Breuk132]

Sander,

Ten eerste zou je in vervolg je om je code's de "code tags" willen zetten. Maakt het kopiëren wat makkelijker.

Ten tweede bij een foutmelding kan je het beste voor foutopsporing kiezen. Weet je iig op welke regel de macro is vastgelopen.

Sub herinnering()

dim Nota
Nota = activecell [COLOR="SeaGreen"]'Dit kan je in de filename gebruiken anders slaat hij het altijd onder dezelfde naam op.[/COLOR]

Sheets("1e herinnering").Select
Range("E27") = Nota [COLOR="SeaGreen"]´Kan het beste toch de range aangeven weet je iig zeker dat het notanummer op de juiste plaats staat.[/COLOR]
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\temp\" &[COLOR="Red"] Nota  [/COLOR]&".pdf", Quality:=xlQualityStandard,
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Sheets("deb beheer").Select

End Sub

Werkt het nu wel?

 

[Sander11]

Hallo Jelte,

Je code werkt nog niet. Ik krijg een foutmelding op de regel die je mij gestuurd hebt.

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\temp\" & Nota  &".pdf", Quality:=xlQualityStandard,
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False

Groetjes,
Sander

 

[Breuk132]

Hallo Sander,

Neem eens een macro op en doe dan handmatig het volgende.

blad 1e herinnering selecteren.
Opslaan.als en dan opslaan als pdf.
Bestandsnaam en locatie aangeven etc.
En dan opslaan.

Opname stoppen.
En dan de code vergelijken met die van mij.
Als je dan over de filename het volgende plakt

"C:\temp\" & Nota  &".pdf"

Dan zou de macro moeten werken.

 

[Sander11]

Hallo jelte,

ALs ik de makro uitvoer zoals door jou beschreven, dan slaat hij inderdaad gelijk een kopie als pdf op het bureaublad op. Geweldig!
Alleen als ik jouw regel erin plaats, dan loop hij vast op die regel.

dit is de marko met dus de fout:

Sub herinnering()
'
' herinnering Macro
'

'
    Range("A7").Select
    Selection.Copy
    Sheets("1e herinnering").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
     Sheets("1e herinnering").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\s.spitzers\Desktop\" & nota & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
    Sheets("deb beheer").Select

End Sub

Dit is de versie die wel werkt maar dan met altijd dezelfde filename:

Sub herinnering()
'
' herinnering Macro
'

'
    Range("A7").Select
    Selection.Copy
    Sheets("1e herinnering").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
     Sheets("1e herinnering").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\s.spitzers\Desktop\201001.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
    Sheets("deb beheer").Select

End Sub

Overigens is die range("A7") select niet juist. Hij pakt nu altijd A7 terwijl hij de actieve cel moet nemen. Wat kan ik daar het beste voor gebruiken?

Groet,

Sander

 

[Sander11]

Beste Jelte,

mijn laatste vraag heb ik al op kunnen lossen door "range"regel weg te laten. De marco werkt nu goed. Alleen nog het notanummer als bestandsnaam gerealiseerd krijgen. Ik hoop dat je nog zin hebt om mij daarin te ondersteunen.

Ik ga nu naar bed maar morgenvroeg ga ik gelijk weer kijken of je gelegenheid hebt gehad om te reageren.

Groetjes,

 

[Breuk132]

Sander,

Als je het volgende vervangt.

"C:\Users\s.spitzers\Desktop\201001.pdf"

'door

"C:\Users\s.spitzers\Desktop\" & range("E27") & ".pdf"

Dan zou het moeten werken. controleer nog wel even of het notanummer wel in cel E27 staat, anders even aanpassen.

 

[Sander11]

Hallo Jelte,

HIj doet het! Hartelijk dank voor je hulp. Het werkblad is nu zodanig geautomatiseerd dat mijn vriendin er op een prettige manier mee kan werken. Ik zal wellicht in de toekomst nog wel wat verzinnen om het nog handiger te maken. Wat dat betreft is Excel net een ton met lego; je blijft bouwen en verbeteren.

Dank nogmaals voor je hulp :thumb:. Zonder jouw kennis (en natuurlijk ook de hulp van anderen in dit draadje) was het zeker niet gelukt.

Met vriendelijke groet,

Sander