Macro That Mail Based On Cell Info?

Jan 29, 2014

I need a macro thaw sends a mail to a specific address (and CC) based on a critiria in a cell. This is the code I have. It does not send the mail.

[Code] .....

View 4 Replies


ADVERTISEMENT

Macro - Copy Data Based On Info In Cell From Separate Workbook

Jun 4, 2014

I have an invoicing spreadsheet, what I want is to have a main working page and then tabs after separated by vendor, but save myself a bunch of manual work in the future.

I want to be able to work in the main tab and the other tabs automatically update with the new info.

So I want the macro to search the text in the first column and if it finds "AIM Land Services Ltd." then I want it to populate the appropriate tab, in this case "AIM", with all the respective information after it ie: A-O. But I dont want it to select any other vendors/ info.

This is what I have:

Sub MoveData()
For Each cell In Range("A1:A1") ' Where to look for the date
If cell.Value = "AIM Land Services Ltd." Then ' The date
Range("A5:O350").Select ' What is the range to copy
Selection.Copy ' Copy it
Sheets("Invoice_Log").Select ' Select the Sheet it applies to
Range("A5").Select ' Where to paste the data

[Code] .........

View 1 Replies View Related

Copy Info From Cell Based On Line / Row Number?

Jun 17, 2008

My company has an excel file that has our new customer's information (colum A & B are first & last name;Column C is customer email; Colum D is cutomer phone, ect...)

once that information has been entered we have another excel file that will load all of a customer's information, and then be pasted into a welcome letter into MS Word for their confirmation & emailed to them

The problem I'm running into, Is that I do not know how to populate my nex excel sheet with the info I want only from a specific line.

I would like to enter a line / row number (for example '6') and than have excel go to that file & copy/paste the name, phone, email, company name, ect. into my new excel sheet

I have one that works already, but the previous owner PW protected it & hid his formulas/macros, so I'm in a dead end now...

View 9 Replies View Related

Copy Multiple Rows From One Book To Another Based On Info In Cell D

Aug 19, 2009

I have a workbook with a single worksheet that has about 2000 rows, columns A, B, C, D, E & F
Cells in colums A, B, C, E & F all have very different information in them, nothing is similar in any of those columns that I can base a criteria on. Cells in column D however will have 1 of about 18 possibilities in them

What I want to do is have another workbook with 18 worksheets, each worksheet named 1 of the 18 possibilities, and somehow magically pull the data from the first workbook and insert it into the correct worksheet in the second workbook, leaving the data in the first workbook intact.

I update the first workbook several times a day, adding and deleting from it so would need to update as it goes, or be able to run the update as and when needed.

My skills are limited to simple formulas inserted into cells and dragging them down!

View 11 Replies View Related

Automatic Cell Info Based On Another Cell?

Jan 20, 2014

I am trying to have one cell automaticall input infromation based on another cell. For example, if A1 = 10, then I want B1 to automatically equal 20.

The formula I am using in B1 is as follows - =if(A1="10","20","")

I have 2 problems though:

1st - I don't want to put the furmula in any cell because other information is put in there also. I tried putting it in conditional format but I don't think it is meant for such usage. Also, I already have something in data validation. so I can't put anything there because to my knowledge you can only put one validation per cell.

2nd - I have multiple numbers (around 7) that I need to be automatically inputed along the columns.

View 9 Replies View Related

Macro To Copy Paste Info From Every Other Cell

Apr 17, 2014

I have a table like this:

1/2/14
2345

1/6/14
34665

1/7/14
5473457

For Column A-I would like to create a macro that will copy the info from cell A1 and paste in in A2. This will continue all the way to the last row containing info which will vary. So after the first copy/paste, it well go to A3 and copy paste onto A4, A5 will copy and paste onto A6 etc.

For Column B- The same only it will copy the contents of B2 and paste it on B1, B4 copy/paste to B3 all the way until the last row of data.

View 1 Replies View Related

Macro Sub Auto_open() Add Cell Info To A Welcome Message

Jan 19, 2009

When I open my workbook I get a popup that says: Welcome Back...
Using a module with the following
Sub auto_open()
MsgBox "Welcome Back..."
End Sub

