I have a spreadsheet that deals with expiration dates. The whole sheet is conditional formatted so that when the current date is within 3days of the date showing in A2 then that cell changes colors. Ok is it possible that a script can be written so that when the cell changes colors... (Someone is going to think I am silly asking this but) excel sends an automated Email?
View 2 RepliesI have a list of products in column A and a expiry column B. What I'm trying to do is when I open up excel, a macro gets invoked and creates a list of expiry products based on today, then sends me or someone else an email with a list attached or in body doesn't matter, so that I can attend to the problem. I've searched a lot of places and haven't found the right answer that I'm looking for. This shouldn't be new because I think others would have wanted to know something similar.
View 5 Replies View RelatedI been trying to create stuff that will make my work life real easy. I need creating a program that will send an email to different recipients. I created a spreadsheet the contains different information. When a persons name is selected on Column D, excel/outlook will generate an email to that person containing the info on Column A to D.
And then as soon as the work is processed and column G is filled, outlook will generate an email back to who created the requests column A.
Basically I have 5 columns from W to AA. Col X and Z have email addresses. Col W has recipients' names. Col Y will either be "yes" or "no". Col AA will either be "yes1" or "no".
When Col Y displays "yes" and Col AA displays "yes1" at the same time, I want to send email to the email addresses in Col X and CC the email addresses in Col Z. The code is doing what I want, except that it sends 2 same emails instead of 1...
Code:
For Each cell In Range("X31:Z35").Cells.SpecialCells(xlCellTypeConstants)
If cell.Value Like "?*@?*.?*" And _
LCase(Cells(cell.Row, "Y").Value) = "yes" And _
LCase(Cells(cell.Row, "AA").Value) = "yes1" Then
[code].....
I am trying to send an automated email by use of a "email" button. What I want it to do is to pop up a input box that will ask me who I want to send the email to, and once I hit ok it will send open up outlook and send the email. I have the code to work if I want it to be sent to a specific email address, but I can't seem to get the email address entry part to work. I will attach my code as it lays right now.
Private Sub CommandButton2_Click()'Need to reference: Microsoft Forms 2.0 Object LibrarySet OutApp = CreateObject("Outlook.Application")OutApp.Session.LogonSet OutMail = OutApp.CreateItem(0)strbody = "This is the most up to date copy of EAS Tracking 2.0 as well as the Resource Planning Sheet."attachmnt2 = "C:My DocumentsResource Planning Sheet_External.xls"On Error Resume Next'?|?|?|?|?|?|?|?|?|?|?|?|?|?|?|?|?|?|?|?|? BELOW IS WHERE I CAN'T GET TO WORK!!!With OutMailDim range As Longrange = Application.InputBox("How many copies do you want?", "Number of Copies").To = range.Subject = "This Weeks Reports".Body = strbody.Attachments.Add (attachmnt2).Display.SaveEnd With'__________________________________________________attachmnt3 = "C:My DocumentsReport DataWork Request Tracking Data FolderEAS Request 2.0.xls"On Error Resume NextWith OutMail.Subject = "This Weeks Reports".Body = strbody.Attachments.Add (attachmnt3).Display.SaveEnd .........
Making an excel program that will automatically Email 5 people with either the whole document, a link to the doc, or just an email using the cells to inform them on what needs to be checked. And I don't even know where to start.
There will be a spreadsheet with everyone's name going down in column A, and then in the row next to the name it'll have a date of when they were put on it. It'll then have another date of the time they need to have done certain things, like see the doctor or get a class done, so when the current date reaches the date in the column the cell that is the same date will turn red, and the document will be mailed to 5 of the higher ups to inform them they need to check on this Marine to see if he has accomplished whatever task has expired.
Ive been trying to research a lot of this on my own, but ran into problem where the current outlook version does not suppose the command DATE within an excel, so I need to make a database using multiple excel sheets using Visual Basic(or so I'm told now).
I have an excel sheet where automatically live data comes in.
When the cells reach a certain value the value in cell R1 becomes 1.
I want to make a macro in vba that sends me ONE email if the value becomes 1.
I tried :
Public Function MailS(mailtrigger As Double) As Double
If mailtrigger = 1 Then
Call makeandsendemail
Application.Run "makeandsendemail"
MailS = 1
Else
MailS = 1
End If
End Function
But this code send millions of emails.
it has been designed to send out automated emails using Excel and Lotus Notes, unfortunately the code was give to me to modify and the person who created it didn't comment the code at all so i'm finding it impossible to see what each part is doing: ....
View 14 Replies View RelatedThe following line of code is part of the great work that this forum did in creating a macro to send an automated email through Lotus Notes.
I have a small tweak that requires the Body of the message to exist on sheet other than the one where the macro is launched.
The originial code had:
Body1 = Replace(Join(Application.Transpose(Range([by9], [by18].End(3))), "@") & "@@Thank you,", "@", vbCrLf)
I tried:
Body1 = Replace(Join(Application.Transpose(Sheets("LookUp Sheet").Range([by9], [by18].End(3))), "@") & "@@Thank you,", "@", vbCrLf)
But the body of the email is not being copied.
Am I putting the calling the Sheets reference incorrectly?
The routine works perfectly if the body data comes from the sheet where the macro is launched?
I would like to search an outlook folder for a variable in the subject line and return the date when that email was received. Here is the code i have so far...
Code:
Sub Get_pos()
Set olApp = CreateObject("Outlook.Application")
Dim olNs As Outlook.Namespace
Dim Fldr As Outlook.MAPIFolder
Dim olMail As Variant
Set olApp = New Outlook.Application
[Code] ........
I have specified the email addresses in the code to whom the email will be sent when the user presses "Send Email" button but now I want to add all the addresses in the Access table and write down the code that will send an email to those people whose addresses are in the Access table.
[Code] .....
I have a macro to send emails to a group people that based on various criteria, it will attach a number of files to a recipient's particular email. This is a small portion of the code that does the attachment adding:
Code:
If Range("B" & a) = "Y" Then
If citChev "" Then .Attachments.Add citChev
End If
If Range("C" & a) = "Y" Then
If citMits "" Then .Attachments.Add citMits
End If
If Range("D" & a) = "Y" Then
If citToyo "" Then .Attachments.Add citToyo
End If
If Range("E" & a) = "Y" Then
[code].....
Most people get several of the files attached to their email and all works fine. But, there are certain conditions when all the IF() stmts fail where a recipient will not get any files attached. I do not want to send the email if this is the case, but it currently is sending it.
Is there a way after all the IF() stmts have processed to check to see if this current email has any attachments assigned to it? (IF .Attachments "" Then...) does not work.
I am using Excel 2010. I have been given a task at work that can save my team a lot of time if I can solve the problem. Every month, we have a spreadsheet with about 5000 rows that we have to email. In each row, there is a range that we have to email to a specific email. For example, I would have to copy and paste Range A2-R2 in the body of the email, and then email it to whatever email is in cell S2. I would then continue this for the next 5000 lines, making it a possibility that i will be sending 5000 emails manually.
I have been trying to come up with a solution through VBA that would automatically send these emails. My goal is to automatically send the Range A2-R2 to outlook email, then cell S2 into the "To" email address box, and then automatically send it. So far, i have successfully been able to send one row, but cannot figure out how to loop it for the remainder of the rows.
A couple other key points are that I have column headings as well (Range A1-R1). If possible, I want to be able to include the column headings in the email body as well. Example - first email would be range A1-R2. second email would be range A1-R1 and A3-R3, and so forth. The body of the email would also contain a standard script, such as "Please review the information below."
The goal here is to save everyone from having to send 5000+ manual emails. This would be a big boost for my team.
Code:
Sub Email()
Dim rng As Range
Dim OutApp As Object
[Code].....
I currently have a button then when pressed automatically sends a summary report taken from the first page of Sheet 1.
Worksheet needs to be protected all the time, but Macro only works on an unprotected worksheet.
I was wondering what additional code and where to put in so that when
protected back again after Macro has been executed?
Here’s the Macro taken from [url]
I have a large excel sheet that will take a lot of time grouping it manually, so I was wondering if there was some way somebody could help me out with creating a code in VB to automate this grouping for me. All I would need is something to read through the rows of one column and when it finds a blank row, keep scanning until the next blank row and then group the data between the two blank rows. I have attached a small portion of the excel sheet I am working with if you need to get a visual of what I am needing.
View 9 Replies View RelatedI have a monthly report that I get with lab tests and amounts ordered. (I will copy a section for you to see). The Director wants it to be compiled into an easy to read, 1 test with totals. The way i get the data is broken down by site (we have 5). So, i may have between 1-5 rows of the same test with a total for each. I want to set up a Macro/Script that would go through the report and automatically add the same test codes together. My long term goal is to have it pull the Test Number, Test Name and Total Count into a separate worksheet, with the Total Count being the count of all the same tests.
see attached data: ...
I have the below code to email a specific sheet to an email address, however the email stays in the outbox and isn't sent. Is there something missing from the code or is it a setting issue with my email? I'm using Outlook 2010.
[Code]....
When I test the email link on my computer, the 'Outlook Express setup' wizard initiates. However, I don't use Outlook Express (Yahoo and Zimbra).
I am wondering of it is possible to automatically ensure that in cases where a user doesn't use Outlook Express by default that Excel will open the users default email client- which could be a web browser or another application? Is this something determined by each users (Control Panel?Registry?) settings for handling email hyperlinks? Is there a piece of VBA code I could include in the workbook which identifies the relevant email client to open?
I know I can simply provide my email address on the workbook and allow a user to copy/paste it into their email application but I feel that by minimising the amount of effort required by a user to provide a rating that I'll be more likely to receive user rating feedback.
I have a spreadsheet which contains 30,000 lines Column A contains an email address. This spreadsheet was merged from several and so I know that there are duplicates in it.
How can I look up column A and if an identical value (email address) is found further down the sheet on another row. Delete that duplicate row?
I'm not concerned that the data may not be identical in other columns. If the email is a duplicate delete the next and all other rows that contain that email address.
I m trying to achieve is generating ref numbers automatically.
I have attached an example.
In Cell A if the user choose yes it gives a ref number. The trouble im having is that say in cell A5 a Yes is choosen at a later date, it will throw the numbers out of order and the ref numbers get mixed up, there any way of stopping this from happening or any function that prevents this from happening
I am trying to write a formula which will consolidate notes for shipping orders
Column A Column B
Ship A 12/10 Talked to customer
Ship B 12/11 phoned cust
Ship C
Ship A 12/11 Called again
Ship D
Ship B
Ship A 12/12 Shipped
I want the notes in column B to be consolidated together so I have the history for each customer in one cell ie
Ship A 12/10 Talked to customer, 12/11 Called again, 12/12shipped
Ship B
The spreadsheet is really large so I want the formula to look up the customer name and consolidate notes automatically
I have been trying to create a macro that would create a schedule for me based on date and a product type. In columns K-N I have an IF statement that tells when a shipment would need to arrive in a row that corresponds with a date (column A is 1/1/2015 - 12/31/2015). On the next page I would like to generate a schedule that lists the dates that all of the products are needed in chronological order. I've tried to use custom functions like finding the nth_occurence but it just gets way too messy with so many shipments.
View 6 Replies View Relatedim having trouble formatting the left header, im not sure how to go about it, ive recorded macros to see how they do because i dont need talking marks im buggering it up somewhere
Sub OCHeader()
Dim Sheet As String
Sheet = ActiveSheet.Name
With ActiveSheet.PageSetup
.LeftHeader = _
"&""Trebuchet MS,Bold""&11"
.LeftHeader = Sheet
End With
End Sub
I keep a spreadsheet with the 50 or so wireless phones in our "lab". When someone checks them out, the rules are that they change the cell under Available to "NO" and add their user ID. When they return the device, they change the Available cell back to "YES". What I want is a log of who checked out the device, and when... which would be kept in "sheet 2".
I attached a small spreadsheet with the same columns and information you would see in the regular spread sheet. Sorry, I would rather have put it here, but I couldn't figure out how to do that.
The spreadsheet has code which updates the "Counter" when someone checks out a device. Many thanks to the "Rocket Scientist" who helped me with that.
I am attempting to automatically (once a week) pull down the data from this site (http://www.dot.ca.gov/hq/esc/oe/plan...bidsum_csv.php) which is posted in a csv and parse it. While this may seem to be a simple process, the people who posted the CSV did not take into account that there are dollar values in the data in the millions and billions. As a result, a normal comma parse does not work since it splits the values.
View 5 Replies View RelatedI am having trouble trying to get an MS Access Query to run from MS Excel automatically.
I am trying to create an automated trigger in MS Excel that will automatically run my Access query by the times I specify in my statement.
For example: I need to run a query in Access at 9am, 12 pm and 10pm, that's it, but I believe I need to do it via Excel, I don't want the data returned to Excel, I just want Excel to execute the query at those specific times!
Is the anyway to have a macro wchich will automaticly open the IE browser when any of this word is clicked and search for this word in Google?
View 9 Replies View Relatedfind the attached file there is a form which i have created to update a data sheet, there are some fields in the Sheet which are there is the form, but what i want is in the form once i enter the data in first 2 to 4 fields 7th and 8 th, 9th ,10 th fields should updated based on some formulas given for caluclations:
See attached file: i want the following fields to get updated automatically
1) Tripcode should get updated as
CONCATENATE of Cab type and trip type ( See Sheet "ATT" for formula i have mentioned)
2) Trip cost is based on trip if trip code is TTA then some value or if tripcode is TTB some value like that...
formula i have used in the sheet is...:-
IF(J3="TTA","750")+IF(J3="TTB","700")+IF(J3="TTC","650")+IF(J3="TSA","750")+IF(J3="TSB","700")+IF(J3="TSC","650")+IF(J3="TQA","750")+IF(J3="TQB","700")+IF(J3="TQC","650")
3) Extra Kms Cost is field Extra Kms * 5(Some Value)
4) total cost is :
Trip cost + extra Kms cost
I use daily an Excel workbook that comprises 6 sheets. The first sheet has some very clever vba which at the click of a button converts the data in it to an xml file. I have looked through this vba and have on occasions, modified it slightly, sometimes successfully, sometimes not!! This is what I am wanting to do...... At the moment my data is entered into a different sheet in the workbook. This is because there is also additional information on this sheet that is not required on sheet 1. When a row in this sheet is completed the part of the row that is required is copy and pasted to the next available row on sheet 1. I then go back to where it was copied from and fill that row in a different colour to show me that it has been 'processed'
Although Sheet 1 is capable of 500 rows (set in the vba), I always produce my xml file from it when I get 20 rows of data. So, what I would like to do is be able to click a button, or a key press to:- copy part of a row of sheet 2. paste that into the next available row in sheet 1 ( upto a max of 20 rows)change the complete row of the copied data in sheet 2 to a different colour (preferably 'fill')
I have to maintain changing data in a date of the month format. However, a portion of the data is on an A/B week basis. The data I am maintaining is static data (MAWB in the example below) that is hand-entered each Friday for the following week.
Detail: ....