Nummer in cel toevoegen in macro opslaan als PDF

[Sjaakie2014]

Hallo,

Ik heb heel lang gezocht naar de oplossing maar kon niets vinden wat werkt. Op gebied van excel ben ik leek. Om het te leren wou ik een factuur maken.

In cel I17 staat de informatie welke ik achter het woord Factuur wil zien. Dit nummer is huidige jaar maand dag uur.

Wie kan mij verklappen hoe ik dit op kan lossen?


Alvast bedankt!

Groeten Sjaakie!


Sub Opslaan()
'
' Opslaan Macro
'

'
ChDir "D:\Cursus EXEL"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Cursus EXEL\Factuur.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub

 

[Warme bakkertje]

Sub Opslaan()
'
' Opslaan Macro
'

'
With sheets("Blad1")
    .ExportAsFixedFormat 0, "D:\Cursus EXEL\Factuur" & .range("I17") & ".pdf"
End with
End Sub

 

[Sjaakie2014]

bedankt voor je reactie ik zal het straks even uit testen

 

[Sjaakie2014]

Hallo Warme bakkertje. Ik had nog geen tijd om er eerder naar te kijken. Bedankt voor je code, helaas werkt deze niet. ik krijg telkens een foutmelding.

bij deze regel gaat het mis

.ExportAsFixedFormat 0, "D:\Cursus EXEL\Factuur" & .range("I17") & ".pdf"

hij is geel

 

[Warme bakkertje]

Is Blad1 wel de juiste bladnaam ?

Let ook op verboden tekens in het format van jaar maand dag uur.

 

[Sjaakie2014]

Geen idee wat ik fout doe.

Bekijk bijlage Feestboerderij.xlsm

Veel tijd heb ik niet om excel te leren. nu ik niet verder kom werkt dit ook niet echt motiverend. alvast een bedankje voor de hulp
Ik heb een simpele layout gemaakt. deze wil ik nog verbeteren. eerst wil ik de basis onder de knie hebben. zou je met mij mee kunnen kijken waar de fout ligt? het op te slaan pad mag afwijken, kan ik later nog wel aanpassen.

 

[Warme bakkertje]

Ik weet niet hoe het in Nederland is, maar bij ons moeten facturen een opeenvolgend oplopend nummer hebben.
Het gebruik van de functie Nu() zal je dit iig. niet opleveren.
Je zou dus beter eerst met je boekhouder overleggen hoe je dit best kan realiseren.