I want to have it say: Welcome Back, Phixtit

Where "Phixtit" comes from the cell "C15" on my "INFO" sheet.
Example:
='INFO'!$C$15

View 9 Replies View Related

Mail Merge Settings For Sending Multiple Mail?

Sep 14, 2012

We need to send multiple mail with attachment with outlook 2007 with option "Resend this message", now we want to use excel for sending the mail.

procedure.----------------------------------------------------------------------------------------------------
S.No. To cc----------------------------------------------------------------------------------------------------
1. xyz@ymail.com----------------------------------------------------------------------------------------------------
2. abc@gmail.com hursh@rediffmail.com, hursh@rediffmail.com, hursh@rediffmail.com, raj@hotmail.com----------------------------------------------------------------------------------------------------
3. ram@ymail.com ramesh@gmail.com---------------------------------------------------------------------------------------------------- 4. rajesh@ymail.com----------------------------------------------------------------------------------------------------
5. raghu@ymail.com raju@hotmail.com ---------------------------------------------------------------------------------------------------- 6. info@ymail.com----------------------------------------------------------------------------------------------------
7. ranjit@excel.com xyx@gmail.com----------------------------------------------------------------------------------------------------and

we have two files for attaching on desktop, one is a excel file and second is a zip file. we want to send the mail with excel mail merge.

View 1 Replies View Related

E-mail Worksheet For Various E-mail Clients

Nov 11, 2009

I have a workbook that has multiple worksheets and I would like to use a command button to e-mail just one selected sheet. I want to create the single sheet as an attachment on a new e-mail message but leave the addressing to the user as it will vary, and not save the single sheet. My challenge is that the users have a variety of different e-mail clients (Outlook, Lotus Notes and others).

View 2 Replies View Related

Add Signature Code In Mail Macro?

May 10, 2014

I tried to add signature code in a macro to send a mail from outlook but failed.

Add signature code in below code.

Signature Code Link.

View 9 Replies View Related

Send Mail On Outlook Based On Number Of Days Left To Deadline?

Jun 28, 2014

I have an excel sheet with one column containing deadline dates. I want the excel sheet to take each day's date and subtract it from the deadline date. If number of days left is less than 60. Send a mail via outlook to the email against that column.

View 3 Replies View Related

Macro For Sending Mail With Attachment From Outlook

Jan 17, 2013

I need to send 25 mails on daily basis to my client. All fields in mail are common except recipient and attachments. Every mail has 3 excel attchments. So i created a macro in excel which sends mail as per my requirement but picks up only one attachment from the path i have mentioned in the vb code. Whole macro is running perfectly. I just want to know what modification i should do in that code to attach more than one excel file to the mail from the path i have given. Below is the code:

Sub macro1()
Dim sFolder As String
Dim Folder As Object
Dim file As Object
Dim fso As Object

[Code]....

View 1 Replies View Related

Loop Mail Envelope Macro Through All Worksheets

Apr 29, 2014

I am using this RDB code to send a fixed range to a fixed recipient in the body of an email, but I would like to set it to run for all worksheets.

[Code] .........

View 5 Replies View Related

Automate A Word Mail Merge From Macro

May 17, 2007

Is there a way i can dictate to Word from an Excel macro that i want it to open, Start a mail merge, use a pre-made file as a template, use the excel file the macro is in as the source, get it through the whole setup of the Mail merge all the way to the print function?

View 9 Replies View Related

Mail Merge - Excel To Word Macro Edit?

May 3, 2012

This macro, enabled in Excel, is part of a chain of macros and will open Word, run the mail merge, save and close Excel. However, there is a macro in Word that I need to run but don't know how to activate it. Is there a code that I am missing that can be added to the end of the macro included?

VB:
Sub Mailmerge()
Dim wd As Object
Dim wdocSource As Object [code].....

View 6 Replies View Related

Macro - Print Excel Area As PDF And Attach To Mail

Dec 4, 2012

I would like to send a Excel printing area to a mail recipient by using a macro that:

2) Save the printing area as a pdf - file - use a temporary filename
1) Opens MS Outlook mail
3) Attach the temp-file to the mail

View 6 Replies View Related

