Attach a single worksheet(not the workbook) to email using Excel UserForm Command button

**jaeda1920** · 05-05-2017, 04:29 PM

I am not well versed in vba but have understood enough to create a user feedback form.

What I am trying to do is email a single worksheet (which is the the first sheet because that is used to collect the data, the second sheet which is what I want to attach is where the data is stored.

I have been doing research online and the only two solutions I can find is either email the active sheet or email the entire workbook. I feel the code I have is close to what I want to accomplish but I want it to send sheet 2 as the attachment and not sheet 1.

Dim SourceWB As Workbook
Dim DestinWB As Workbook
Dim OutlookApp As Object
Dim OutlookMessage As Object
Dim TempFileName As Variant
Dim ExternalLinks As Variant
Dim TempFilePath As String
Dim FileExtStr As String
Dim DefaultName As String
Dim UserAnswer As Long
'Dim x As LongDim
Dim strDate As String

'Optimize Code
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False

'Copy only selected sheets into new workbook
ActiveWorkbook.Sheets("Sheet2").Copy //there is where is bugs out
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _
& " " & strDate & ".xls"
Set SourceWB = ActiveWorkbook
SourceWB.Windows(1).SelectedSheets.Copy
Set DestinWB = ActiveWorkbook

Any assistance is greatly appreciated.

also posted on ozgrid: http://www.ozgrid.com/forum/showthre...844#post791844

**Keebellah** · 05-05-2017, 04:46 PM

Hi, welcome to the forum
It's easier and faster if you look at the attached links
https://www.techonthenet.com/excel/m..._sheet2007.php
http://www.vbaexpress.com/kb/getarticle.php?kb_id=350

**jaeda1920** · 05-05-2017, 05:15 PM

thank you for responding but I'm not trying to email the activeworksheet I am trying to email a separate worksheet in the same workbook (that is hidden from the user) so these examples will not work.
The userform that collects the data is the activeworksheet (sheet 1)
The sheet I want to email is the userfeedbackdata (sheet 2) - which is hidden and not the activeworksheet.
Both are in the same workbook.

Jaeda

**Keebellah** · 05-05-2017, 05:18 PM

You can reference it and to the same but I would suggest you unhide it copy it and hide it using the code. It does not have to be the active sheet, just name i correctly in the code.
Is screen updating is false nobody sees it it just 'happens'

**jaeda1920** · 05-05-2017, 05:30 PM

I'm not sure I'm following. everytime I use the activesheet code its sends the user excel form. that is not what we need in the email. the actual data which is in sheet 2 needs to be sent. when i do active sheet it only sends the first sheet.

**jaeda1920** · 05-05-2017, 05:51 PM

Hopefully this screenshot helps. When coding is used to do activesheet, the instructions page is sent, what I need send is the userfeedback sheet.

I don't want the entire workbook sent because the userform could be activated again by accident and cause confusion. I just want to send the userfeedback sheet.
win10.jpg

**Keebellah** · 05-05-2017, 05:51 PM

This code works:

Please Login or Register  to view this content.

**Keebellah** · 05-05-2017, 05:52 PM

Just make sure the sheet name you want to send is the correct one

**jaeda1920** · 05-05-2017, 06:17 PM

So i tried the code and its sort of working, the email never populates, it creates a new workbook but not the email attachement. IT also opens the file throwing the person completely out of the form, the goal is to back to the form once the email is sent.

I'll keep playing with the code because at least its taking the correct worksheet, now i have to get the email part to go again

**Keebellah** · 05-05-2017, 06:26 PM

Are you using Outlook? Have you checked Outlook? It doesn't send anything it just opens a blank new message with the file as attachment.
If the file doesn't contain private or sensitive data, I suggest you attach it, makes it easier.
The Userform, you will have to write code to close it, send the mail and reopen it.

**Keebellah** · 05-06-2017, 01:21 AM

It works here, I added a page with a command button that opens a userform with one button to send the worksheet and it works,

Result in screen capture, the userform remains visible and workheet is sent

**cytop** · 05-06-2017, 03:59 AM

Your post does not comply with Rule 8 of our Forum RULES. Do not crosspost your question on multiple forums without including links here to the other threads on other forums.

Cross-posting is when you post the same question in other forums on the web. The last thing you want to do is waste people's time working on an issue you have already resolved elsewhere. We prefer that you not cross-post at all, but if you do (and it's unlikely to go unnoticed), you MUST provide a link (copy the url from the address bar in your browser) to the cross-post.

Expect cross-posted questions without a link to be closed and a message will be posted by the moderator explaining why. We are here to help so help us to help you!

Read this to understand why we ask you to do this, and then please edit your first post to include links to any and all cross-posts in any other forums (not just this site).

**jaeda1920** · 05-08-2017, 11:58 AM

sorry, i didn't know. I updated the link

**jaeda1920** · 05-08-2017, 12:14 PM

so with this code, it works to an extent: It bugged out upon running and I changed the code from worksheets to sheets and is displayed the email in outlook and attached the file.:

Please Login or Register  to view this content.

however i can't open the attachment, not recognizing a program to open with which tells me it is not saved as a excel file and I'm not sure where I would update that at and i just want the file name to be simple like userfeedbackrequest.xlsx

Any thoughts on your code or the code from the other forum I posted on: http://www.ozgrid.com/forum/showthre...844#post791844

**Keebellah** · 05-08-2017, 04:17 PM

Sorry, my mistake, corrected the code, should work now.
The resulting attachment is a non-macro-embedded file (.xlsx)

Attach a single worksheet(not the workbook) to email using Excel UserForm Command button

LinkBack

Thread Tools

Rate This Thread

Display

Attach a single worksheet(not the workbook) to email using Excel UserForm Command button

Re: Attach a single worksheet(not the workbook) to email using Excel UserForm Command butt

Re: Attach a single worksheet(not the workbook) to email using Excel UserForm Command butt

Re: Attach a single worksheet(not the workbook) to email using Excel UserForm Command butt

Re: Attach a single worksheet(not the workbook) to email using Excel UserForm Command butt

Re: Attach a single worksheet(not the workbook) to email using Excel UserForm Command butt

Re: Attach a single worksheet(not the workbook) to email using Excel UserForm Command butt

Re: Attach a single worksheet(not the workbook) to email using Excel UserForm Command butt

Re: Attach a single worksheet(not the workbook) to email using Excel UserForm Command butt

Re: Attach a single worksheet(not the workbook) to email using Excel UserForm Command butt

Re: Attach a single worksheet(not the workbook) to email using Excel UserForm Command butt

Re: Attach a single worksheet(not the workbook) to email using Excel UserForm Command butt

Re: Attach a single worksheet(not the workbook) to email using Excel UserForm Command butt

Re: Attach a single worksheet(not the workbook) to email using Excel UserForm Command butt

Re: Attach a single worksheet(not the workbook) to email using Excel UserForm Command butt

Thread Information

Users Browsing this Thread

Similar Threads

I'm Stuck...Userform / Command Button export to worksheet in same workbook

Email data from Specific Rows in Multiple worksheets from Userform Command Button

Need a single command button to display data from 2 Sheets in a UserForm

I need to add a button that when clicked will automatically attach worksheet to email!

command button VBA to send automated email not workbook or worksheet

Email worksheet via command button

[SOLVED] How do you set up a submit button to attach worksheet in email?

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions