$$Excel-Macros$$ create email when value in cell changes
I want to create an email when the value in column A changes. In column A I have the email addresses of managers. When the email address changes I want the VBA to compose the email and get the employees names in column B assoicated to that email address. I don't want it 1 for 1. I want to take only that one email address and bring in that range of employees in to the email. So in the example below I want to email manag...@domain.com and have employees 1,2,and 3 in the body of the email. I don't want seperate emails for each employee going to the manager. Thanks Example: Column A Column B manag...@domain.com employee1 manag...@domain.com employee2 manag...@domain.com employee3 manag...@domain.com employee4 manag...@domain.com employee5 -- -- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our Facebook Group @ http://www.facebook.com/group.php?gid=287779555678 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> HELP US GROW !! We reach over 6,800 subscribers worldwide and receive many nice notes about the learning and support from the group.Let friends and co-workers know they can subscribe to group at http://groups.google.com/group/excel-macros/subscribe To unsubscribe from this group, send email to excel-macros+unsubscribegooglegroups.com or reply to this email with the words "REMOVE ME" as the subject.
Re: $$Excel-Macros$$ create email when value in cell changes
Mahesh: Why do I need code in module 1 and module 2? Does it work in hand with the sub procedure in sheet1? On Mar 19, 6:59 am, Mahesh parab wrote: > Hi Kevin > > Please find attach sheet, hope this is what u want. > > Right Click on sheet1 tab & view code change this as per your requirement > > Private Sub Worksheet_Change(ByVal Target As Range) > If Not (Application.Intersect(Worksheets("Sheet1").Range("B:B"), Target) > Is Nothing) Then > DoSort > End If > End Sub > Private Sub DoSort() > Worksheets("Sheet1").Range("A:Z").Sort > Key1:=Worksheets("Sheet1").Range("B1"), Order1:=xlDescending, Header:=xlYes > End Sub > > > > On Fri, Mar 19, 2010 at 7:43 AM, KevinM wrote: > > I want to create an email when the value in column A changes. In > > column A I have the email addresses of managers. When the email > > address changes I want the VBA to compose the email and get the > > employees names in column B assoicated to that email address. I > > don't > > want it 1 for 1. I want to take only that one email address and > > bring > > in that range of employees in to the email. So in the example below > > I > > want to email manag...@domain.com and have employees 1,2,and 3 in the > > body of the email. I don't want seperate emails for each employee > > going to the manager. Thanks > > > Example: > > Column A Column B > > manag...@domain.com employee1 > > manag...@domain.com employee2 > > manag...@domain.com employee3 > > manag...@domain.com employee4 > > manag...@domain.com employee5 > > > -- > > > ------ > > Some important links for excel users: > > 1. Follow us on TWITTER for tips tricks and links : > >http://twitter.com/exceldailytip > > 2. Join our Facebook Group @ > >http://www.facebook.com/group.php?gid=287779555678 > > 3. Excel tutorials athttp://www.excel-macros.blogspot.com > > 4. Learn VBA Macros athttp://www.quickvba.blogspot.com > > 5. Excel Tips and Tricks athttp://exceldailytip.blogspot.com > > > To post to this group, send email to excel-macros@googlegroups.com > > > <><><><><><><><><><><><><><><><><><><><><><> > > HELP US GROW !! > > > We reach over 6,800 subscribers worldwide and receive many nice notes about > > the learning and support from the group.Let friends and co-workers know they > > can subscribe to group at > >http://groups.google.com/group/excel-macros/subscribe > > > To unsubscribe from this group, send email to excel-macros+ > > unsubscribegooglegroups.com or reply to this email with the words "REMOVE > > ME" as the subject. > > > > sample file.xls > 70KViewDownload- Hide quoted text - > > - Show quoted text - -- -- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our Facebook Group @ http://www.facebook.com/group.php?gid=287779555678 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> HELP US GROW !! We reach over 6,800 subscribers worldwide and receive many nice notes about the learning and support from the group.Let friends and co-workers know they can subscribe to group at http://groups.google.com/group/excel-macros/subscribe To unsubscribe from this group, send email to excel-macros+unsubscribegooglegroups.com or reply to this email with the words "REMOVE ME" as the subject.
Re: $$Excel-Macros$$ create email when value in cell changes
Mahesh: Thank you so much. This works great! Thanks again. On Mar 19, 6:59 am, Mahesh parab wrote: > Hi Kevin > > Please find attach sheet, hope this is what u want. > > Right Click on sheet1 tab & view code change this as per your requirement > > Private Sub Worksheet_Change(ByVal Target As Range) > If Not (Application.Intersect(Worksheets("Sheet1").Range("B:B"), Target) > Is Nothing) Then > DoSort > End If > End Sub > Private Sub DoSort() > Worksheets("Sheet1").Range("A:Z").Sort > Key1:=Worksheets("Sheet1").Range("B1"), Order1:=xlDescending, Header:=xlYes > End Sub > > > > On Fri, Mar 19, 2010 at 7:43 AM, KevinM wrote: > > I want to create an email when the value in column A changes. In > > column A I have the email addresses of managers. When the email > > address changes I want the VBA to compose the email and get the > > employees names in column B assoicated to that email address. I > > don't > > want it 1 for 1. I want to take only that one email address and > > bring > > in that range of employees in to the email. So in the example below > > I > > want to email manag...@domain.com and have employees 1,2,and 3 in the > > body of the email. I don't want seperate emails for each employee > > going to the manager. Thanks > > > Example: > > Column A Column B > > manag...@domain.com employee1 > > manag...@domain.com employee2 > > manag...@domain.com employee3 > > manag...@domain.com employee4 > > manag...@domain.com employee5 > > > -- > > > ------ > > Some important links for excel users: > > 1. Follow us on TWITTER for tips tricks and links : > >http://twitter.com/exceldailytip > > 2. Join our Facebook Group @ > >http://www.facebook.com/group.php?gid=287779555678 > > 3. Excel tutorials athttp://www.excel-macros.blogspot.com > > 4. Learn VBA Macros athttp://www.quickvba.blogspot.com > > 5. Excel Tips and Tricks athttp://exceldailytip.blogspot.com > > > To post to this group, send email to excel-macros@googlegroups.com > > > <><><><><><><><><><><><><><><><><><><><><><> > > HELP US GROW !! > > > We reach over 6,800 subscribers worldwide and receive many nice notes about > > the learning and support from the group.Let friends and co-workers know they > > can subscribe to group at > >http://groups.google.com/group/excel-macros/subscribe > > > To unsubscribe from this group, send email to excel-macros+ > > unsubscribegooglegroups.com or reply to this email with the words "REMOVE > > ME" as the subject. > > > > sample file.xls > 70KViewDownload- Hide quoted text - > > - Show quoted text - -- -- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our Facebook Group @ http://www.facebook.com/group.php?gid=287779555678 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> HELP US GROW !! We reach over 6,800 subscribers worldwide and receive many nice notes about the learning and support from the group.Let friends and co-workers know they can subscribe to group at http://groups.google.com/group/excel-macros/subscribe To unsubscribe from this group, send email to excel-macros+unsubscribegooglegroups.com or reply to this email with the words "REMOVE ME" as the subject.
$$Excel-Macros$$ variable not working
I'm new to VBA and created this code. Its working but when I attempt to assign a variable then it doesn't calculate. Here is a snippit of the code. The variable is 'paycode12'. When I just have it as Cells (j, 12).Formula = Cells(j, 7) * Cells(j, 11) this format it works fine. Any help is appreciated. KevinM Sub calculate_retropay() Dim paycode12 As Integer Dim paycode13 As Integer Dim paycode1E As Integer Dim paycode1H As Integer Dim paycode1I As Integer Dim paycode1J As Integer 'this will search for the pay period in column C Enterpp = InputBox("Please enter the period number ie 2008-21-0") finalrow = Cells(65536, 3).End(xlUp).Row finalrow1 = Cells(65536, 6).End(xlUp).Row For i = 1 To finalrow For j = 1 To finalrow1 'takes the value of what pay period is keyed in If Cells(i, 3).Value = Enterpp Then 'if paycode =1 then take the new rate * by hours If Cells(j, 6).Value = 1 Then Cells(j, 12).Formula = Cells(j, 7) * Cells(j, 11) Else 'if paycode =12 then take the new rate * by hours If Cells(j, 6).Value = 12 Then paycode12 = Cells(j, 12).Formula = Cells(j, 7) * Cells(j, 11) Else --~--~-~--~~~---~--~~ -- Some important links for excel users: 1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at http://www.excelitems.com 2. Excel tutorials at http://www.excel-macros.blogspot.com 3. Learn VBA Macros at http://www.vbamacros.blogspot.com 4. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com If you find any spam message in the group, please send an email to: Ayush Jain @ jainayus...@gmail.com or Ashish Jain @ 26may.1...@gmail.com <><><><><><><><><><><><><><><><><><><><><><> HELP US GROW !! We reach over 5,200 subscribers worldwide and receive many nice notes about the learning and support from the group. Our goal is to have 10,000 subscribers by the end of 2009. Let friends and co-workers know they can subscribe to group at http://groups.google.com/group/excel-macros/subscribe -~--~~~~--~~--~--~---