Mail Macro - Attach Saved PDF File To Email

Nov 21, 2013

I have written a macro but unable to make it work. The macro works but not the way I would like it to.

The macro has to save an excel sheet to a separate folder as a pdf format, a message box should pop up confirming the pdf file and then attach the same saved pdf file to an email.

Now the macro saves the pdf file where I need it to be saved, the msg box pop up and then the pdf file opens up on top of the msg box. If I close the pdf file the msg box which was hidden under the file is now shown. When I click "OK" it goes straight to outlook with the email addresses attached but the saved pdf file is not attached.

I've attached the script.

Sub Macro1()
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:UserReportsPDF Reports" & Range("Q3").Value _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True

[Code] ........

View 8 Replies View Related

Copying Table To Outlook Mail Body Using Macro

Jan 19, 2014

a macro to copy the contents of a selected range in an excel table to an outlook mail generated using a macro.

The only thing is that I need the grid along with the formatting of the selected Excel range.

View 3 Replies View Related

Generating Mail Message In Macro With A Specified Subject And Body

Aug 3, 2006

I have a form which is going to be used as an aid to staff, I have created Macro's that when clicked enter information in to fields in the worksheet, I would also like the macro to generate an email with a specified Subject and body filled out. At the moment all I have achieved is to generate an email through File - Send to - Mail recipient.

I have also tried to have an email created through Outlook using MAPI, but once again have been unable to create an email with or without a subject and message body. Below is how far I have got in creating an email using MAPI.

This is part of Macro to insert information Application.CutCopyMode = False

Selection.Copy
Sheets("Sheet1").Select
Range("E12").Select
ActiveSheet.Paste
Call SendAMessage
End Sub......................

View 2 Replies View Related

Macro To Open Word Mail Merge Document

Mar 5, 2007

I want to set up a one step button in an Excel workbook to open up a Word Mailmerge Document that I have already set up complete with Excel data source. I have used this code so far but it's not working. What else do I have to do?

Sub OpenWordMailmergeMasterB()
Set appWD = CreateObject("Word.Application")
appWD.Visible = True
appWD.Documents.Open Filename:="X:Detention filesMail MergeLesley's MailmergeMASTER Interim Report.doc"

'To Run the Mail Merge
'Data source is a range name in Excel workbook called "MailmergeReport":.....................

View 4 Replies View Related

Send Mail On Last Day Of Every Month If Last Day Is Saturday / Sunday Send Mail On Thursday

Mar 11, 2014

I am trying to write a macro to send mail on every Friday and also on last day of every month. If the last day of the month falls on Saturday or Sunday then the macro should mail on Friday. I have written a separate macro to send a mail. I have also written to check day(ie Monday, Tuesday etc) of today. If today is Friday or month end i can send mail. I dont know how to tell the macro to send mail on friday if the month last date is saturday or sunday.

Sub done()
Dim Dat As Date, x As Integer, y As Date, sorry As String
Dim str As String
sorry = "Today is not friday or month end. So i cannot send mails"
str = WeekdayName(Weekday(Now()))

[Code] ........

View 1 Replies View Related

Pulling Out Info Based On Text

Jul 23, 2007

I have a regular table of data and dependent on the info within a column of cells I would like the info to appear within one of 3 new sheets. BUT.... I can't figure it out because the info forms an irregular part of text within the cells in a specific column - Obviously if it was dependent on the whole of the text I could use Vlookup but it's not.

If it needs further clarification, a column of cells may have, say, "blahblah234/PLblah" -> If this cell contains within the text "PL" then it should have the whole of the row in the new sheet, if not then blank.

View 9 Replies View Related

Macro To Send Mail Via Lotus Notes Diff Recipients With Range?

May 22, 2013

Am trying for a code which will send mail to recipients mentioned in column A [to] Coulmn B [CC] & formatted range should be pasted as body of email lets say C:F. Each time formatted header should remain same is it will contain column heading. I have a code which sends mail to specified recipients mentioned in code .

Code:

Sub Send_Formatted_Range_Data() Dim oWorkSpace As Object, oUIDoc As Object Dim rnBody As Range Dim lnRetVal As Long Dim WB6 As Workbook Set WB6 = Application.Workbooks.Open("C:TESTDaily_BKG.XLS") Const stTo As String =

