I have this code:
Code:
If .Range("K" & t) = "AUTO" Then
.Range("K" & t) = Format(Application.VLookup(.Range("A" & t), rcore, 54, False), "h:mmA/P")
With .Range("K" & t)[code]....
It is intended to change the font colour to white when the cell = "AUTO". It does, but it also changes the contents of the cell (like NA, and NR) to white when they aren't equal to AUTO.
I am trying to create a model that has a mixture of conditional formatting and data validation formulas within it, but have run into a problem in one area. Essentially, cell E10 is a Validation which pulls a drop down list of names. One of the options in this list is "Other".
I want to create a VBA code to make sure that cell E12 will get rid of any input, turn grey (color index = 15), and potentially lock (if possible!) if the "Other" is chosen by the user in cell E10. If any other value is chosen for cell E10, Cell E12 needs to remain unlocked and white (color index=2).
Is there some code to change the fill color of all the combo boxes I have on a spreadsheet.
View 2 Replies View RelatedI have a spreadsheet that will contain about 5-15 rows with a letter "S" in the column. If this letter S appears in the column, I need its entire row to change font color to RED and then change that row's value in column L to a negative number. is there any easy way to do this?
View 14 Replies View RelatedI have no knowledge of VB programming and the conditional formatting seems limited. I want to change to the color of cells to yellow if the cell value is greater than 80 but less than 99, and if it is 100 or greater to fill red. Is this possible and if so can it be applied to a range of cells?
View 3 Replies View RelatedThis is my first post and i am new to visual basic in excell even though I got a little bit knowledge of visual basic access, please do not get annoyed at me for making stupid mistakes.
I wrote the following ...
I have an excel sheet in which many cells have a background color of Green. These cells are located all over the sheet. I want to change the background color from Green to Red not affecting the color of other cells in the sheet.
I will be realy really thankful, as I have to do this exercise for more than 50 worksheets.......If I start doing it manually by selecting each celll with green color background and changing it to red.....you can well imagine my condition.....my life would get shorten significantly while doing this.
I'm trying to create a macro that will change the color of the cells I've selected to green. My selection will vary depending on what cells I'm trying to color green (not a fixed range). My current code only changes one cell of my selected range:
Sub IN_PCA()
'
' IN_PCA Macro
'
'
ActiveCell.Select
Range("M243").Activate
With Selection.Interior
[Code] .......
I've tried using "ActiveRange" in lieu of "ActiveCell" as well as other commands that would seem to be correct but have failed.
I have a userform within an Add-in. The form contains multiple text boxes, shown as a grid. When the user uses the calculate button - the text box in question is raised and highlighted using the follwing code within a case statement:
View 2 Replies View RelatedThis may have been answered on here but can not seem to find it. My situation is I have values in A1,A2 & A3 that are like counter reading so the value is always changing. What I am looking to do is change the cell color if one of the values is over 500 from the other two values. Say A1 is 3000, A2 is 3250 and A3 is 3500. I would like the cell for A3 to change color.
View 2 Replies View RelatedI'm confused about values for the color property. Two systems I understand what values to provide as arguments. The third is a mystery.
' Question 1 - line 3 below - this is the result of recording a macro
' I don't understand the meaning of the line 3 argument related to lines 1 and 2 arguments
' How do I convert from args of lines 1,2 to the arg of line 3?
Selection.Interior.Color = RGB(60, 70, 90) 'arguments in decimal
Selection.Interior.Color = RGB(&H3C, &H46, &H5A) 'args in hex, begin values with "&H"
Selection.Interior.Color = 16737996 'How to get this argument?
' Question 2 - line below - Is there are more concise syntax for the arguments?
Selection.Interior.Color = RGB(&H3C, &H46, &H5A) 'better way than &H before each arg?
For some reason, I cannot get why I keep getting an error saying that excel cannot set the property of a pivotitem's visibility. I use excel 2003.
Code:
For Each pi In ActiveSheet.PivotTables("PivotTable1").PivotFields("Group Code Description").PivotItems
check = pi.Name
If check = group Then
If pi.Visible = False Then
pi.Visible = True
[Code] .........
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
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.
I have a code that updates data from one file to another.....esentially, i run this code daily and it updates to a compiled daily log of all of the previous days data.
Currently, i am manually coloring the cells to visually assist in grouping what data has been uploaded for each day.
Sub UpdatePOQntyReducDB()
Dim lookupfilename As String
I must highlight cells that appear more than once.
What I mean is that if an item in a cell appears more than once I highlight it in blue, if the same happens twice I highlight that cell red etc and so one. does anyone know how to do this in excel.
Well I am back to the colour coding of protected cells
I am using excell 2003
Many cells in the worksheet are locked
My problem is that when I am debugging I forget to turn sheet protection on
when I am finished And then users can overtype the cell formulae
How can I set excel up so that when the sheet is protected all the Locked cells have a green background , but when the protection on the worksheet is turned off
then the locked cells must be a red
I have a macro that, at varying places, changes the formatting of adjacent cells. The formatting code is easy to generate via the macro recorder, but it's long - longer than the macro itself - and I'm using it a couple of times (due to if statements). That makes it difficult to read. It's usable, but looks ugly. I'd like to streamline its appearance.
Is there a way to do something like:
Code:
If range("F5").Value > 0 then
Activecell.Offset(1,0) format = blah
ElseIf Range("F5").Value = 0 then
Activecell.Offset(-1,0) format = blah
End If
The formatting I want is dark gray interior with a border box around it. The macro recorder generated this:
Code:
Sub test2()
'
' test2 Macro
'
'
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
[Code] ............
I am looking for code that would delete all columns in a worksheet that do not contain a fill color.
View 9 Replies View RelatedI have 16 columns (B:Q)
Row 1 contains either a number, the letter x, or the letter a.
Cells in Range("B2:Q628) contains either the letter x or is blank
If a cell in row 1 contains an x, then all cells in that column with an x has an Interior.ColorIndex of 45
If a cell in row 1 contains an a, then all cells in that column with a blank has an Interior.ColorIndex of 45
If a cell in row 1 contains has a number, then nothing
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
Code:
With wshfma
lr1 = 0
.Range("K2:N15").ClearContents 'early late staff rowsource
.Range("C2") = Format(hwmin1, "h:mmA/P") 'text!
With .Range("D2")
.Value = (.Range("C2"))
.NumberFormat = "general"
End With
Cell C2 of worksheet 'fma' is populated by a value linked from a textbox in a userform. It is a time value in text format (eg "8:30P").
This snippit of code is to populate cell D2 of worksheet 'FMA' with the value in C2 (8:30P), and apply the general number format to it. (I know redundant ... but this is just testing).
What is happening though, is cell D2 is actually being populated with the contents of another cell ... F3 to be exact.
Sub test()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim lastrow As Long
Dim newRow As Long
Set ws1 = Sheets("SUMMARY")
Set ws2 = Sheets("WIP")
Application.ScreenUpdating = False
With ws2
Range("A2:C2").Select
Range(Selection, Selection.End(xlDown)).Select ' Clear
End With
x = 10
lastrow = ws1.Range("C5").End(xlUp)
Do
The code is run from ws1. I put in the .select for now because I don't want to loose my info on ws1.
I trying to clear the range A2:C2 all the way down to where info is before doing the Do Loop which will repopulate the same range from ws1.
If the rest of the Do Loop code is needed, let me know.
I have a spreadsheet with a row for a company name, their offer price underneath that, and a 1,2, or 3 underneath that. In a seperate tab I have the offer prices in order of rank with the company name next to the corresponding price using the Index function. I also need to be able to color code the background of the offer price based upon the 1,2 or 3 associated with each name. I am new to the Index stuff so I need some help putting this one together.
View 3 Replies View RelatedI've created a Gantt chart using the tip #58. Now how can I count all the cells that are colored?
Im having some problems with the following VB code
It does import all my data but if I have 4 files for it to import to the 3 different tabs the following happens:
on tab A the first 3 files all come in fine but the 4th file comes in on row 103 instead of the next blank row which would be 22
on tab B the first 2 files come in fine but the 3rd and 4th come in starting on row 94 instead of first blank row which would be 13
on tab C the first 1 file comes in fine but the 2nd 3rd and 4th files come in starting on row 88 instead of 7.
I'd be more then happy to email my spreadsheet to someone as its quite hard to explain whats going on!
I know its probabally a daft mistake I've made in the code if someone could just point out what I've done wrong so I can try to resolve it.
Private Sub ImportData_Click()
'Imports and processes the raw FILE data into the Workbook
'Define a as the current FILE file reference cell,
Dim a As Range
'Define minTime and maxTime as the min and max task periodicity should be processed.
Dim minTime As Long, maxTime As Long
'Define a store for the address of the period totals...
i have a button that copies data from cell
A5:K5, and pastes it in Sheet2 of my workbook.
The data is ordered like this
------
------
------ button1
------
------
------ button2
------
------
------ buttonX
I have like 40 buttons attached to 4 rows each. And in that group of rows, i have some cells with an IF= formula, and some minor coding.
The problem is: If i press button 3,4,17,29 before i press every other button before that. I get an reference code fail at the cell.
If i press the buttons in order. Like 1,2,3,4,5,6,7 - it appears smoothly.
More info: The button copies data from for example A5:K5 and pastes it into the next blank row of sheet2. But i want to be able to press button 2 before i press button1, without getting an error in my =IF cell.
If i press the 40 buttons in a row, and then starts to mix up the button pressing. It appears smoothly.
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
I'm trying to write some code to make an existing chart display the correct series of data. However, on the ".SeriesCollection..." lines, it gives me the error "Object does not support this property or method." I'm using a Bar-Line graph, if it makes any difference.
View 5 Replies View RelatedI have a UserForm and what I'm trying too do is change the color property of all the labels on the form simultaneously.
View 9 Replies View Related