Pagina's afzonderlijk opslaan met nummer in pagina als pdf

[elise2310]

Graag zou ik een macro willen maken die elke pagina in een werkblad afzonderlijk opslaat met een nummer dat in de pagina is vermeld als pdf.

Wie o wie kan mij hierbij helpen?

 

[gast0660]

Hoi,
Welkom op dit forum
Uw vraag is vrij onduidelijk, kan je een vbtje posten? (met wat je wil bereiken)

Greetz

 

[elise2310]

Hey

Ik zal het uitleggen in mijn werkblad heb ik meerdere facturen staan. Ieder factuur staat op een pagina in een werkblad. Ik wil de facturen dan los van elkaar opslaan met het bijbehorende factuurnummer als pdf.

 

[edmoor]

Dat kan met iets als dit:

Sub EDM()
    Dim i As Integer
    
    For i = 1 To ThisWorkbook.Sheets.Count
        Sheets(i).ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=Environ("userprofile") & "\Desktop\" & Sheets(i).Name & ".pdf", _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
    Next i
End Sub

 

[VenA]

Is wel een leuke methode om een bureaublad vol te plempen.:d

Iets andere methode waarbij de naam van de .pdf uit A1 van het betreffende blad gehaald wordt.

Sub VenA()
pad = Environ("userprofile") & "\Desktop\"
For Each sh In Sheets
    sh.ExportAsFixedFormat xlTypePDF, pad & sh.[A1] & ".pdf"
Next sh
End Sub

Het 'pad' kan je aanpassen naar de locatie waar je de bestanden wil hebben. bv "D:\Facturen\"

 

[edmoor]

Het is uiteraard maar een voorbeeld. Het pad kan zoals je al zei naar wens worden aangepast.
En je wil niet weten wat voor een bureaubladen ik soms tegen kom

 

[VenA]

Vol met niet betaalde facturen

 

[edmoor]

Bijna geen pixel meer over om nog ergens het bureaublad te raken

 

[elise2310]

Hij wel iedere keer een ander nummer uit iedere bladzijde halen hoe kan je dat dan maken

 

[edmoor]

Dat staat in het voorbeeld van VenA: sh.[A1]
sh staat voor de naam van het werkblad en daar wordt het nummer uit cel A1 gelezen.

 

[VenA]

Plaats eens een voorbeeldje. Jouw vraag impliceert dat je de facturen op verschillende tabjes hebt staan. Maar kan ook ook gelezen worden dat je alles in één tab hebt staan maar dan onder elkaar.

 

[elise2310]

Ik heb alle facturen op een werkblad iedere pagina in het werkblad heeft een apart factuur nummer.

 

[jolivanes]

Waar staat dat factuur nummer dan?
In welke cell?

 

[VenA]

Als je geholpen wil worden moet je dit even doen

Plaats eens een voorbeeldje.

Dan hoeft er niemand te gokken wat je nu echt wil.

 

[elise2310]

Hier mijn bestand en dan wil ik de facturen van januari met het nummer wat in de pagina staat (iedere pagina een andere) opslaan als losse bestandjes op pdf

 

[elise2310]

Bestand

hier het bestand

 

[jolivanes]

Dat is heel wat anders als wat er in Post #1 beschreven staat.
Naar mijn gevoel zou het veel eenvoudiger zijn om met een blad te werken en alle gegevens invoeren net voor je het als PDF opslaat.

 

[elise2310]

Dit is niet wat ik wil. Ik wil iedere maand kunnen aangeven die moet wel een factuur en die niet / Daarom het bestand. Het moet toch kunnen. Je kan het afzonderlijk doen, waarom dan niet in een macro dat die het automatisch doet.

 

[HSV]

Hallo Elise,

Zorg ervoor dat er overal een factuurnummer staat ipv. #N/B.
Even het bestandenpad aanpassen in de code.

Test het maar eens.

Sub hsv()
Dim i As Long, a As String, b As String
For i = 1 To Blad5.HPageBreaks.Count
 a = IIf(i = 1, Range("A1").Address, b)
  Blad5.Range(a, Blad5.HPageBreaks.Item(i).Location.Address).Resize(, 7).ExportAsFixedFormat 0, "c:\users\hsv\documents\map1\" & Range(a).Offset(16, 2).Value
 b = Blad5.HPageBreaks.Item(i).Location.Address
Next i
End Sub