VBA script needed

[blurr1974]

I'm trying to create a looped script that changes the value of one cell, saving it as a PDF after each change, until that cell equals the value of another cell.

As an added degree of difficulty, I then want to attach all the PDF files to an outgoing email.

To add a little more detail to my request, I am creating a template that will always be a # of # copies (ie: "file name 1 of 10.pdf") that loops until all are done. Once they are done, I'd like them all attached to an email. I really hope that makes sense, I'm still kind of new at all this...


Any help with this would be greatly appreciated.

Thanks.

 

[Michael M]

Ok, to see if we are on the right track this will loop through and create a new PDF while cell B1 is less than cell A1.
Each time it loops it names the PDF after whatever is incell B1.....is that the sort of thing you are after

Sub PDFActiveSheet()
Dim ws As Worksheet, strPath As String, myFile As Variant
Dim strFile As String
Do While Range("B1").Value < Range("A1").Value
strFile = Range("B1").Value & ".pdf"
strFile = ThisWorkbook.Path & "\" & strFile
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFile, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=true
With Range("B1")
.Value = .Value + 1
End With
Loop
End Sub

 

[blurr1974]

I'll make a few minor tweaks to get it saving where I want, and in the file name format I'd like, but I think this should do the trick!

Thank you so much!

 

[Michael M]

OK, when you've tweaked post back with the emailing requirements...