Macro To Find Color Of A Cell

May 3, 2013

I have a worksheet called "Mgr Scorecard". Within this worksheet across the top in row 1 are the Manager names. In row 2 are all of the items for each manager that they are score them on. In column A is a list of our EE's. Based on how they score the cell gets filled in either red or green.

For my example below I am looking for a macro that I can tie back to a command button so that when the button is clicked the macro go out looks at a column "Item 1" for each Manager and for all those cells shaded "green" returns those rows. I know this can be done in conditional formatting but due to the large amount of data to sort a macro linked to a command button will be easier.

So on my example below the macro should return EE 2 & 4 since they are the only two shaded green. I wasn't able to get the shade colors on this after I posted so I just type in what color they would be, but on my actual sheet there is no words just colored cells.

Mgr Name

Item 1
Item 2
Item 3
Item 4
EE 1
Red

[Code]....

View 1 Replies


ADVERTISEMENT

Cell Find And Row Color

Jun 30, 2006

I'm trying to search a column for the first occurence of a given text string, get the cell's row (that's the hardest part for me), and color that row.

I've tried using the macro builder, but I can seem to get the referencing right and get different error (91, 424, 1004), depending on how I've managed to mangle my code at the time.

Here's the current version of a bit of my

Set rFoundCell = Worksheets("WBS").Range("B1")

Worksheets("WBS").Columns("B:B").Select
Set rFoundCell = Selection.Find(What:="Insert all new lines above this line by insert button" _
, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:= _
xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:= _
False).Activate

' how do I get the found row? or do I need it ??

With rFoundCell
rFoundCell.EntireRow.Font.ColorIndex = 35
End With

View 4 Replies View Related

Find (PR) In Column O Then Color Cell And Msgbox

Jun 9, 2014

I would like a sub (Like a Private Sub) that would automatically activate when certain text is pasted into the sheet.

Data is pasted to this spreadsheet starting on row 27 and can be several hundred rows of data.

Column O (15) is for Abbreviated States i.e. TX, ID, WA, etc.

If in column O "PR" is pasted then ...

1. Msgbox ("Alert")

2. Color the cell - Interior.ColorIndex = 46 'Orange

View 5 Replies View Related

Find Out Format Condition Cell Color?

Aug 4, 2014

I set format condition in range by tool bar(=if formula is yes then display cell.interior.colorindex=3), but I have no idea how to find out (.address) the red colour cells are displayed in range with VBA?

View 5 Replies View Related

Find Next Cell In Range With Interior Color

Mar 8, 2014

I have a B2:M13 range. I would like to find a way to find the next cell with Interior.ColorIndex = 1.

For example, if position is currently B2 (so myrange(1, 1)) and the next black colored cell is on B6 (so myrange(5, 1)), I would like store 5 and 1 into variables.

So if no black background is found after current cell on the same row, look for next black background on next row.

If current cell is in row-M (the last one ** the range), for example, and there's no black background following on this row, find first black background in row-B.

View 5 Replies View Related

Find Cell With Specific Fill Color

May 12, 2006

I trying to look for a all the cells with the same fill color in the same column and assign a specific text to the cell for example

Column A - Cells with fill Yellow must have for text the word Sub- Total
Column A - Cells with fill Black must have for text the word Grand Total

View 4 Replies View Related

Find String Of Text Plus Cell Index Color?

May 3, 2013

I am trying to come up with a macro that will search a range for a specific string of text plus Interior.ColorIndex = 4. The range can have the text in it multiple times but i only want the macro to fire the next line of it if the cell address also has that color. Is there a way that can be done? My code below stops after it finds its first occurrence of the string and moves on to the next lookup. How do i make it look for not only the value but the index color?

View 5 Replies View Related

Sum Macro From Cell With Certain Color.

Sep 20, 2006

I need a sum macro that will count the number of x's in cells with a certain color.

View 4 Replies View Related

Macro: Changing Cell Color Based On Date In Cell

Jan 12, 2009

I did a search on this site and found some code I was looking for (see link:

http://www.excelforum.com/excel-prog...e-in-cell.html - Leith Ross's response code).

The code works perfectly, however, if I save the workbook with a different spreadsheet on top than the spreadsheet referred to in this code, I get an error message: Method 'Range' of object '_Worksheet' failed.

I should state that I did change "Private Sub Workbook_Open()" to "Private Sub Auto_Open()".

I assume I need to modify the code but am unsure as to how.

View 11 Replies View Related

Macro That Removes The Color Of A Cell

Jul 30, 2008

Im having huge trubles with the interior color for the cells.
I have a macro that removes the color of a cell ("No fill").
For that purpose, I use the line:

View 8 Replies View Related

Macro: Changing Color Of Coloumn Header Based On Rows Color

Jan 15, 2009

I wrote a macro to color the cell values in the rows based on their average value. For eg if the cell value is less than 0.2 Avg, they should be red color,if value is between 0.2 and 0.5 it should be yellow. This part is working fine

Now based on the color of the rows cells , need to write a macro for the header one. Logic is Coloum header should be in red colour, if in one or more number of rows cells are red. same with yellow ones. Could you please help me out in solving this with logic.

View 8 Replies View Related

Run Macro On Few Sheets (put A Yellow Color On Cell)

May 29, 2009

I would like to run a macro on few sheets. For that, I think the best way would be FOR...NEXT. On the attach file, I would like to put a yellow color on cell A1 for the sheets listed on SUMMARY, Cell B5 to B8.

View 2 Replies View Related

Macro That Calculates Sum Based On Cell Color?

Mar 28, 2012

The Excel file is in this link

[URL]

If you look at the chart on the left, it breaks down how this whole thing works. It takes the sum of the numbers that fall within each line. I wrote it out on column M so that it's more clear. In column D-L, I filled in random numbers ranging from 4000-700. The numbers in those gray boxes are ignored. This Macro should only apply to Column M and beyond. Is it possible to write a macro that will be able to do this?

View 1 Replies View Related

Change Color Of Offset Cell With Macro?

Jul 9, 2014

I am trying to color a cell with a macro. I am using

ActiveCell.Offset(a,b).Value= a number then a want to change the color of the cell to yellow. When I tried to code this, my Active cell's color is changed, but not the offset cell.

How do I change the color in an "offset cell".

View 5 Replies View Related

Macro To Format Half Of The Cell With A Different Color

Nov 28, 2008

I have a list of records that will eventually be used to create a pivot table. Sometimes an account number will be listed twice but instead of adding to the previous info, it needs to start a new record. I decided in these instances to mark the account number with a character (+). Even though the + will designate a separate record, I'd like it to be invisible.

Is there a way to automatically turn the font color white for only the +? Since I've automated the rest of the process using a macro, a VBA solution is fine.

View 9 Replies View Related

Macro With Same Color Fonts As Cell Fill

Apr 2, 2009

I need a macro to fill any cell in any column with red color. The same cell should also have red fonts with word 'RED' typed in the cell, so that word 'RED' is invisible.

View 9 Replies View Related

Macro Delete Row Based On Color And Adjacent Cell?

Mar 28, 2014

i am looking macro formula to delete row with 2 criteria :

- delete rows if yellow color background and based on adjacent cell (blank cell), otherwise keep rows when adjacent cell not blank

View 8 Replies View Related

Change Cell Color On Click And Reverse Macro

May 3, 2007

I am making a checklist for a Pda program. I need the active cell to highlight green and put an x in it for a specified range. This I have

The next part I cannot figure out -
after the cell have been highlighted once, and properly colored with an x, how can I get it to delete the fill and clear the x on the next click.

Dim x As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
' Set the highlighted cell to a color.
If Not Intersect(Target, Range("d28:d34")) Is Nothing Then
Target.Interior.ColorIndex = 4 ' green = true
'Set the highlighted cell to contain a text character
If Not Intersect(Target, Range("d28:d34")) Is Nothing Then
ActiveCell = "x"
End If
End If
End Sub

View 5 Replies View Related

Macro To Color Cells Based On Their Font Color

Jun 18, 2008

I have a spreadsheet that i download from the net daily, which is seperated into columns of information.

I want to be able to look down a column and mark a cell in a seperate column if the cell font text is red.

For example looking down column A ... if the font text of a1 is red then mark the cell background colour of T1 red - if a2 text colour is red then mark the cell T2 red .... etc etc.

If the font colour in a1 or a2 ... etc etc is any other colour then do nothing.

I have 5 columns I wish to look down and mark in 5 seperate columns - I have tried to do this by conditional formating but don't know the fomula for checking font colour.

View 9 Replies View Related

VBA Macro To Delete Entire Column When Background Cell Color Is Red

May 17, 2013

with performing the following tasks with VBA:

1). For each cell that in the range that has a Red background delete the entire column
I have attached a sample spreadsheet where I have tried to do this. It's not quite working. It does not seem to work when there are RED cells next to each other.

I know that I can do a simple thing like column("A:A"), but I'd rather have it in a loop as in the sample code, in case the columns change in the future.

2). The second task is to delete the rows in the spreadsheet where the first cell in the row is a blank.

