Email Selected Sheets Via Userform
Apr 3, 2014
I am trying to set up something similar to the old "print dialogue" box whereupon the user presses a command button on the userform and all sheets within the work book are listed (eg:sheet1, sheet2 etc) The user can select any amount of sheets and and using "OK" outlook is fired up- pretty similar to Ron de Bruins code for email.
I have tried taking the print dialogue vba and stooping it at copy, then trying to gets Ron's code to continue- without success.
There are great bits of code I've seen for select tabs and selct sheets from listbox, but I have found none to email once selected.
View 4 Replies
ADVERTISEMENT
Jun 13, 2006
I have created a custom Menu (excel add-in) to make my work easy in excel. My problem is to print only selected sheets from Workbook in one PDF file, for that I've created a Userform with 2 listboxes, add sheet and print buttons. In the first listbox are listed all the sheets and in the second listbox are the sellected sheets to be printed. What I've succeded so far is to print selected sheets, but it creates one PDF file for each sheet, only if I put my code in workbook and not in Menu add-in (.xla file). As PDF Printer I use PDF reDirect Pro v2.
View 8 Replies
View Related
Apr 30, 2014
What is the code for getting Excel to send an email once I close a line item? I got some code from another post but can't get it to work for me. My current spreadsheet is a list of outstanding problems. Once the issue is "Closed" (Dropdown in column U), I would like Excel to email a recipient who's address is in Column K. The issue is in the code - If c = "Closed" Then
Sub Closed()
'You need to Reference Outlook
'Goto Tools>References and select Microsoft Outlook Libary 9.0 (or your version)
Dim olApp As Outlook.Application
[Code].....
View 5 Replies
View Related
Sep 22, 2008
I have the following code that carries out a selection and then brings up in a print preview.
View 13 Replies
View Related
Oct 17, 2013
I have the following vba codes :-
Sub Mail_Cascavelle()
Range("b2") = Format(Date, "dd/mmmm/yyyy")
Const mydrive = "R:"
Const mydir = "Credit AdminSeebaruth RakeshSEARCHES NO SIGNATURE"
Dim myname As String
Dim ss As String
myname = Sheets("sheet1").Range("e5").Text & Format(Date, "dd-mmm-yy") & ".xls"
ss = mydrive & "" & mydir & "" & myname & ".xls"
Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs Filename:=ss
[code]....
View 2 Replies
View Related
Feb 25, 2010
I am wrote below code to send email using VBA:
Sub SendEmail()
'References needed :
'Microsoft Outlook Object Library
'Microsoft Scripting Runtime
Dim olApp As Outlook.Application, olMail As Outlook.MailItem
Dim FSObj As Scripting.FileSystemObject, TStream As Scripting.TextStream
Dim rngeSend As Range, strHTMLBody As String
Dim Range1 As Range, Range2 As Range
alertsSheet = ActiveWorkbook.Name
Workbooks(alertsSheet).Activate
Sheets("STATS").Select
Issue with this code is it is selecting wrong source range while generating email.
MsgBox Range1.Address is giving results as "$A$1:$B$1,$BX$1:$CA$1" and
MsgBox Range2.Address is giving results as "$A$32:$B$38,$BX$32:$CA$38" but
MsgBox rngeSend.Address is giving results as "$A$1:$B$38"
And the email generated as output is having only the data from range "$A$1:$B$38". Is there anything wrong with the way I am specifying the source range ??
I need that the code should replace strHTMLBody with the data in Range1 and Range2. I checked the tempsht.htm file and found that this file also have the same wrong data i.e. data from range "$A$1:$B$38"
Needless to specify that I am working with data having few hidden columns and need to consider only visible data.
View 9 Replies
View Related
Jul 12, 2014
I have used a database template from this site and changed it to suit my needs but I have a bit of a problem with some of the code. I know how to update the worksheet with the relevant userform text fields and in another project I did I have successfully sent userform text fields in the body of an email.
For this project I want to update the worksheet AND send an email at the same time. However, using the two pieces of code together is causing an error that I can't seem to solve (using my very limited vba knowledge!). The code I am working on is below and I have highlighted the line that is getting the error message. C
VB:
Private Sub cmdSubmit_Click() 'Submit new record
Dim ws As Worksheet, lRow As Long, Str As String [code]....
View 1 Replies
View Related
Jan 16, 2009
I'm working with an excel file, a userform and a command button. The command button is the main question here. Bascally when this button is clicked and email is sent to a specific person, me. This email also contains an attachment, and currently that is the active workbook open behind the userform. This works well, sort of. I sent this excel file to 5 co-workers to test. All but 1 worked OK. One, however, did not.
When the button was selected the standard Outlook message came up: "...an automated email is being sent on your behalf...select YES to continue..."...It all looks fine, but nothing happens...nothing shows up in their sent items folder and I do not receive this message.
Has anyone experienced this before? Is there a sitting with this users Outlook that prohibits the sending of automatic emails? I've added my command button code below...incase someone sees thing strange...(I am rather new to vba coding...)
View 4 Replies
View Related
Jul 24, 2012
I've create a userform1 that sends information via email. I have seen userforms that do the same, but that after sending, the sent email doesnt show in the sent items from outlook.
The userform has 2 tectboxes and when the person sends the email the text from the second box comes right after the first one, no space or anything. How do I separate the text by space or paragraph.
View 2 Replies
View Related
Dec 13, 2006
I have cobbled together a userform that works great, it prints, saves and clears as desired. Now i want to email a copy of the userform to a specific email receipiant.
View 4 Replies
View Related
Aug 11, 2006
I have a userform which shows contact information e.g. telephone and email.
The data for each contact is in a row in a sheet.
The email for each contact is a hyperlink which works as it should.
How can I use the address directly from the userform textbox?
View 9 Replies
View Related
May 5, 2009
I am very new to VBA and I am trying to create a userform which can be filled in and then when command button "submit" is clicked the completed form is emailed to myself. I have created the code for this but the userform is arriving as a blank attachment.
View 9 Replies
View Related
Jun 26, 2008
below is a VB code to email separate sheets based on sheet anme and email address on a sheet called " mail".
Code seems to fail at the last line " Next a" any ideas why this is not working
Sub Mail_sheets()
Dim MyArr As Variant
Dim last As Long
Dim shname As Long
Dim a As Integer
Dim Arr() As String
Dim N As Integer
Dim strdate As String
For a = 1 To 253 Step 3
If ThisWorkbook.Sheets("mail").Cells(1, a).Value = "" Then
Exit Sub
View 9 Replies
View Related
Feb 12, 2008
I have a worksheet that has data for separate sheets for each date of the month.
Therefore, the month of January has sheets for 31 days.
I need to sum a particular cell in each sheets only for Monday.
Therefore, I need the formula to sum cell B4 only for the sheet for Jan 7, Jan 4,Jan 21 and Jan 28.
View 9 Replies
View Related
Jul 9, 2014
I am working on a code which works, however, its is not working entirely as i intended. In this example, the body of the email should contain content from textbox.
I have 3 text boxes, not all are expected to be filled out. So if only textbox1 is filled out, the body should only include information derived from textbox1.
Whats happening now is that even if textboxes 2 and 3 arent filled out, the body of email produces blank formulas from textboxes 2 and 3. So how do i fix this code so that if I enter data into textbox1 only, the body of email will not include empty formulas? Ive also attached a copy of the Produced email file. Code in question is in red font
Attached Image : 7-9-2014 11-21-35 PM.png
View 4 Replies
View Related
Feb 9, 2014
I need to make a userform that will add data to table placed (for example G12:H12), and if G13:H13 cells are written to next cells below (G14:H14). I would also want to receive auto email noticiation (or notofications by pressing another command_button) that someone add data with copied content of (G13:H13...G14:H14....) cells in email body.
View 1 Replies
View Related
May 13, 2014
Work on a spreadsheet with multiple sheets , that will then be emailed once a month, with different sheets going to different contacts because of our timezone difference.
If a sheet could be used to maintain a list of contacts and which sheet to email out Also in which format PDF, Excel (locked down) or both would be useful.
A button maybe on the contact sheet to start the process / but also with an option to set-up to email on a certain day per month would be good.
the number of contacts at the moment varies between 1 and 4 for each sheet - perhaps , we could set-up to email up to 10 contacts per sheet
The email client is Outlook
Each contact should only receive their sheet and not see any of the other sheets , also the contacts should not be able to alter the spreadsheet at all. hence the possibility of using PDF , but most still would like to see the report in excel format.
there would be about 20 sheets , to go to between 1 and 10 contacts for each sheet
I have attached a dummy workbook , which has 4 example worksheets in
In the real workbook, the worksheet names , also will have spaces in them.
I could setup a Start Sheet and a finish sheet - so that the macro - can go through each worksheet in between , if that offers a solution also a maintenance sheet which has the sheet name , email contacts email address and PDF, Excel or both format.
I have outlook on my PC , so i can play - BUT its not connected via exchange server, if that makes any difference.
View 2 Replies
View Related
Feb 27, 2014
I have a (MultiSelect) ListBox1 that is populated with Customer Names for the user to select from. I want the user to be able to hit the CommandButton1 adjacent to the ListBox1, and the selected Customers copy into/get added to the ListBox2.
I have the following code, adapted from other code, but it is not working:
[Code] ........
View 2 Replies
View Related
Dec 17, 2008
I have a user form containing a calendar. What I'm trying to do is that if any cells are selected in a range - D4:E83 - then I want to run the userform therein forcing the user to use the calendar and ensure the date is correctly formatted.
The userform is named frmCalendar.
View 5 Replies
View Related
Feb 25, 2009
I would like to have a userform activated when I select a specific cell "g77". I tried a code that I found while searching the forum but it did not work.
The userform name is ufMutualAid
I am not sure if it makes it any easier to write the code three times seperately or if I can put them together, but the same idea is needed for
L79 ufPersonnel
L81 ufApparatus
View 9 Replies
View Related
Feb 24, 2009
I have created a Multipage Userform which I want to control the display when certain condition is met. I am using a button to call up this userform but I wanted to put some limitation to this form being displayed. This form will only be displayed when any of the cells in Column B Row 20 downwards or Column D Row 20 downwards are selected.
View 9 Replies
View Related
Jun 27, 2014
I can find code that allows me to open a word document and insert the value of a TextBox into the bookmark.
I have a bookmark in a OFT file (Outlook Template) and can't seem to make the same thing happen.
My question: Can you insert the value of a TextBox into the bookmark in the body of an email?
View 2 Replies
View Related
Feb 1, 2007
I'm probably asking something very complicated in coding but I
was hoping someone could give me a macro code that would do a search
for a cell's input, but only search selected sheets.
example: "Please enter the word you are searching for here, and click the enter button:"
'here' would be cell C20. the value of cell C20 would be searched for on various
selected sheets written in the macro only.
View 12 Replies
View Related
Dec 18, 2008
I use the command ActiveWindow.SelectedSheets.Copy to copy selected sheets into a new workbook. As a result of this line is a new workbook created and a the selected sheets are pasted into the new workbook. Is it possible to paste only values by using a single line like this?
View 2 Replies
View Related
Apr 8, 2009
how I can change this code to apply to only the sheets that are selected (grouped) as opposed to every sheet in the workbook?
For Each shName In ActiveWorkbook.Sheets
View 9 Replies
View Related
Jun 4, 2014
Have two sheets, both very different, but each containing Last Name, First Name and a column for email addresses (one sheet has the email addresses entered, the other does not)
What we are trying to do is look for matches in Last/First columns between the two sheets and if/when found copy the email addresses from one sheet to the other.
Worksheet A: Last=B2 First=C2 Email Address=F2
Worksheet B: Last=A2 First=B2 Email Address=C2
View 5 Replies
View Related
Jul 5, 2014
I've created and coded a vba userform that creates purchase orders for my projects. The user begins by selecting the project code from the combobox (the project code is a unique identifier of each project). Once the purchase order is created, the information is logged in a separate sheet called "POLog" and the userform is cleared. The project code is saved in the first column of the "POLog".
My problem is that when I have more than one purchase order to create for the same project (sometimes I have 20 or 30), the combobox starts out empty and I have to manually select the project code from the combobox. Is there a way to allow the userform to recall the last project code that was used? Maybe recalling it from the last row in the "POLog" sheet?
View 7 Replies
View Related
Oct 17, 2011
I currently have a user form and am trying to make a counter to that will increment if the check box is not selected, but will not increment if the check box is selected.
I am assuming I could use an if then statement for this, under the command_click OK. but I cant get it to work.
View 9 Replies
View Related
Apr 26, 2013
I have some Worksheet_SelectionChange code that automatically calls a Userform when a cell is selected.
What I want to do is retrieve the data from the cell where the Userform is called from and enter it into a textbox on the Userform.
There are 3 other columns to the right of the cell that is selected.
If there is data populated there, I want this to be copied to the appropriate textboxes on the Userform too.
View 1 Replies
View Related
Feb 28, 2014
Returning items selected from a ListBox. I have a Multiselect Listbox with 15 items. Additionally, I have a worksheet with 15 columns (each one corresponding to the 15 ListBox items). I'm looking for code that will do the following:
After a user selects values from the ListBox (can be more than 1, thus the Multiselect), I would like for "TRUE" to appear in row 2 of the worksheet for each column. (IE: Column A is for Bikes, if a user selects "Bikes" from the ListBox and hits a CommandButton, I would like for A2 to say "TRUE".
View 5 Replies
View Related
