Run Macro Based On Cell Change
Jan 7, 2007
I am working on a training scheduler. In which a sheet contains the details of the trainings that are scheduled now i need that if any training is canceled then a mail needs to be sent (Status is updated in cell). I have code to send mail however the problem that i am facing is that how can i execute this macro when training is canceled. I did a search and found the following thread
How to call a macro based on a value of cell?
but the code given in the thread uses a specified cell address to execute the macro. Where as in my case I can not provide a specific cell address as any training can be canceled.
View 9 Replies
ADVERTISEMENT
Mar 16, 2007
1st - Need a macro to change a range of cells colours based on a single cell having a value greater than 0.001. ie. cells A1 - G1 need to change to grey based on cell F1 having a value greater than 0.001 entered in it?
2nd - Also a macro for deleting the text contents of cell C1 based on cell F1 having a value greater than 0.001. Therefor if cell F1 has a number greater than 0.001 it changes the colour of celss A1 - G1 and also deletes the text in cell C1?
View 2 Replies
View Related
Oct 7, 2011
Basically, I need to reformat a set of data (see before and after). A specific column should only contain 1 value, if there is more than 1 value it will be separated by a comma. If this column contains more than 1 set of data then I would need to insert a row and duplicate the information based on how many different sets there are. All the copied data should remain the same with the exception of the "Key" column, it should only have 1 value and each copied row should contain the corresponding value in the key field.
BTW - it could be on the same sheet or a different worksheet (doesn't matter)
BEFORE
Name Number KEY Date
Name1 1 a,b,c 12/1/2011
Name2 2 x 12/1/2011
Name 3 5 one,three 12/1/2011
AFTER
Name Number KEY Date
Name1 1 a 12/1/2011
Name1 1 b 12/1/2011
Name1 1 c 12/1/2011
Name2 2 x 12/1/2011
Name 3 5 one 12/1/2011
Name 3 5 three 12/1/2011
View 2 Replies
View Related
Apr 13, 2009
I have a macro code for conditional formatting. The first 2 lines of the macro are
Private Sub Worksheet_Change(ByVal Target As Range) ....
View 9 Replies
View Related
Jul 21, 2009
Im trying to use an event change to change the sheet name based on a cell value, but my issue is how can I error trap if the sheet name is a duplicate? Here is what I have so far
Sub ChangeName()
On Error GoTo errhandler
Sheets(1).Name = Sheets(1).range("d10")
Exit Sub
errhandler:
MsgBox "sheet name is already exists"
End Sub
View 9 Replies
View Related
Jul 26, 2014
When the sum of B7-D7 is less than cell (I7) I would like to change the shade of B7-D7 to orange to indicate that larger values need to be entered to equal the value of cell I7. And when the sum of these three cells does equal I7 their color should change to green. I recorded two macros to change the colors and I've run them to verify they work. But I've got something off in my simple macro below.
[Code] .....
View 4 Replies
View Related
Dec 19, 2012
I work for a UK charity and have a list of funders in an Excel 2007 spreadsheet.
One of the columns refers to the date on which a new application for funding can be made to that particular funder.
In many cases new applications for funding can't be made for 1 or more years since the last application - sometimes as many as 5 years later. How to get a cell to refer to the date that it contains.
For example, say I have in cell A1 "The Acme Funding Organisation" and in cell B1 (i.e. the "Reapply when?" column) a date of 01/04/2013 (British date format, i.e. 1 April 2013) then what I want Excel to do is to look at the date in cell B1 and if that date has been reached to highlight the cell red. That way I'll know that the reapply date has been reached & that a new application can be made.
View 2 Replies
View Related
Jan 10, 2013
I am trying to create a sheet in XL 2010.
In Column A each cell will contain a date (differnet from other cells in that column) when inspection was last done.
Column B is when the weekly inspection is due.
Column C is when bi-weekly inspection is due.
Column D is when monthly inspection is due.
Column E is when 6 monthly inspection is due.
I need a formula to change the colour of cells B, C, D & E when each inspection is due depending on the date entered in A
I am hoping its possible that the cell colour can stay for 2 days after the due date and then return back to blank after the second day.
For example if cell A1 has a date of January 1 2013 then on January 8 2013 cell B1 turns red then on January 10 2013 the cell returns back to normal.
A1
B1
C1
D1
E1
Inspection Date
Weeekly Due
Bi-WeeklyDue
Monthly Due
6 Monthly Due
January 1 2013
Change red Jan 8 & return blank Jan 10
Change red Jan 15 & return blank Jan 17
Change red Feb 1 & return blank Feb 3
Change red June 1 & return blank June 3
Ive also attached the worksheet
View 1 Replies
View Related
Apr 14, 2014
I have the the following spreadsheet: [URL] My formula in Columns A to E is the following:
=IF(ISNA(VLOOKUP(Query1_2[@Branch],Master!A:J,10,FALSE)),"Branch Not Open",VLOOKUP(Query1_2[@Branch],Master!A:J,10,FALSE))
I would like to do the following in Column A: If the date in Column C is greater than today, then Column A must also say "Branch Not Open". I have tried the following:
=IF(ISNA(VLOOKUP(Query1_2[@Branch],Master!A:J,10,FALSE)),"Branch Not Open",VLOOKUP(Query1_2[@Branch],Master!A:J,10,FALSE)),IF(C:C<=TODAY,"Branch Not Open, IF(AND(C:C=>TODAY,VLOOKUP(Query1_2[@Branch],Master!A:I,9,FALSE)))
But Excel does not like the formula at all.
View 1 Replies
View Related
Oct 9, 2013
I have two columns. In column B is the date of "last check". I column A is the date of "next check". I would like to have cell A2 in yellow color 334 days after the date entered in cell A3 and than in red color 365 days after the date entered in cell A3. Same thing for cell B2 related to date entered in cell B3. Yellow color in cells announces that check will expire within 30 days and red color that check has been expired.
View 1 Replies
View Related
Nov 10, 2012
I need to write a condition in such a way that cell IF A1= "DBR","BPR","SLR","SKR" then change cell B1 to SPECIFIC COLOUR Each condition different colour. A1 values ("DBR","BPR","SLR","SKR") is a list of selectable values. if the condition is falls then B1 should be normal (white color cell) with 0 in it.
View 1 Replies
View Related
Dec 8, 2013
My goal from image is to enter a number for example in cell F4 and have in appear in L6 so simply L6=F4 but I want it to be negative if cell M2 reads "Outgo" and positive if cell M2 reads "Intake" as selected from the list. Is this possible?
View 5 Replies
View Related
Mar 9, 2013
I am relatively new to VBA. I am creating an attendance calendar that tracks employees calling sick, late etc.. It is a point based system. What I am looking for is, a way to clear the point value that was manually entered in a specific cell (I3), if there is a Value manually entered in (CU3). Each column in my worksheet is for a specific date ie; I3 is the cell where I enter the points (1.00) for that employee by calling in sick on 3/1/2013, (Column "I" is for 3/1/2013). After 90 days, this point accumulated by the employee does not count against them, so I need that point entered in (I3) to either = 0 or the cell contents to be cleared if there is a value entered in cell (CU3) which is 91 days after, so my (A3) cell does not add that point acquired on 3/1/2013.
I need this to run in a range (I3:I450) so if any value is entered into (CU3:CU450) it has the same result and continue to for (J3:J450) so if any value is entered into (CV3:CV450) and so on..
View 9 Replies
View Related
Jun 6, 2014
I've done the following:
Sub BrownBH()
If Range("Brown!B4:B31") = X Then
Range("C4").Value = [#A]
Else
Range("C4").Value = NT
End If
End Sub
However, this doesn't even work.
When somebody enters an X in a specific cell on one worksheet, it's supposed to change the value to A of a specific cell in a different worksheet. Sounds simple enough...but...
View 5 Replies
View Related
Mar 24, 2007
Macro Based on an input cell’s (e.g. B12) setting of “yes” or “no”, format several other cells (e.g. B20:G20, B23:F23, C26:J26) as follows: keep the existing yellow shading if input cell is “yes”, change to grey shading if input cell is “no”. I would like this macro to run automatically whenever the input cell value is changed.
View 2 Replies
View Related
Dec 15, 2013
Row B is a formula: Copied from B10: =(-E10/($G$2+0.01))+((F10*24)/$G$3)+G10
But I need this value changed in the respective column based on the text of row "D". If it contains "R15", then I basically want the formula to be multiplied by 90% of the original value. And if it contains "R19", then the formula needs to be multiplied by 85% of the original value.
Screen Shot 2013-12-15 at 2.45.51 PM.jpg
Bid Sheet.xlsm
View 3 Replies
View Related
Feb 12, 2010
I have a chart full of different names which I need to separate them by color when a specific entry is found in a Cell. For example the list has the store name "ZELLERS" + its branch number. (ex. ZELLERS #276 PL or ZELLERS #295 SL and so on). I would like to modify the below code so that It only check for the name ZELLERS and not the branch number. If it finds ZELLERS in any cell In the Range of C1:C500 then color it Red.
Below Code does that but I have to write the exact name as it appears in the cell otherwise it wont find it for me. Is there any way to resolve the issue? I am not an Excel Programmer but Only an Excel user.
Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
Set r = Range("C1:C500")
If Intersect(Target, r) Is Nothing Then
Exit Sub
End If
On Error GoTo Endit
Application.EnableEvents = False
vals = Array("ZELLERS #276 PL", "ZELLERS #295 SL", "Gopher", "Hyena", "Ibex", "Lynx")
nums = Array(3, 46, 6, 3, 7, 4, 20, 10, 23, 15)
For Each rr In r..........................
View 9 Replies
View Related
Jul 22, 2014
I have a shape on one sheet. Need to change the name of a shapes depending on a value in cell from an other sheet.
View 6 Replies
View Related
Jan 3, 2014
I have a spreadsheet I use to track supplier information. On the second tab of the spreadsheet, I have a table that is auto-populated based on the first spreadsheet and is linked to a KPI reporting form that I run for each supplier every month. The information on the report changes as a supplier is picked using a simple data filter. I would like the supplier name on the KPI form to change to the supplier that is picked from the filter on the first spreadsheet.
View 4 Replies
View Related
Apr 27, 2014
I need to include a prefix of +91 and +911 based on a text in column A. If any cell in column A has a specific text and when I enter a number in corresponding cell in column B it should add a prefix number as below.
If any cell in col A has text "STATE LINE OR MOBILE 1" then the corresponding cell in col B should add a prefix of +91 to whatever number I enter in that cell of col B.
If any cell in col A has text "MOBILE 2" then the corresponding cell in col B should add a prefix of +911 to whatever number I enter in that cell of col B.
If any cell in col A has any other text then the corresponding cell in col B should be the same number as I enter in that cell of col B.
View 6 Replies
View Related
Jul 20, 2009
I'm putting the sum of 3 cells in a 4th cell(D2). If the sum is greater, I would like the sum to be the color green. If the sum is less, I would like the sum to be the color red. Is this possible?
(D2) has change value, I want to compare the new value against the existing one.
View 9 Replies
View Related
May 31, 2013
I have posted example work book
Sheet1 has a list that changes based upon input in Sheet2
So, I have reference pictures on Sheet2 that I would like to show on Sheet1 under the corresponding value.
Explanation: on Sheet two a value is assigned (in column B) to each category (Column A) and then it is ranked (Column C)
Sheet 1 lists the categories in rank order.
I want pics to show under each category.
I saw some articles online, but have been unable to make it work.
View 3 Replies
View Related
Dec 9, 2011
I need to change the colors of each tab based on the cell value in G132.
1>Green
1
View 3 Replies
View Related
Dec 20, 2011
I'm trying to set up a spreadsheet to track 20 vehicles mileage, and when they are due for an oil change. I have the value of when they are next due in column D, and the actual mileage in column G. I want to have the row for each vehicle turn yellow when they are within 1,000 miles of needing an oil change, and red when they are due/overdue.
View 2 Replies
View Related
Mar 29, 2012
I have been trying to figure out how to change the color of a specific tab based on information being entered in cell "B9" for each sheet that the tabs represent. If there is information in cell B9 on "tab 1", I want only tab 1 to change a color. If there is no information entered in cell B9 of tab 2, then I want tab 2 to stay with its default color.
There are 34 tabs I want this to happen to, out of just more than 60 total tabs on the worksheet.
View 9 Replies
View Related
Jan 6, 2014
I'm tying to change a shape based on a cell value. I have this but it will not change fron green to red.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A100").Value >= 0 And Range("A100").Value Range("A100").Value Then
ActiveSheet.Shapes("Oval 5").Fill.ForeColor.RGB = vbRed
End If
End Sub
I would like the shape to go red, yellow and green but I can't find anything that works.
View 1 Replies
View Related
Sep 9, 2008
I'm trying to change the tab color based on a cell value. This I can do, but only using a Change Event with code in the Worksheet section. I would like it to update more instantly and without the need for a Change on the sheet to occur. So I was thinking a Worksheet_Activate event, or perhaps a Workbook_Activate event, but i can't get it to work.
For further info, if not confusing, the cell referenced in code below (on the Dan sheet) is filled using a user entered variable when the workbook is opened. Depending on this value, i would like the tabs to update their color accordingly and instantly, as well as the color updating if the cell B3 on the sheet is changed. Perhaps I need a Worksheet Activate & Deactivate and Workbook Activate and Deactivate?
Public sPeriod As Long
Private Sub Worksheet_Change(ByVal Target As Range)
sPeriod = Worksheets("Dan").Cells(2, 4).Value
If Target.Count > 1 Then Exit Sub
If Target.Address(False, False) = "B3" Then
Select Case UCase(Target.Value)
Case sPeriod - 1: ActiveSheet.Tab.Color = RGB(0, 0, 255)
Case Else: ActiveSheet.Tab.Color = RGB(255, 0, 0)
End Select
End If
End Sub
View 9 Replies
View Related
Jun 26, 2006
I am trying to alter the type of operator used in one formula based on the result of an argument in a separate cell generally as follows: If Cell 1 equals something then use the ">" operator, otherwise use the "=" operator. I appreciate this sounds really simple and I'm having a major brain fade as I cannot figure out how to relate the two arguments as follows: [If(Value 1 "Operator" Value2, then do something, otherwise do something else)] where the operator is pre-defined in another formula.
View 4 Replies
View Related
Dec 7, 2006
I have a series of data that I am trying to process based on various criteria and though this site I have solved most of the (simple) problems I had. I have one last problem to solve.
I need to add the previous cell to the next one based on a cell value in a different column.
Example: I want to add F2 to F3 if H3=3 but I need it to work so that if H4=3 it will add F3 to F4 and F3 now equal the new value i.e. (F2+F3). If H5 doesn't = 3 then F5=F5. I need the output to be a value not just an equation as I plan on going back and deleting all rows with H=3 in them.
P.S. I don't mind if the output of the calculation of the F column is to a new column or overwrites F. Overwriting would be easier for when I go back through and delete rows based on H=3.
View 9 Replies
View Related
Jan 12, 2007
I`m trying to work out the best way to propogate a cell's format accross an entire range. What I ultimately want is for a user to only have to change the text colour of one cell, and for the entire row to immediately change to the same colour with it. Even if this means always having to update for example the cell in column A to change the text colour accross that row.
View 2 Replies
View Related
