I'm trying to use the SUMCOLOR function found on your website to sum cells which have conditional formatting (background colors with bold writing) applied to them, but it doesn't work.
I'm attaching the code found on the website as a reference.
I read some content on Cpearson but it's way beyond my understanding.
Function SumColor(rColor As Range, rSumRange As Range)
I know the VBA code to count cells from a data set that were manually colour-coded.
The problem is that the code (pasted below) doesn't seem to pick up cells that were coloured via Conditional Formatting. How do I do this? What is the VBA (if there is one)?
Function COLORCOUNT(varRange As Range, varColor As Range) Dim cell As Range For Each cell In varRange If cell.Interior.ColorIndex = varColor.Interior.ColorIndex Then COLORCOUNT = COLORCOUNT + 1 End If Next End Function
I have a range of cells that change colors with conditional formats based on the cell value from high to low. I would like to link the cell color to an object such as a circle or rectangle. When the cell value changes along with the conditional format, the color of the object will also change.
I have a column that when I put info in it gives me a colour, now on this I have quit a few different labels, eg. AAG201, PRA001, 000010 and so on, now on my rule I have put in that if it is PRA* ,AAG* to be one colour and 0000* to be a colour. (this is working without a problem).
I have tried to get the rest of the row to be the same colour, but cannot get te rules to work, I do not know which rule to use to get this working.
Is there a Color Function type vba code that can give me the color integer? I have one that can do that for cells that I've manually colored but I can't find a code that works on conditionally formatted cells.
I have conditional formatting set to paint the cells a certain color if the values are >0 and a diff. color if they are <0. If i enter the value manually everything is fine but if a use a formula to do the calculation there is no formatting.
Is it possibe to change another cells color (Fill) based on what is placed in that cell? Example: A1 =if there is an "x" in A2 highlight A1 Green, but I have information in A1 also. Or if I had a different cell say= if there is an X in A1 Highlight A1 Green ect.. This key is to highlight a cell that I have information in based on a different cell having an X in it. If ther eis no X in the cell I have indicated, nothing needs to happen.
I need to count the grey coloured cells in a column based on the value in a different column (Column I has the team that the person is in). I already have a code from a previous thread to count the coloured cells (below) but this doesn't work when using an array formula. I have also tried just selecting the cells I need it to count (the people within the specific team), but the formula doesn't work unless the range uses adjacent cells...
I have information in A1. I want A1 to look at B2:B5 and D2:D5 (Under conditional formatting) and if there is one or more "X" in those cells to color A1 Grey (Fill). I keep trying to put a formula under conditional formatting, but it is only working for the first cell (B2) and not the rest.
I'd also like to have it be able to change the 2 cells to the right, in columns (M&N) whenever the conditional value given below are true. I thought I had posted this message yesterday but never saw it show up as a thread.
Private Sub Worksheet_Change(ByVal Target As Range) Set MyPlage = Range("L1:L800") For Each Cell In MyPlage
If Cell.Value = "Hold" Then Cell.Interior.ColorIndex = 3 End If If Cell.Value = "Complete" Then Cell.Interior.ColorIndex = 4 End If If Cell.Value = "Issued" Then Cell.Interior.ColorIndex = 43 End If If Cell.Value = "Release" Then Cell.Interior.ColorIndex = 36................
I have been using Conditional Formating to change the backgound color of the cells, this works fine. However it cannot be used with a userform text box. There I believe that the use of If Then Else statements will sort out the problem.
I have developed three conditions:
1) D10 less than E5 result True 2) D10 less than F5 result True 3) D10>E5 result False
using that result background color to turn green
Next condition 1) D10 less than E5 result False 2) D10 less than F5 result True 3) D10>E5 result True using that result background color to turn yellow
Next condition 1) D10 less than E5 result False 2) D10 less than F5 result False 3) D10>E5 result False using that result background color to turn red
What I cant seem to do is combine the three instances above so that the cell back color changes.
This is so easily done using the built in conditional format function but I'm have a difficulty understanding how to make this work.
I ran a very simple code that conditionally formatted red any cell sum greater than 12. The macro worked all the way to the end - about 15k rows. After saving and re-opening file only the first 1603 lines had the formatting and the rest did not. Several attempts end with no change in results.
I did the programming in Office 97 but edited and ran it on Excel 2002.
I need to be able to get a macro to do this. I recorded the macro. The conditional worked, but when I cleared it and then ran the macro, it highlighted all of the wrong stuff. Here is what I want to do: In column(AJ) I have cities with Prefixes or not In another column (AV) I have Criteria1 and in yet another, I have criteria2 (CB)
City (AJ) Criteria1 Criteria2 SCRNRTH_SCRM1 FALSETRUE should fail test A9_SCRNRTH_SCRM1FALSETRUE A9_SCRNRTH_SCRM1FALSETRUE A9_SCRNRTH_SCRM1FALSEFALSE should fail test SCRNRTH_SCRM1 TRUETRUE should fail test A9_SCRNRTH_SCRM1FALSETRUE SCRNRTH_SCRM1 FALSEFALSE A9_SCRNRTH_SCRM1FALSEFALSE should fail test A9_SCRNRTH_SCRM1FALSEFALSE should fail test A9_SCRNRTH_SCRM1TRUETRUE should fail test A9_SCRNRTH_SCRM1FALSETRUE....................
I have two conditions setup in Options>View - Zero Values.", "style="background: #FFFFFF;padding: 2px;font-size: 10px;width: 550px;"");' onmouseout='GAL_hidepopup();'>formatting.htm" target="_blank">conditional formatting. The first is setup for alternate row coloring with this formula inside Conditional Formatting:
Formula is = MOD(ROW(),2)
My Second Condition is
Cell Value is between $P$10 and $Q$10. This sets the font bold and a different color. The two cell values are two dates. I want to change the cells font color and bolding as long as the value is within that date range. It works fine, but for cells that are on the row that is colored the second condition doesn't apply for some reason.
I found code online that I can put on my sheet to get my formatting properties to stay the same for the items in my dropdown list located on another page. However the code does not work for conditional formatted cells...which is what I need. This is the code that I have that will carry over regular formatted cells. Just not Conditional formatted cells.
I am trying to calculate the difference in time between two cells and if the difference is >= 8 Hours the result is 8 hours - 1 Hour if the result is less than 8 hours then the result stands. I have the following, but it returns 8 always.
I am trying to write some code that will loop through the workbook (selecting all cells formatted as currency), updating the cell value and rounding to 2 decimal places. The updated price must be rounded as these prices are used in calculations. The prices are not in a contiguous range and are in different cells on each sheet, but all within the range (“B1:V200”) I need the user to enter the required increase I,e 1.05 (5%) in Price update sheet, cell “F6”, then run the code from this sheet (which will be the only sheet I do not want to run the code on, which will be the active Sheet) This is the code I have so far I don’t know if it will work yet as it errors out (Type mismatch) on this line. cell = cell.Value * Sheets("PriceUpdate").Range("F6").Value
Sub UpdatePrices2()
For Each Ws In ThisWorkbook.Worksheets If Ws.Name ActiveSheet.Name Then For Each cell In Ws.Range("B1:V200") If cell.NumberFormat = "$#,##0.00" Then cell = cell.Value * Sheets("PriceUpdate").Range("F6").Value cell = WorksheetFunction.Round(cell, 2) End If Next cell End If Next Ws End Sub
I currently have a spreadsheet that i am using to track invoice pages when I receive them. I have added a conditional format on the worksheet that turns the Date red when each invoice is due and i manually shade each cell grey when the invoice is received, however as i have many invoices due on the spreadsheet its a bit dificult to track all of them... i have been told that a VB code will help. (I am new to this)...
I want to put a Command button on the spreadsheet that will take me to the next cell that has the text highlighted as red and the background color is white i.e not shaded.
I am looking to produce a Macro to select conditionally formatted cell's from a worksheet, i got as far as selecting those cell's but i need it to only select cells that have been filled.
I am trying to build an if statement to test variables that are in time format and then perform a calculation.
I was able to get an example working if I convert the start times to integers rather than time values. However, the data won't be provided to me as integers.
So, I need a nested if statement (using "and") that will test for two situations using cells in time format or I need to write a macro to convert the time data to integer format. I've been working on the former most of the day and have hit a brick wall.
How do I write a bar chart which reads the format of a cell instead of the content? ie I want to count how many cells in each column are amber. Amber cells have already been decided by conditional formatting.
How to count those that are formatted in RED or bold using Excel 2003 as I know in later versions that is possible but old ones I am unsure how to count them.