Macro's (Opslaan en mailen)

[Toops]

Hallo,

Voor de administratie van een klein bedrijf maak ik gebruik van Excel en ik wil nu ook graag gebruik maken van macro's voor automatisch opslaan en mailen.

Ik ben inmiddels zover dat ik bladen in mijn werkblad los van elkaar kan opslaan als PDF. Ik ben alleen nog niet helemaal tevreden over de naam hij de macro ze geeft.
Ik wil graag eerst het factuurnummer(die staat in cel I9 van ieder blad) en daarna de naam van het blad(dat doet de macro wel).
Heeft iemand hier tips voor?

Nu wil ik ook graag dat de macro(of een andere macro) diezelfde PDF files in een email verstuurd naar een desbetreffend adres met een bepaald onderwerp.
Ik heb de mailadressen in een apart werkblad staan, zodat daarmee gelinkt kan worden.

Ik heb al veel gezocht en gelezen hierover maar ik kom er niet helemaal uit.

Alvast enorm bedankt!

Toops

 

[Rooie Darp]

Toops voorbeeldbestandjes zou wellicht helpen.

Met het faktuurnr kan ik je niet helpen.

Miscchien heb je voor de ander vragen hier wat aan.
Hier info over: Pdf opslaan
Hier is info over mailen

Misschien kun je beide combineren.

Misschien is het beter om specifiek iets te vragen,

Dus beginnen met een voorbeeldbestand en dan eerst het faktuurnummer oplossen en daarna het maken van de pdf en het mailen

Succes

 

[OctaFish]

Doe er een voorbeeldje bij, dat kijkt een stuk makkelijker. Als je wél de naam in je macro kunt krijgen maar niet de inhoud uit een cel, dan wil ik die macro wel eens zien. Want een cel uitlezen is zo'n beetje het eerste dat je leert in een Excel macro .

 

[Toops]

Bedankt voor de reacties!
Inderdaad handiger om iets specifieks te vragen

Ik heb toch even verder gezocht vandaag en ik kwam uit bij deze macro's van Ron de Bruin.
http://www.rondebruin.nl/mac/mac005.htm

Als deze macro's werken ook perfect op mijn Mac
Maar als ik dan de macro: Create a PDF with Sheet1 & 3 wil gebruiken op mijn eigen Werkmap krijg ik een foutmelding.
Sub of Functie niet gedefinieerd. Sub CreatePDFActiveWorkbook() word geel aangeduid

Heeft dat iets te maken met de gebruiker of auteur van de werkmap? En hoe pas ik dit aan zodat hij wel zal werken?

 

[Toops]

Dit is de macro die ik wil overzetten naar mijn eigen werkmap

Option Explicit

Sub CreatePDFActiveWorkbook()
'Ron de Bruin, 1-June-2012
Dim TempPDFFolder As String
Dim PDFfolder As String
Dim PDFfileName As String

'Path to folder where we save the pdf's temporary. The code will create
'the folder named "PDFTempFolder" in your Documents folder for you
TempPDFFolder = MacScript("return (path to documents folder) as string") & "PDFTempFolder:"

'Folder where you want to save the PDF file, Documents folder in this example
PDFfolder = MacScript("return (path to documents folder) as string")

'Enter the file name that you want to use for the PDF, do not add the extension.
PDFfileName = "MyWorkbook " & Format(Now, "dd-mmm-yy h-mm-ss")

'Do not change the macro calls below
Call MakePDF(TempPDFFolder, PDFfolder, PDFfileName, False)
Call DeleteFilesInPDFTempFolder(TempPDFFolder)
Call MakePDF(TempPDFFolder, PDFfolder, PDFfileName, True)
End Sub


Sub CreatePDFSheetArray()
'Ron de Bruin, 1-June-2012
Dim TempPDFFolder As String
Dim PDFfolder As String
Dim PDFfileName As String

'Path to folder where we save the pdf's temporary. The code will create
'the folder named "PDFTempFolder" in your Documents folder for you
TempPDFFolder = MacScript("return (path to documents folder) as string") & "PDFTempFolder:"

'Folder where you want to save the PDF file, Documents folder in this example
PDFfolder = MacScript("return (path to documents folder) as string")

'Enter the file name that you want to use for the PDF, do not add the extension.
PDFfileName = "MySheetsArray " & Format(Now, "dd-mmm-yy h-mm-ss")


Application.ScreenUpdating = False

'copy the sheets in the array to a temporary file
Sheets(Array("Sheet1", "Sheet3")).Copy

'Do not change the macro calls below
Call MakePDF(TempPDFFolder, PDFfolder, PDFfileName, False)
Call DeleteFilesInPDFTempFolder(TempPDFFolder)
Call MakePDF(TempPDFFolder, PDFfolder, PDFfileName, True)

'Close temporary file
ActiveWorkbook.Close SaveChanges:=False

Application.ScreenUpdating = True
End Sub


Sub CreatePDFSheet()
'Ron de Bruin, 1-June-2012
Dim TempPDFFolder As String
Dim PDFfolder As String
Dim PDFfileName As String

'Path to folder where we save the pdf's temporary. The code will create
'the folder named "PDFTempFolder" in your Documents folder for you
'Note: this will not be used when you create a pdf of one sheet but not remove this line
TempPDFFolder = MacScript("return (path to documents folder) as string") & "PDFTempFolder:"

'Folder where you want to save the PDF file, Documents folder in this example
PDFfolder = MacScript("return (path to documents folder) as string")

'Enter the file name that you want to use for the PDF, do not add the extension.
PDFfileName = "MyWorkSheet " & Format(Now, "dd-mmm-yy h-mm-ss")

Application.ScreenUpdating = False

'You can also use this for the activesheet : ActiveSheet.Copy
Worksheets("Sheet2").Copy

'Do not change the macro call below, you see that we only have one macro call
'if we create a PDF of one sheet because we not have a problem with the bug that
'create a pdf of each worksheet in the workbook because there is only one sheet.
Call MakePDF(TempPDFFolder, PDFfolder, PDFfileName, True)

'Close temporary file
ActiveWorkbook.Close SaveChanges:=False

Application.ScreenUpdating = True
End Sub