Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
What I show below is the code I am using to save a copied and exported
workshet. What I want it to do is to send the email after the new workbook is saved. any help will be much obliged. I tried Ron deBruin's site and I am not profficient enough to understand what may be going wrong. many thanks in advance!!!!!!! Alex Sub Macro1() ' ' Macro1 Macro ' ' Keyboard Shortcut: Ctrl+Shift+S ' Sheets("ACTUAL Q").Select Sheets("ACTUAL Q").Copy Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Call finish End Sub Sub finish() Dim sBase As String Dim sFile As String sBase = Range("a28").Value sFile = "c:\PROYECTO FA\" & sBase & ".xls" ActiveWorkbook.SaveAs sFile ActiveWorkbook.SendMail " ActiveWorkbook.Close End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Using Macro how to create email link for the email addresses in aRange or Selection | Excel Worksheet Functions | |||
send wkbk as an email attachment with an email address copied from | Excel Discussion (Misc queries) | |||
can I copy a column of email addresses, paste into email address? | New Users to Excel | |||
Transfer Email addresses from spreadsheet to email address book | Excel Discussion (Misc queries) | |||
Email editor closes when forwarding Excel-embedded email | Setting up and Configuration of Excel |