Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketGem faktura i PDF med nyt faktura nr.

 Besvar Besvar
Forfatter
DennisDalgaard Se dropdown
Bronze bruger
Bronze bruger


Medlem: 05.Nov.2013
Status: Offline
Point: 27
Direkte link til dette indlæg Emne: Gem faktura i PDF med nyt faktura nr.
    Sendt: 11.Nov.2013 kl. 12:37
Hej alle!
 
Jeg sidder her og forsøger at lave mig en faktura, som automatisk kan gemme fakturaer med fortløbende nummer. Jeg fundet en ældre tråd herinde hvor der var beskrevet hvordan det skulle gøres. Desværre kan jeg bare ikke få det til at fungere med min egen faktura, i Excel 2010.
 
Udover at gemme med fortløbende nummer, vil jeg høre om det er muligt at gemme i PDF format?
 
Link til tråd: https://forum.excel-regneark.dk/fakturanummer_topic354. - https://forum.excel-regneark.dk/fakturanummer_topic354.html
Link til min faktura: https://www.drop.com/s/afxfvzz9xck500w/Faktura%201.xlsx - https://www.dropbox.com/s/afxfvzz9xck500w/Faktura%201.xlsx
 
Nogle som kan hjælpe?
 
Med venlig hilsen
Dennis Andersen
Til top



Til top
DennisDalgaard Se dropdown
Bronze bruger
Bronze bruger


Medlem: 05.Nov.2013
Status: Offline
Point: 27
Direkte link til dette indlæg Sendt: 21.Nov.2013 kl. 10:13
Slet ingen som kan hjælpe? Eller som har en anden idé til at gemme fakturaer?
Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5585
Direkte link til dette indlæg Sendt: 21.Nov.2013 kl. 14:07
hej linket til din faktura virker ikke mere ....
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
Til top
DennisDalgaard Se dropdown
Bronze bruger
Bronze bruger


Medlem: 05.Nov.2013
Status: Offline
Point: 27
Direkte link til dette indlæg Sendt: 21.Nov.2013 kl. 14:23
Ups, undskyld.
 
Jeg er kommet så langt, at den kan gemme som Excel fil. Nu vil jeg bare gerne have den til at gemme som PDF.
 
Til top
Skemalægger Se dropdown
Bronze bruger
Bronze bruger


Medlem: 27.Okt.2013
Land: Danmark
Status: Offline
Point: 92
Direkte link til dette indlæg Sendt: 23.Nov.2013 kl. 20:04
I 2010 kan du da vælge at gemme filen som PDF format. Sørg for at have sat den op i "Vis udskrift", så den passer med 1 side (Tilpas til 1 side i bredde, 1 side i højde). Under gemmenuen mener jeg, du kan vælge PDF format - det duer i 2007.

Alternativt installer det gratis program CutePDF, der så kommer frem på din printeroversigt. "print" hertil så gemmer den i PDF,

Eller - ligesom du gemmer faktura løbenummer, kan du gemme fakturaen i PDF format - Er det ikke det, der sker i din makro ?
Til top
DennisDalgaard Se dropdown
Bronze bruger
Bronze bruger


Medlem: 05.Nov.2013
Status: Offline
Point: 27
Direkte link til dette indlæg Sendt: 24.Nov.2013 kl. 11:26
Jeg vil gerne have den til at gemme som PDF når jeg trykker på den hjemmelavet knap i Excel. Det gør den også, men dokumentet kan ikke læses når man åbner det.

Hvis jeg derimod ændrer makroen til at gemme som .xlsm, så kan jeg fint læse Excel dokumentet.
Til top
DKBjorn Se dropdown
Forum Begynder
Forum Begynder


Medlem: 18.Aug.2012
Status: Offline
Point: 16
Direkte link til dette indlæg Sendt: 06.Dec.2013 kl. 14:47
Er der kommet en løsning.....?
Til top
DennisDalgaard Se dropdown
Bronze bruger
Bronze bruger


Medlem: 05.Nov.2013
Status: Offline
Point: 27
Direkte link til dette indlæg Sendt: 16.Dec.2013 kl. 22:19
Jeg har stadig ikke fundet en løsning desværre
Til top
excelent Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171
Direkte link til dette indlæg Sendt: 16.Dec.2013 kl. 23:11

Sub Fakturanummer()
'Denne funktion genererer fortløbende fakturanumre i Excel
'2011 Allan Thustrup Mortensen

NummerPlacering = Range("D5").Address 'Her står fakturanummeret på din faktura

FakturaArkiv = ThisWorkbook.Path 'Dette kunne også være f.eks "C:\faktura"
 
Naeste:

If Dir(FakturaArkiv & Application.PathSeparator & "Faktura " & Range(NummerPlacering) & ".PDF") <> "" Then
    Range(NummerPlacering) = Range(NummerPlacering) + 1
    GoTo Naeste
Else
'    ThisWorkbook.SaveAs (FakturaArkiv & Application.PathSeparator & "Faktura " & Range(NummerPlacering) & ".PDF")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        FakturaArkiv & Application.PathSeparator & "Faktura " & Range(NummerPlacering) & ".PDF", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
    MsgBox "Fakturanr. " & Range(NummerPlacering) & " er nu gemt i mappen:" & vbNewLine & FakturaArkiv
End If

End Sub

Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5585
Direkte link til dette indlæg Sendt: 17.Dec.2013 kl. 17:31
skal den ikke første lave et nyt nr når den har gemt fakturaen og ikke som nu at den ændre nr når man trykker på gem faktura?
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
Til top
DennisDalgaard Se dropdown
Bronze bruger
Bronze bruger


Medlem: 05.Nov.2013
Status: Offline
Point: 27
Direkte link til dette indlæg Sendt: 17.Dec.2013 kl. 17:56
Excelent: Tusind tak! Det er præcis det jeg søgte!

Bjarnehansen: Jo, det kunne faktisk være godt. Kan du hjælpe med det?

Og lige et opfølgende spørgsmål for at være ekstra besværlig, eller for at udfordre Jer (tag det som i vil). Kan det lade sig gøre, at få den til at gemme med fortløbende fakturanummer som hele tiden, men samtidig med at den tilføjer kundens navn efter fakturanummeret?

Eksempel: Næste faktura er til Dennis Andersen og skal have faktura nr. 160. Jeg vil derfor gerne have fakturaen til at hedde "Faktura 160_Dennis Andersen" (eller lignende).

Næste faktura skal så være nr. 161 og være til Jakob Poulsen, så derfor skal den hedde "Faktura 160_Jakob Poulsen".

Er dette muligt?

Til top
DennisDalgaard Se dropdown
Bronze bruger
Bronze bruger


Medlem: 05.Nov.2013
Status: Offline
Point: 27
Direkte link til dette indlæg Sendt: 17.Dec.2013 kl. 18:00
Den opdateret faktura kan i finde her: https://www.dropbox.com/s/31vbhhcn5vb653x/Faktura%20RF%20opdateret.xlsm
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk