Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Using VB to Convert Single Worksheet to PDF then Email?
Hi, everyone -
I know it's been a long time, but I thought I'd jump back in with a doozie that I've been struggling with. I 've included a small bit of code below that is a small part of a much larger strip. Basically, what I use this bit for is to send a copy of one worksheet, out of a much larger income calculation spreadsheet, to a staff person. It works really slick, but I have one problem: when the staff person gets the email and opens the copies single worksheet, it gives a couple messages about wanting to update the formulas in the worksheet itself. I'm thinking, to eliminate these messages, I'm hoping there is a way to modify my code that that, maybe, after ActiveSheet.Copy, I can convert the worksheet to a pdf..... then finish out the code. Has anyone had any success in doing this before? Code: If Sheets("Data_Entry_Sheet").[k107] "" Then Sheets("FSS_Worksheet").Unprotect ("led52not") Sheet20.Select ActiveSheet.Copy ActiveWorkbook.SendMail ", Subject:=" FSS Escrow Sheet" ActiveWorkbook.Close False ActiveSheet.Shapes("object 6.wav").Select 'fss reminder msg' Selection.Verb Verb:=xlPrimary MyTimer = Timer Do Loop While Timer - MyTimer < 4 paperwarning = MsgBox("I HAVE HEARD THE REMINDER MESSAGE AND PROMISE, UPON PENALTY OF SOMETHING REALLY BAD HAPPENING, THAT I WILL PASS ON ACCOUNTING'S COPY OF THE FSS WORKSHEET TO THE APPROPRIATE STAFF PERSON.", vbOKOnly, "REMEMBER TO PROPERTLY DISTRIBUTE COPIES OF FSS WORKSHEETS!!!") Sheets("FSS_Worksheet").Protect ("led52not") Sheet2.Select [a1].Select Sheets("data_entry_sheet").Protect ("led52not") Thanks to everyone for the help. Take care. Golf |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Using VB to Convert Single Worksheet to PDF then Email?
Just wanted to see if I could bump this one up a little...... Thanks
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I email a single worksheet, not the entire workbook? | Excel Discussion (Misc queries) | |||
how do I email a single worksheet in Office 2007 | Excel Discussion (Misc queries) | |||
Email a single worksheet | Excel Discussion (Misc queries) | |||
How to Email single worksheet? | Excel Programming | |||
Emailing A single worksheet wit a email address | Excel Programming |