[Code]....

View 3 Replies View Related

Fill Info In Sheet One And Have Same Info Appear In All Sheets That Follow

May 12, 2014

I would like to fill in a a form on page /sheet one and have the same info on every sheet that follows is it possible?

View 3 Replies View Related

How To Fill Vertical Columns With Info From Horizontal Info

Aug 22, 2014

I have attached a spreadsheet and I am trying to capture the info in lines 2,7,12,17 and return the info into column d,e,f,g

The info in these columns at present has been manually entered but I am sure it could be automated.

OOL Roster Final 18-31Aug14.xlsx

View 1 Replies View Related

Counts Info Based On Multiple Conditions

Feb 22, 2009

I am trying to get a list which counts info based on multiple conditions but I can find no way round this one point

I have a sheet which has all the games played in a particular division and the time that each goal was scored and I am trying to break down the following

What I want is a list that has a column that has the result of how many times when team A were playing at home was a goal scored between the 45th and 65th minute


column A = Home Team
B=Away Team
C= Time of First goal
D=Time of Second goal
E=Time of Third etc

I have a countifs in place for counting the home team and counting if the first goal was scored in under 10 minutes (this is simple as obviously all the first goals are in column C) but what I want to do is be able to have a count of how many times a goal was scored between x number of minutes eg between 40-50.

My problem comes when trying to count the goal times as some matches will have no goals and the cells will be blank and others will have multiple cells filled and the figure I want could be in any column and I also only want it to count only the amount of games a goal was scored between those times so if a game had 3 goals scored in between that time I only want it to count 1.

The sheet has a lot more columns but this is the main sticking point.

View 10 Replies View Related

Deleting Rows Based On Info In Certain Cells

Nov 29, 2009

I have a column that has different SIC codes in it (00045, 00046, etc). I would like to set up a macro or filter that would take cells in this column and delete each row that contains a certain code that I don't want.

Example, I want to delete all the rows with SIC codes that have 00345, 00873, 00145, etc in a particular cell. I would like a macro that would look at each cell in the column and delete the rows that I don't want.

View 9 Replies View Related

Macro To Copy Dynamic Sheet In New Workbook - Save As Temp / Mail And Delete

Sep 15, 2014

Code to copy the sheet that get selected by if-then-elseif statement and paste in a new workbook, save the workbook as temp, email it and delete it,

sub sending_mail

Dim OutApp As Object
Dim OutMail As Object
Dim rng As Range
Dim DataWB As Worksheet

[Code] ......

View 2 Replies View Related

Strip E-mail From Cell

Oct 22, 2007

I have a spreadsheet which has a "User Description" column. In this column, most users have data that looks similar to this:

APPLICATION - john.smith@mycompany.com
APPWEB - jane-doe@somecompany.com
APPWEB - john_doe@othercompany.com
APPLICATION - TP - paul@acompany.com
APP/APPWeb/DEV - paulsm@thecompany.com

There are also cells in this column which literally have a sentence long description, but those are not my focus. What I need to do is find a way to strip out the e-mail address found in the examples above and copy them into a new cell (the same row for the corresponding user). I don't know where to begin for this.

View 9 Replies View Related

Delete Rows But Save Info Based On Three Different Criteria

Aug 13, 2012

I want to delete the rows if they do not equal "TL" based on certain criteria, but save the info
then delete the rows if they do not equal "Fedex" based on certain criteria, but save the info
then delete the rows if they do not equal "LTL" based on certain criteria

After the information has been filtered it is supposed to load to a template giving monthly information for each of the above, but this is not working

VB:
If Load = "LTL" Then
Range("A2").Select
Selection.Sort key1:=Range("F1"), order1:=xlDescending, Header:=xlYes
For x = 2 To TotalRows
If Cells(x, 6).Value > 10000 And Cells(x, 1).Value = "FEDX" Then

[Code] ....

I am pretty sure that my problem lies within the parenthesis where it says Rows("2:" & x-1).Delete. Am I supposed to put something else there since I am deleting rows based on three different loads?

View 6 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved