Font Color Shortcut
I am just looking for a keyboard shortcut macro. I change the font color in rows one at a time to either blue or red by selecting that row and using the format toolbar to select the color I want. Is there a macro shortcut for changing font color?
Even further, can the macro be able to change the font color of the entire row without highlighting the entire row? Meaning if I only have 1 cell selected within the row I want to color the font and apply the shortcut, can it color the font in the entire row???
View Complete Thread with Replies
Related Forum Messages:
Color Column Charts Based On Font Color Data Cells
I have attached the relevant spreadsheet for which I need to alter the color of the columns based on Site number ( Sheet 1). % Mortality will be represented in the Y-Axis, and the Site numbers would be on the X-Axis. All columns (% Mortality) except one will be of the same color, and the one of a different color will indicate a specific site. As an example, site 86 is colored differently. The way I require the chart to look is shown on Sheet 1.
After reading through some great posts on Ozgrid, I managed to do this using conditional formatting (Sheet 2), but that sort of falls short because I am required to add a data table to the chart, and the parameter that is indicated by the column bars happens to appear twice in the data table.
I was wondering if this can be automated maybe using VBA, but with the possibility of simply matching the color of columns with the font color of respective entry in the data series.
Change Font Color Based On Adjacent Cell Color
I have two columns. The first one (A) contains cells that have different Fill colors. The second column (B) contains text adjacent to the colored cells. I am trying to change the color of the text in the second column (B) to the corresponding color in the adjacent cell in the first column (A). I don't think conditional formating works well in this situation. I believe the solution would be some sort of macro.
Macro To Color Cells Based On Their Font Color
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.
Change Font Color If Cell Color Become Yellow (6)
I have font color white in blank cells in column E and I (from row 5 to row 245) so the visitors will not see the text. If any of these cells become yellow (color code is 6), the font color will become black so visitors can see the text alot far better than white. I've tried this code myself after this post but nothing happen
Font Color Based On Interior Color
I would like to have cells that conditionally format the font color in the cell based on the background color of the cell. Essentially I have a matrix with some cells highlighted in red, yellow, or orange. There are values in each cell of the matrix. If a value is 0 I want the font to be grey. If the value is NOT 0 AND the cell backgorund color is NOT white, I would like it black and bold. Is there any way to do this in excel or using VB?
Count By Font Color & Background Color
In excel 2000, I am trying to count the lines in a spreadsheet that has the first cell in each row highlighed in yellow. Additionally, I am trying to count the number of rows that has a red font used in the cell in column D.
I have reviewed other posts by searching counting highlighted cells, but I do not understand how to complete the entire process. One of the suggestion was to create a vb script in combination with using =cellindex(??). I do not really understand how to create this, name it and the run it.
Set Font Color In VBA Script
I have a script that sets font color. I think it uses something called "myColor" to define the color, and then pulls the color from a palette of 57 colors.
But how can use the "color" property instead, so I can have a broader range of colors? I can't tell how it would fit into my code. "MyColor" doesn't even show up in Excel's help file.
Here is the code. How can I adjust it so that I can use, like, "RGB 0, 0, 255" instead of color 32?
Or how would you code it so you could set color that way?
Private Sub WorkSheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column < 8 Then Exit Sub
If Target.Column > 9 Then Exit Sub
Dim myColor As Variant
Select Case Target.Column...........
CHANGE Font Color
try explaning this again....Also conditional formatting will not work...
Looking for a formula in excel to do this---
I have a lottery numbers system in the 3 digit and 4 digit
numbers...In row A we have the 3 digit that were drawn about
3000 ---3 digit numbers and in row C we have also 3000 numbers
for the 4 digit ....All we need to do is Highlight All the
even numbers and make them RED font---in the 3 and 4 digit rows...
Is there a way to do that?????
123---------4429--make the 2red in the 3 digit row and 442red
in the 4 digit row.
033---------5579--nothing in this row
Change Font Color ...
I would like to address this:
If cell in column1 is filled (.Interior.ColorIndex = 15) then font color is 0 in any cell of that row.
(right now the color is red and I cannot change this at the source but will have to add a sheet change event maybe)
Font Color Index
I have a spreadsheet which has some cells with blue font. If anyone tries to manually change the contents of these cells a worksheet change macro reads the colour index of the font and, if it is 5 (blue), uses "application.undo" to repair the damage.
When I use the sheet on another computer, the same font colur is being read as a four digit number, 4015 I think from memory, and the code doesn't work.
Color Font Within Comment Box
I want to apply different font colors to text written in an excel comment box using VBA code (Please check the attached screenshot) I was able to apply one colour to all by using the following code, but am not able to apply different font color to each charater/bunch of characters.
Range("B7").Comment.Text Text:="A" & Chr(10) & "B" & Chr(10) & "C"
.ColorIndex = 9
Change Font Color Of Last Row
I am wanting to be able to find the last row of data (range changes on a monthly basis) and change the colour of the font to white for the entire row. I don't want to delete the row as contains totals but want the font not visable.
Filter By Font Color
So i have a workbook with 3 sheets in. Each sheet has various titles in it all in BLACK BOLD Text. Under each title it has various items these are in different colors red / blue / grey 40%. What i want is to have an event that just displays the tite + say the blue items and all others will be hidden.
Change Cell And Font Color Using VBA
This appears to be so simple, I've searched the forums and have found almost the right VB code but not quite.
I have a 3000 row spreadsheet with various columns.
Column M can either be PASS, FAIL, REJECTED, IN PROGRESS or NOT ASSESSED.
I need the rows (A to M inclusive) to change colour and text colour dependent on this condition.
I almost had an answer with Select.Case but I couldn't get the formula to work with text, only numbers.
Formula To Change Font Color
I am trying to figure out what the formula would be to change the font color if the entered number is less than the quota.
I'm making a spreadsheet for work that each of the reps will punch in their daily numbers, and, for example, if there quota was 70 and they are <70 than the font will turn red, and if greater or equal to 70 it will turn green.
VBA Conditional Formatting - Font Color
I'm using Excel 2003.
I have four conditions that dictate font colors in column "d" of "sheet1" and am using the following
Private Sub Font_Change(ByVal Target As Range)
Set Myrange = Range("D2:D1000")
For Each Cell In Myrange
If Cell.Value = "Started" Then
Cell.Interior.ColorIndex = 3
If Cell.Value = "Pending" Then
Cell.Interior.ColorIndex = 4
If Cell.Value = "On-going" Then
Cell.Interior.ColorIndex = 18
If Cell.Value = "Completed" Then
Cell.Interior.ColorIndex = 6
1. Does this code look valid?
2. Do I paste the code in a "module" or in a worksheet object? If I add this to a module, how does the code know to reference sheet1?
3. Is there a handy reference guide that shows color codes? If so, where can I get a copy.
Using IF Function To Change Font Color
I'm trying to use Excel to keep team standings for a baseball board game. I had no problem calculating wining percentage. Finally figured out how to calculate 'games behind.' Now I'm wondering if there is a way to change the font color of a team name based on their wining pct?
A typical row contains: A2(Team Name), B2 (Wins), C2 (Losses), D2 (Pct (B2/(B2+C2)), E2 (GB). Is there a way to use the IF function to return the 'Team Name' in green if D2>.500, 'Team Name' in red if D2<.500, and 'Team Name' in black if D2=.500 ??
Macro To Change Font Color
macro that will change the cell color based on text? I have a list of titles in column B. Everytime the word 'Car' is found in this column, I would like to change the font color in columns C-G to the color white within the same row.
Text Box Properties/font Color
I have text boxes in excel that hold text (obviously) over a period of several days. It gets updated daily, so I want to change the font color for the new text that is added daily rather than all the text. Is there a way to do this?
Also, is there a way to get the verticl scorll bar to always show on the right hand side of the text box? The way it is now, I have to click once or twice in the text box before it shows up. I would like the person reading it to automatically know that there is text not presently in view so they know to scroll down for more information.
Color Font Dependent On Input
I would like the color of an entry to automatically be set depending on an input. For example if “R” is entered into the cell, the color of the text would automatically be green. Is a macro the best way to handle this? If so, what would the program language look like? Other solutions?
Determine Character Font Color
I am trying to create a loop that will check the characters in each cell of a specified range and add that cell to a range object if the first or the last character in the cell is a specified color (red in this case). I am using the code listed below, which seems to work to a point. The problem is that the "Union" function does not appear to be working after the first two cells are added. Am I using this function incorrectly?
For Each c In .Range("R1:R50").Cells
charCnt = c.Characters.Count
If c.Characters(1, 1).Font.ColorIndex = 3 Or _
c.Characters(charCnt, 1).Font.ColorIndex = 3 Then
If redCells Is Nothing Then
Set redCells = c
Set redCells = Union(redCells, c)
Font Color Change Not Sticking
I have a user that was recently upgraded to Excel 2003. He has a problem when changing font color in a cell. Anytime he changes the color of the font to red and then clicks another cell the color reverts back to Black. Now when he clicks on the cell it displays the color red in the formula bar but no in the cell. it also displays the correct color in hte print preview screen. this happens no matter what Excel file he is wokring in.
Count & Sum Cells By Font Color
I have a rows of cells,each with over 30 columns.The writing is in 3 fonts,blue,black and red.
I want to award a score of 1 for a blue font,0 for afont cell and -1 for a red font and then get the total score for each row,to place in an additional column on the right.
Conditional Formatting: : Font Color Also
I found in the web-site a great VBA code that replaces the "Conditional Formatting" option in Excel. The problem is that it changes the "fill color" and I also want to change the "font color".
Private Sub Worksheet_Change(ByVal Target As Range)
Dim icolor As Integer
If Not Intersect(Target, Range("C4:C14")) Is Nothing Then
Select Case Target
icolor = 2
icolor = 4
icolor = 39
icolor = 45
icolor = 37
icolor = 15
Target.Interior.ColorIndex = icolor
Change Font Color While Typing
Is there a macro or code snippet that can change the color of the font while i am typing in the cell. Means that if the font color int he cell is originally RED, i can type and change it to another color using VB code.
Count Cells Based On Font Color
Hi, I've been cracking my head for a few days your assistance is much appreciated.
The ones in red is conditionally formatted. So I want at the end of each row to count how many are in red.
Change Font Color Of Command Buttons
I have this code for 10 Command Buttons to change the font colour. This is part of a much larger piece of code, but to simplify it, I am just using this
Sheet1.Cat1.ForeColor = &HC0&
Sheet1.Cat2.ForeColor = &HFF0000
Sheet1.Cat3.ForeColor = &HFF0000
Sheet1.Cat4.ForeColor = &HFF0000
Sheet1.Cat5.ForeColor = &HFF0000
Sheet1.Cat6.ForeColor = &HFF0000
Sheet1.Cat7.ForeColor = &HFF0000
Sheet1.Cat8.ForeColor = &HFF0000
Sheet1.Cat9.ForeColor = &HFF0000
Sheet1.Cat10.ForeColor = &HFF0000
In Excel 2003, this code works instantaneously, but I am trying to run the same code in Excel 2000 and it takes 10 seconds. Is there any way that I can speed this up in Excel 2000?
The original file was created in Excel 2003, but I have created a new file in Excel 2000 with the 10 buttons on it and the code and it still takes 10 seconds.
Deleting Cells Based On Font Color
I am trying to delete certain cells within a range of data (A13:E29) that have white font or #N/A's. The only information I need is the black data. I have to manually go and clear these cells for many different ranges. I'd like to incorporate a macro that analyzes the range first to delete the values that are white font or #N/A.
Change Font Color In Print Footer
I wrote a macro to do me page footers
.PageSetup.CenterFooter = "Page &P of &N"
.PageSetup.RightFooter = "Préparé le " & Format( Date, "dddd, dd MMMM yyyy")
it works fine, howver I would like to change the font color to a light grey, and I have no clue how to do that.
Change Font Color If Another Cell Is Blank
I have a table - the first column is quantity, the others are descriptions, prices, etc.
I need to change the font of the other columns to white if the quantity cell is empty.
Jennifer Auto Merged Post;I'm still working on this, making baby steps. This is my code so far:
If Range("B26") = IsBlank Then
Selection.Font.ColorIndex = 2
It works for line 26. Can someone give me a hint about how to make it do the same things for lines 27 through 62? Without having 35 IF statements in my code?
Change Font Color Based On Conditions
I'm trying to get the font to turn red in column G if it is greater than or equal to column I, and get it to turn orange if it is between 80% of I and I. This is what I've got so far.
Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("G" & Target.Row) >= Range("I" & Target.Row) Then Range("G" & Target.Row).Font.ColorIndex = 3
If Range("G" & Target.Row) >= Range(("I" & Target.Row) * 0.8) Then Range("G" & Target.Row).Font.Color = 45
Pasting Font Color From Conditional Format To Permanent
I have backwards co-workers that can't figure out how/why to use conditional formatting and have deigned it "not acceptable".
They've requested I fill in a HUGE spreadsheet and change the font color to red if it meets a criteria.
Simple enough to do with a conditional format that compares my data.
HOWEVER, now I need the individual cells to stay red and remove the conditional format (because conditional formatting "confuses" them). Removing the condition causes the color to go back to black. I've tried all sorts of paste specials (formula/format) to no avail...
Conditional Formatting Change The Font Color And Look Blanks
I have a simple sheet that has columns I-K. My issue is that in column K I am dividing J/I. If both J and I cells have a "0" then I get the #DIV0 error. If both J and I cells are blank then I get the #VALUE! error. I need it so that if the cells in J and I have a zero in them then it places a 0 in K. But if both J and I are blank then it puts something else that I can have Conditional formatting change the font color so column K looks blank. I think the IF formulas I am try to use recognize blank cells as zeros as well.
Changing Font Color Based On Change From Previous Value
I want the order size to be colored red. If the most recent order is larger than the previous order, I want the order size to be colored blue. If the most recent order is the exact same size as the previous order, I want the order to be colored black.
How would I make code that would let me "remember" the previous order size and the most recent order size, and let me compare them to conditionally format the font?
Conditional Cell Locking Based On Font Color
Is it possible to write VBA code that will prevent a user from changing a cell's contents, depending on the cell's font color?
More specifically, I have a column of text in range B15:B64. Some of the cells will have a black font, others will be blue. Is it possible to lock the black font cells only, leaving the blue cells unlocked for users to change?
Conditional Formatting :: Change Font Color Of Cell
Cell B157 is changed by checkbox 1= TRUE, 0 = FALSE
Cell H1 and Cell H2 are percentages changed by the user.
Range(AI8:AQ8,AI12:AQ12,AI16:AQ16,AI20:AQ20, etc) each cell in the range contains a formula, and is protected from the user.
I need the contents of each cell in the range to change font color (independent of each other) when the formula of any of the cells within the range changes - to the following
If B157 = 1
Cells < H1 (a percentage changed by user), would turn Red
Cells > H1 but < H2 (a percentage changed by user) would turn Yellow
Cells > H2 would be Green
If B157 = 0
Cells < H1 (a percentage changed by user), would turn Green
Cells > H1 but < H2 (a percentage changed by user) would turn Yellow
Cells > H2 would be Red
I need it to fire whenever the value of one of the cells in the range changes.
I have tried If statements, Select Case, and a combination of both but just can't get it!