View 4 Replies View Related

Formula Or Macro To Change Font Color For Each Cell In Range

Aug 12, 2009

I have a spreadsheet that contains the 5 digit numbers in the rows and the columns respecstively. I'd like a formular or macro to change font color for each cell. If the combined value of the 5 rows are greater or less than the combined range 87030 and 87200, the 5 cells will be changed to Red. If:.........

View 4 Replies View Related

Via Macro, Search Item In Cell And Bold/Color Row If Found

Dec 7, 2006

Is it possible to search a worksheet that may contain different number of rows (from day to day) and for every instance of a word like "HOLD" is found in column "C" to Color that intire Row Red and also Bold the Row as well?

View 9 Replies View Related

Macro Button To Change Background Color Of Specific Cell

Sep 17, 2008

My boss wants a spreadsheet that has multiple buttons on it that will change the background color of a specific cell to four different colors. Example:

Text written in Cell B3, Button in Cell A3 that will change the Background color of Cell B3 to either Green, Yellow, Red or Blue.

There will be a lot of buttons on this worksheet following the same format as above. I don't want to change the value of what is in the cell, just the background color.

View 7 Replies View Related

Conditional Formatting - Cell Color Based On Range Of Cell Color

Aug 9, 2013

Summary of performance of various products against target is as follows,

