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.
View 6 RepliesI 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 series of conditionally formatted cells which turn the text in them to red if the value is less than 40. This works fine.
Occasionally however a value of less than 40 will need to be entered along with the letter 'v'.
ie. 39v
I'd still like this to be coloured red, but it's obviously coming out as black.
Is there a way to sort this out?
edited to add : Im actually using a separate cell to enter the value 40 (as the value can change).
spread sheet that I need to do for work. Unfortunately I do not have excel on my home computer to be able to attach a spread sheet
The spreadsheet has one column (A) with a list of questions. The column next to this (B) has either a red or yellow cell in each row (a red cell would be a high risk to the business if the answer to the question in that row was no, and a yellow cell indicates a moderate risk to the business in the answer to the question in the row was no).
The third column (C) is conditionally formatted so if a 'y' was placed in any of the cells they would turn green. If 'n' is placed in any of the cells the cell would change to either red or yellow (this would depend on what the colour was in column B).
I need to know a formula to count cells by colour. So the number of red, yellow and green cells in column C would be counted automatically into a totals box for each colour at the bottom of the spreadsheet. I have tried some online suggestions but couldn't get these to work for cells that had been conditionally formatted. I'm not the most experienced person with spreadsheets (this time last week I couldn't add two cells together)
The final thing I need from the spreadsheet (and I'm not even sure if this is possible) is for a total box to be colour co-ordinated based on the number of red, yellow and green cells in column C. I would need the total box to be green if all column c is green, yellow if three or less cells in column C are yellow and red if any of the cells in column C are red or there are more than 3 yellow cells in column C.
I have columns that have different colors, depending on there conditional format i.e. Green or Red. I want to count the number of either Red or Green in a total at the bottom. I have search and found a few answers
Function CountColor(rColor As Range, rSumRange As Range)
Dim rCell As Range
Dim iCol As Integer
Dim vResult
iCol = rColor.Interior.ColorIndex
For Each rCell In rSumRange
If rCell.Interior.ColorIndex = iCol Then
vResult = vResult + 1
End If
Next rCell
CountColor = vResult
End Function
BUT these don't seem to work on conditionally formatted columns
This is my first use of the forum as I only joined yesterday after a recommendation from another colleague.
I am attempting to write a macro to clear the contents of cells in a range that have conditional formatting. Below is the formula I have used...
Sub clr()
Dim r As Range
For Each r In Range("09:050")
If InStr(r.Interior.ColorIndex, "40") Then r.ClearContents
Next r
End Sub
While the formula runs without error, it does not clear the contents, although I read on another thread on this forum that you cannot clear contents of cells that are conditionally formatted.
Alternatively, if there is a more efficient way to clear cell contents (without using a formula in the cell itself),
pivot table?
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 a workbook (see attached) that has 2 sheets, Work and Holiday. I want to be able to enter a persons initials into the wrksheet 'Work' for each day of the week.
If that person is listed on the holiday sheet for that day as 'A' then the cell in 'Work' is coloured Red, if not then it is coloured Green. I have tried to get this to work using a defined list and various IF statements but all to no avail.
Basically I have been presented with a table (which can't change) and isn't well formatted shown at bottom of page.
Ideally I want to like extract and cross analyise some of the elements in the table to load into a database. Due to the formatting I cannot find a way of doing this which identifies and picks out the relevant bits.
For example; how would I gather a way of identifying what the districts is, what the road type is (i.e motorway), whether it's rural or urban, and the totals for a number cross referenced factors (i.e total road lengths for Dacorum) based on the existing formatting?
I have tried indexing, vlookups, index, pivot tables, index match match ...all to varying degrees of success. Whilst these function to a degree if the table orders were to be formatted differently in the future these methods cease to work and I would have to check this manually.
Therefore if you can alert me to any possible way of picking factors based on criteria and then returning the results.
Example table (it has a number of headings and in a variety of positions within the page)...
Motorway and Trunk Roads
Principal Roads (De-Trunked)
(Route Length)
[Code]......
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.
View 3 Replies View RelatedI have a column who's content is determined via about 6 nested if statements from data on that row. That cell is then conditionally formatted to a certain color based on the text that is ultimately printed from the nested ifs (simply an extra visual legend for the text). All of this contributing info and about 1000 lines items make a very large and difficult to print page. What I am trying to do is a make a summary sheet that simply takes the index number of these 1000 rows and copies or links the conditional formatting of the mentioned cell onto this number on another sheet. I have already linked this status cell and put it adjacent to the index number which works well in that with two columns I can show the index and status but if I could combine the color of the status cell onto the index cell, it would be even better. I am pretty sure another conditional format for this summary sheet would not be possible or be extremely complex since the contents of the index cell I am conditionally formatting have no bearing on the conditions for the format. Was hoping there is some VBA magic that could simply mimic the conditional formatting from one cell and put it on another.
View 1 Replies View RelatedUsing 2007, I need to conditionally format a cell colour based on 5 other cell colours that have been conditionally formatted. The 5 other cells will be coloured either red or greem. What I want to do is have an overall status cell that would be show green if all of the other 5 cells were green, amber if 4 of the other cells were green and one was red and red if 3 or more cells are red.
View 4 Replies View RelatedI have a worksheet containing a large column with random coloured (red) cells, how can I Sum only the coloured cells and then only the empty cells?
View 7 Replies View Relatedmanaged to count cells based on colour, however if the colour is variable due to conditional formatting then the UDF doesnt work. So my next thought is just to copy the colours into another column next to it and then get the UDF to count those colours. however copying just the colours is not as easy as seems. when i use format painter the colour all comes out the same (once again i am presuming this is due to conditional formatting). the macros etc seem to complicated for this is there a simple thing i am missing?
View 9 Replies View RelatedI have a spreadsheet that contains various different coloured cells,
I need to be able to:
1. count the number of cells in a given range that are coloured a certain colour.
2. show the answer of a sum involving the above, i.e in range D1:D:5 the sum of 10 + blue cells, minus yellow cells = 12
eg.
ABCD12345Sum of 10 (plus blue cells minus yellow cells in range D:1 to D:5) should equal 12
I have a Colom with dates, some cell are coloured and others not, some of the non-coloured cells have dates and some not. I would like to count ONLY the non-coloured cells without dates in them.
View 6 Replies View RelatedHaving searched and read lots of posts, but without finding the answer.
Is it possible to creat a macro that toggles a cell between [empty], [x], [o] and [n/a], with the [x] cell having a background colour of green, the [o] cell having a background colour of red and the [n/a] with a background of yellow.
The above cells won't have anyother function as they will be used as indicators in a progress chart.
This code colours the NEXT cell when a certain cell houses a value.
Private Sub CommandButton1_Click()
Dim Rng As Range
For Each Rng In Range("G2:C1417")
If Rng.Value = 6 Then Rng.Offset(1, 0).Interior.Color = vbBlue
Next Rng
End Sub
So in this case if a cell has a value of 6 then the Next cell down is colour coded blue.
Here is my question.Is there a way I could write some code to count the number of newly coloured cells on the sheet and then print the total.This would save me having to go through long sheets counting manually.
Is it possible to apply Filter utility on Column Cells that are 'coloured'?
View 9 Replies View RelatedI have a table of numbers with conditional formating, formula's are...
=COUNTIF(OFFSET($W3:$AB3,1,0),W3+1)+COUNTIF(OFFSET($W3:$AB3,1,0),W3-1) - color, lemon.
=COUNTIF(OFFSET($W3:$AB3,-1,0),W3+1)+COUNTIF(OFFSET($W3:$AB3,-1,0),W3-1) - color, light blue.
Column AC, I want to count the number of cells that are lemon for each row.
Column AD, I want to count the number of cells that are light blue for each row.
Is it possible?
I have created a Vacation Calendar workbook with 6 sheets. All the sheets contain the 12 month calendar. Each row contains an employee and the columns are the days of the week. I have to keep track of 5 departments. I have 5 supervisors that are on different sheets that need to be included on the 6th sheet. I have set conditional formating to show that when I type "v" in a cell that is will go green. Is there a way to populate this information to another sheet without having to copy and paste?
View 2 Replies View RelatedI have a sheet with colour coded cells and I need a macro that counts the number of rows with coloured cells.
I've tried the following code but I always get a count of 0 which isn't right.
Sub Count_Coloured_Cells()
Sheets("Issues").Select
Dim i, c
Dim LastRow As Long
i = 1
c = 0
LastRow = Range("A65536").End(xlUp).Row
Do While i < LastRow + 1
If Rows(1 + i & ":" & 1 + i).Interior.ColorIndex xlNone Then
c = c + 1
End If
i = i + 1
Loop
MsgBox (c)
End Sub
Remember, it's the number of rows I need to count (i.e. one row may have several colour coded cells but I only need to count it once).
How do you select specific coloured cells from a range of data in one go, without having to scroll through the worksheet and pick them out individually?
i have a spreadsheet in excel 2007. It shows a students target grade in one column and their recent test mark in another column. Firstly i have applied conditional formatting to say whether or not the student has hit their target, below or above, using red, yellow and green colours. This all works fine.
Now i would like to add a formula that counts the number of cells that are red, yellow or green etc.....
Is there an excel formula to count the formatted cells for each row?
Here an example;
Sheet2
A
B
C
D
E
F
G
H
I
J
K
1
EXAMPLE
COUNT
2
01 05 31 34
10 18 21 28
23 26 33 36
06 11 37 39
15 19 25 30
16 17 35 38
02 03 08 09
04 12 27 29
13 14 24 40
07 20 22 32
3
[Code] .........
I need to lock a cell (F21) if J26 is less than 100. Can't work out how in conditional formatting. Is there a different way?
This is what I need to do:
F21=(IF,J26<100,Locked,Unlocked)
If you look in the file you will see a records sheets and a form sheet. I want to see if a record has been broken. All the times are in seconds and the distances are in centimeters. How can I find a certain row, compare and act based on an if statment?
View 2 Replies View RelatedJust wondering if it possible to sum cells that have been highlighted in yellow in an excel spreadsheet? I currently use Office 2007 and 2010.
View 4 Replies View RelatedI 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.
The two cells are formatted as hh:mm
H6 = 06:30 & G6 = 14:30
=IF(((H6-G6)>=8),"((H6-G6)-1)","(H6-G6))")
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