Copy and Paste in New File to Send in E-Mail Macro

T

TooZippy

Board Regular
Joined
Dec 30, 2018
Messages
70
I wanted to create a macro that the user can enter into a message box the day of the month. The macro would continue to run that would copy the corresponding week from a series of columns and paste in a new excel file that would be attached to an e-mail and mailed. Can this be done??? Thank you.

TooZippy
 

Excel Facts

Highlight Duplicates
Home, Conditional Formatting, Highlight Cells, Duplicate records, OK to add pink formatting to any duplicates in selected range.
Sort by date Sort by votes
TooZippy said:
I wanted to create a macro that the user can enter into a message box the day of the month. The macro would continue to run that would copy the corresponding week from a series of columns and paste in a new excel file that would be attached to an e-mail and mailed. Can this be done??? Thank you.

TooZippy
Click to expand...

I was able to get this macro that would partially do what I want. However, I want it to put a header in the new file that I am pasting the data into but the macro is in the source file. Can I run the macro in the source file to put the header in the destination file? Here are the macro's..

Code: 
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]Private Sub CommandButton1_Click()[/COLOR][/FONT]

[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]Dim newWB As Workbook, currentWB AsWorkbook[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]Dim newS As Worksheet, currentS AsWorksheet[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000] [/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]'Copy the data you need[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]Set currentWB = ThisWorkbook[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]Set currentS = currentWB.Sheets("Sheet1")[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]currentS .Range("A:M").Select[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]Selection.Copy[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000] [/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]'Create a new file that will receive thedata[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]Set newWB = Workbooks.Add[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]   [/COLOR][COLOR=#000000]With newWB[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]       [/COLOR][COLOR=#000000]Set newS = newWB.Sheets("Sheet1")[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]       [/COLOR][COLOR=#000000]newS.Range("A1").PasteSpecial Paste:=xlPasteValues,Operation:=xlNone, _[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]       [/COLOR][COLOR=#000000]SkipBlanks:=False, Transpose:=False[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]       [/COLOR][COLOR=#000000]'Save in CSV[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]       [/COLOR][COLOR=#000000]Application.DisplayAlerts = False[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]       [/COLOR][COLOR=#000000].SaveAs Filename:="C:\Temporary.csv", FileFormat:=xlCSV[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]       [/COLOR][COLOR=#000000]Application.DisplayAlerts = True[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]   [/COLOR][COLOR=#000000]End With[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]End Sub[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000] [/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][B][FONT=Calibri][COLOR=#000000]SubAddHeaders()[/COLOR][/FONT][/B]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000] [/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]Worksheets("Sheet1").Activate[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]Dim headers() As Variant[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]Dim ws As Worksheet[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]Dim wb As Workbook[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]Dim i As Integer[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000] [/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]'Inserting a Row at at Row 1[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]Worksheets("Sheet1").Range("A1").EntireRow.Insert[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000] [/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]Application.ScreenUpdating = False 'turnthis off for the macro to run a little faster[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000] [/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]headers() = Array(“ “, “ “, "1st","2nd", "3rd", "4th", "5th", "6th","7th", "8th", "9th",  [/COLOR][COLOR=#000000]"10th", "11th", [/COLOR][COLOR=#000000] [/COLOR][COLOR=#000000]"12th", ”13th”, ”14th”, ”15th”, ”16th”,”17th”, ”18th”, ”19th”, ”20th”, ”21st”, ”22nd”, ”23rd”, ”24th”, ”25th”, ”26th”,”27th”, ”28th”, ”29th”, ”30th”, ”31st”)[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]   [/COLOR][COLOR=#000000]With Sheet1[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]       [/COLOR][COLOR=#000000].Rows(1).Value = "" 'Thiswill clear out row 1[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]       [/COLOR][COLOR=#000000]For i = LBound(headers()) To UBound(headers())[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]            [/COLOR][COLOR=#000000].Cells(1, 1 + i).Value = headers(i)[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]       [/COLOR][COLOR=#000000]Next i[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]       [/COLOR][COLOR=#000000].Rows(1).Font.Bold = True[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]   [/COLOR][COLOR=#000000]End With[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000] [/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000]Application.ScreenUpdating = True 'turnit back on[/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][COLOR=#000000] [/COLOR][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT="Calibri"][COLOR=#000000]End Sub[/COLOR][/FONT]

Thank you,
TooZippy
 
Upvote 0
You must log in or register to reply here.

Similar threads

A
  • Question Question
Copying whole word document, into excel + formatting columns and cells
Replies
1
Views
249
Macropod
Macropod
R
  • Question Question
Mail merge to insert the picture in the mail body and schedule the email
Replies
0
Views
1K
rafeek4u
R
xarzu
  • Question Question
How do I resolve this exception thrown while trying to do CRUD operations on CSOM?
Replies
2
Views
248
xarzu
xarzu
spacecaptainsuperguy
  • Question Question
Simple VBA for Outlook - Copy last sent email
Replies
0
Views
538
spacecaptainsuperguy
spacecaptainsuperguy
J
  • Question Question
Script to automatically import a .csv file into a google doc
Replies
1
Views
561
jimbogarner
J

Forum statistics

Threads
1,223,677
Messages
6,173,794
Members
452,534
Latest member
autodiscreet

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top