Product vs Target
Color Code
Result

CH4OH
Green
1.0

[Code] ........

I need the final result automated as follows,

If 2 green of the 4 products, then final result Gree
If 2 Amber of the 4 products, then final result amber
If 2 Red of the 4 products, final result Red

Is there a way to automate this?

View 8 Replies View Related

Macro That Will Auto Color Multiple Cells Based On Data Displayed In One Cell

Jan 7, 2013

I am trying to find a way to write a Macro that will auto color multiple cells based on what data is displayed in one cell. The cell I want to reference is a vlookup cell.

Basically this is a part label. And depending what part is selected from the list my vlookup will display its position on a vehicle(i.e.. FR, FL, RR, RL, Etc..). So if vlookup comes back with FR I want the various cells on the label to be orange, etc..

ALSO: if there is a way to embed it so it does this automatically (rather than run the macro each time).

View 7 Replies View Related

VBA Macro To Auto Change Cell Color On Protected Sheet Based On Input

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

Unable To Set ColorIndex Property Of Interior Class: Fill Cell Color Macro

Sep 29, 2006

I have an error message that says: Run time error '1004': Unable to set the colorIndex property of the interior class. I attached code for your reference.

If (Range("B10").Value = "Gift" Or Range("B10").Value = "Entertainment") And Range("C10").Value = "" Then
Range("C10").Interior.ColorIndex = 6
MsgBox "Please Fill in the Person's Name & Company."
Range("C10").Select
Range("C10").Interior.ColorIndex = 6
End If

View 7 Replies View Related

Excel 2010 :: Macro To Color Code Cells Based On Value In A Cell And Range In A Table

Dec 2, 2013

I am using Windows 7 and Excel 2010.

Is there a way to create a macro to color code a cell based on the value in a cell, and then look up a value in a table, then color code it based on where it fits into the table?

I have a table of values for about 30 projects. In column g - there is a CPI value (see bold column)

Example: Project ID
Name
Program
PMT
SI ID
AC
Milestone
TCP Level
[Code] ......

Here is the table:

I have to color code a cell, base on the CPI and how it fits into the table below. So if the current Milestone is M2 or M3 and the CPI calculated is .14 the cell would be colored RED, if the CPI number is 2.01 for M2-M3 I would want cell to be colored Turquiose. If we were at Milestone M6 and the CPI was 2.01, it would be colored blue. If the CPI was .75 at Milestone M5, it would be colored Green

LEGEND
Earned Value Limits

Milestone
RED
Yellow
Green
Turquoise
Blue

M2-M3
2.15

M4-M6
1.66

M7-M11
1.26

View 2 Replies View Related

Excel 2007 :: Changing Bar Series Color To Adjacent Cell Font Color

Aug 8, 2012

I am trying to use VBA in Excel 2007 to change bar chart series colors. I have found a few posts that link it to a cell background, but I'm struggling to find one that does the font color.

It would be great if I could change the bar chart series to match the color of the text in the A column, so that if I highlighted the value in A1 and changed the text color to orange for whatever reason, the chart updates the value of 1.2 to an orange bar (see below).

T. A1 B1

Sample 1 1.2

Sample 2 2.1

Sample 3 1.7

Sample 4 5.6

View 3 Replies View Related

Linking Object Color To Conditionally Formatted Cell Color In Microsoft Excel

Aug 31, 2012

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 Related







Copyrights 2005-15 www.BigResource.com, All rights reserved