• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

tabbladen naar pdf

Status
Niet open voor verdere reacties.

don42

Gebruiker
Lid geworden
25 apr 2014
Berichten
764
Beste allemaal,

wie kan mij op weg helpen met het volgende
Heb een spaarkas gemaakt met 86 nummers 1t/m86
nu wil ik deze tabbladen graag omzetten (apart van elkaar) als pdf
in een map op bv D:/spaarkas18
de namen van de pdf-files (zou het fijnste zijn) moeten dan ook het cijfer hebben van het tabblad
bv: 1.pdf en 2.pdf enz
is zoiets met vba mogelijk?

bvd
Don
 
Geen probleem, maar zonder voorbeeld document wordt dat weer gissen.
Het zal iets in deze richting worden:
Code:
PDFpad = "D:\Spaarkas18\"
For i = 1 To 86
    Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFpad & i
Next i
 
Laatst bewerkt:
een voorbeeld

Het bestand wat ik heb is zeer groot
en er staan veel persoonlijke gegevens in
heb daarom snel een (een leeg) voorbeeld gemaakt
hoop dat hieruit duidelijk is wat de bedoeling is
bvd Don.

Bekijk bijlage voorbeeld.xlsm
 
Daarom vraag ik ook om een voorbeeld en niet om je originele document ;)

Voor je voorbeeld document:
Code:
PDFpad = "D:\Spaarkas18\"
For i = 1 To 6
    Sheets(CStr(i)).ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFpad & i
Next i
 
Laatst bewerkt:
Nog 2 dingetjes!

In de reeks tabbladen van 1 t/m 96 zitten een ook lege bladen heb er 86 in gebruik (de lege heb ik dan verborgen) het aantal wisselt tijdens een spaarjaar

zo kan het zijn dat het bv: tabblad 1 - 2 - 3 - 5 is (tabblad 4 is verborgen en hoeft dan ook niet als pdf in de map te komen)
is dat ook mogelijk?

verder zou ik op elk tabblad een button willen maken wat er eerst een pdf van maakt en dit dan mailt naar het mailadres wat in Range("A5") staat
het nummer van het Tabblad staat in Range("A2") - (hier moet de naam van de pdf uit komen, of zie ik dat verkeerd )

heb nu
Code:
Private Sub CommandButton1_Click()
Dim bestandnaam As String
bestandnaam = "D:\Spaarkas18\"
If Dir(bestandnaam, vbDirectory) = vbNullString Then MkDir bestandnaam
PDFpad = bestandnaam
For i = 1 To 96
Sheets(CStr(i)).ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFpad & i
Next i
MsgBox "Alle spaarkassen zijn opgeslagen als PDF in de map " & bestandnaam & ""
End Sub
 
Laatst bewerkt:
Zo worden verborgen tabbladen overgeslagen:
Code:
PDFpad = "D:\Spaarkas18\"
For i = 1 To 6
    If Sheets(CStr(i)).Visible Then
        Sheets(CStr(i)).ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFpad & i
    End If
Next i

Voor het mailen van document verwijs ik naar dit:
https://www.rondebruin.nl/win/section1.htm

Mocht je er niet uit komen dan zien we dat hier wel.
 
Laatst bewerkt:
Net Niet

Best Ed Moor wil je nog eens voor me kijken

ik heb nu dit:
Code:
Private Sub CommandButton1_Click()
Dim i As Long
Dim OutLookApp As Object
Dim OutLookMailItem As Object
Dim myAttachments As Object
Set OutLookApp = CreateObject("Outlook.application")
Set OutLookMailItem = OutLookApp.CreateItem(0)
Set myAttachments = OutLookMailItem.Attachments
With OutLookMailItem
[CODE][CODE]For i = 1 To 6
If Sheets(CStr(i)).Visible Then
.To Sheets(CStr(i)).Range("q39")
'.To = Range("q39")
.Subject = "Spaarkas"
.Body = "Hoi " & Range("a2") & vbNewLine & "in de bijlage een overzicht van je spaarkas." & vbNewLine & vbNewLine & "Met vriendelijke groet," & vbNewLine & "Spaarkas de Donderie"
myAttachments.Add "d:\spaarkas2018\" & Range("A6") & ".pdf"
'MsgBox "Je PDF bestand is ook opgeslagen in de map \"
'.send
.Display
End With
Set OutLookMailItem = Nothing
Set OutLookApp = Nothing
    End Sub

Als ik nu eerst in de map alle pdf-jes zet middels je eerdere hulp.
dan gaat het hier mee lukken
maar moet ik 96 keer een knopjes aanmaken op elk tabblad 1
dus heb ik dit stukje code van jou weer gebruikt
Code:
For i = 1 To 6
If Sheets(CStr(i)).Visible Then
.To Sheets(CStr(i)).Range("q39")
hopende dat het dan sneller zou gaan maar dat lukt even niet.
in Q39 staat voor elke deelnemer zijn/haar mailadres
 
Laatst bewerkt:
Ik heb daar niet eerder dan vanavond tijd voor.
Als niemand me voor is zal ik er naar kijken.
 
Mail voorbeeldje.
Als het tabblad numeriek is zie je deze in de lijst.
Kiest een lid of alle leden, als er een Email adres in A5 staat wordt er een een mail verstuurd met pdf als bijlage.
 

Bijlagen

  • Mail voorbeeld.xlsm
    45,2 KB · Weergaven: 39
Oke

Bedankt voor dit mooie voorbeeld
het is echter de bedoeling dat als ik nummer 6 kies
de inhoud van kas 6 gemaild wordt (in pdf) naar het mailadres wat in cel q36 staat van blad 6
kies ik 12 dan de inhoud van blad 12 naar mailadres q36 van blad 12
enz
ik denk als ik dit zo bekijk dat je er heel dicht bij bent
dit gaat mij ver boven de pet maar ziet er heel mooi uit

was meer aan het denken aan een input box
waar enkel een cijfer ingetikt moet worden, dit cijfer naar de juiste kas (lees tabblad) gaat
er een pdf van maakt en verstuurd naar het mailadres van cel q36

jaja het bedenken lukt me wel
maar de uitvoering...
hoop dat zoiets mogelijk is en dat ook iemand wel weet hoe dit te maken
 
Waarom deze?
dit dan mailt naar het mailadres wat in Range("A5") staat
als het plotseling q36 moet zijn. (daarom is een gelijkend vb belangrijk;))
Sleep de functie module en de userform naar uw bestand.
Aan de functie module moet je niets veranderen.
Vervang in de userform code waar een A5 staat door Q36,klaar. (gebruik zoeken en vervangen)
 
het is echter de bedoeling dat als ik nummer 6 kies
de inhoud van kas 6 gemaild wordt (in pdf) naar het mailadres wat in cel q36 staat van blad 6
kies ik 12 dan de inhoud van blad 12 naar mailadres q36 van blad 12
enz

was meer aan het denken aan een input box
waar enkel een cijfer ingetikt moet worden, dit cijfer naar de juiste kas (lees tabblad) gaat
er een pdf van maakt en verstuurd naar het mailadres van cel q36


Zo te lezen wil je alle 86 bladen niet meer gelijktijdig mailen en er een pdf van.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan