It is working, but the problem It doesn't change the color number automatically after I change the color. There is any way to set up that option so can change automatically?
Function CellColor(rCell As Range, Optional ColorName As Boolean)
Dim strColor As String, iIndexNum As Integer
Select Case rCell.Interior.ColorIndex
Case 1
strColor = "Black"
iIndexNum = 1
Case 53
strColor = "Brown"
iIndexNum = 53
Case 52
strColor = "Olive Green"
iIndexNum = 52
Case 51
strColor = "Dark Green"
iIndexNum = 51...................
My pallet lost color-coding - if I hover over each little scare it displays the names for the colors and if I click on them they color the cells with the right colors, but the palette itself lost the visual display of colors except for 8 colors: black, blue, red, magenta, yellow, cyan, and white.
I use color-coding of cells a lot and I find it difficult to work without visual clues. At least the hover-support allows me to get the work done, but with difficulty.
With the assistance of SHG, Parsnip, Dave & Daddylonglegs I have manage to put together a little app that assist our staff with scheduling dates in a calendar to avoid a specific trend.
Code provided by SHG has worked perfectly; see below:
Public DaysOff As Range
Function datNext(datLast As Date, DaysOff As Range) As Date Dim datBeg As Date, datEnd As Date Dim iLastPd As Integer Dim iDay As Long, nDay As Long Dim iYr As Integer, iMo As Integer
Though the built in DAY function on the calendar is affecting the dates that are calculated cos the function PD also references this. Whenever I change the year or month on the calendar; it changes the UDF, which is not supposed to be. If the recommended dates are going change all the time; as a result of this, it makes this app useless.
How do I get around this? Also is this what is causing the UDF to recalculate?
AC Tm%T% DOMEQ25%26.5000% INTEQ17%18.0200% DOMPR10%10.6000% INTPR 0%0.0000% ALTIN 0%0.0000% DOMFI29%30.7400% INTFI 6%0.0000% DOMFR10%10.6000% CASH 3%3.1800% Total 100.00%99.64%
The Tm column is the original model percentages for each class. Class INTFI is to be excluded (6%) so I need to adjust each of the other % accordingly and still add up to 100. I thought you simply increase all other % by the excluded amount but I end up with 99.64.
The equation I am using fot T is =C15+($C$21*C15) where C21 is the 6% cell in Tm.
I am using the data analysis add-in to generate a random number (using the random number generation) using a normal distribution. The problem is, i want it to recalculate these numbers every time the worksheet is recalculated but the numbers seem to be values only.
I have trouble using the =Concatenate() or =(A1&B1) to combine data in one cell. It will work for the first cell but then when I drag the equation it gives me the exact same result as the first cell. But when I click to look at the formula it looks good and when I hit Enter the cell reads the correct value. So I have to open each individual cell and hit enter. What is goin on here. I have attached a small example.
Also, sometimes I will type in a formula and hit enter and it just displays the formula. It does not return a value.
I have a workbook in xl2002 that has a data sheet with approx 50 columns and 500 rows which is populated from a querytable querying another workbook. There are no formulas on this data sheet.
I have another 5 sheets, only one of which actually has formulas on it and these refer to the Data sheet above (some fairly beefy Sumproduct formulas in the main, but only 1056 in total (only about 650 of these are Sumproducts - the remainder are simple = A1 type or Match formulas with the third argument as True (ie quite efficient)).
There are also 3 dynamic named ranges in the workbook, which are utilised by the Sumproducts/matches. An example Sumproduc is as follows:....
I have been asked to look at moving a very large set of pricing sheets from Excel 2000 to Excel 2003. In the progress of this I have found that the functionality for a UDF in a cell to change/recalculate any other cells has been removed in Excel XP, whereas it was available in Excel 2000. The amount of work required to refactor the code is very large, and before starting on it it would be good to find out if there is a workaround.
The Sheet works in the following way:-User enters values, clicks a button to run a Macro,-Macro calculates all the ranges required to return a price-In many of the cells it is calculating are Functions which go and look at a large number of cells to calculate the price, sometimes writing to other Cells and sometimes having to recalculate other cells-As it is such a large sheet we can't simply calculate all cells before we tell it to price, as they are not all needed and so aren't calculated unless needed for performance reasons.It would be a lot of work to move the functionality from the Functions to the initial macro call, though this would solve the problem. Is there any other workaround?Macro security is set to low.The Errors I receive are the following:The UDF will hit a line like Range("DataRange").Calculate and this will raise a "Calculate method of Range class Failed" error. If it hits a line like Range("DataRange").Value = 1 this will raise a "Application-defined or object-defined error"If it hits a line like ActiveWorkbook.Names.Add Name:="This_Name", RefersToR1C1:="=Sheet1!R8C2" then it also raise a "Application-defined or object-defined error".Any of these run from a UDF in Excel 2000 works.I have a sample workbook if this isn't clear
How to change the color of a single tabe. What I'm trying to do now is reset the tab color for all tabs.
Here is my code:
'REMOVE TAB COLOR Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets With ActiveWorkbook.ActiveSheet.Tab .ColorIndex = xlNone .TintAndShade = 0 End With On Error Resume Next Next ws
I'm new to using loops so I'm not exactly sure what the above code is doing. When I debug it goes through the steps without any errors but it doesn't actually change the tab colors.
The following code is the code "behind" the run button on my userform. The last section reads in a column ( of numbers and text) into a listbox based on the users choice. Is there any way I can have only certain rows in a different color - based on either if the value in that row is greater than a certain number of if the text in that row is a particular sentence?
Private Sub CommandButton1_Click() 'Dimension all variables Dim fqc As Long Dim eptg As Long Dim newlabel As String Dim BorC As String Dim now As Long Dim secondorthird As String
'Collect User Choices fqc = TextBox3.Value ' Final Quiz Choice eptg = TextBox5.Value ' Expected Post Test Grade BorC = TextBox4.Value ' Is desired grade a B or C now = TextBox6.Value ' Number Of Weeks after term has started secondorthird = "second" If (now = 3) Then secondorthird = "third" .....
For some reason colors will not show on any EXcel doc. When I type colored text in a cell, it shows the color until I press enter, then it goes black. Cell fill colors do not show at all.
However when I send the doc to another computer the colors wil show.
I am trying to create a Holiday/Absence Sheet that will count up hours of Holidays, absence, business Visits etc etc.
The only way I can think of doing this is by colour and filling the cells with the Number of hours holidays, Absence & Business Visits but to do this I need to create a formula that will sum by colour. I've tried a variety of things and I'm sure this can be done using VBA but it's something I have never used so I am at a loss.
So, what I need is a SUM (A1:A31 if colour= Red) and SUM (A1:A31 if colour= Blue) etc.
I hope this makes sense or one of you geniuses out there can come up with somethign smart that works better than my idea!
I have a big set of data and I want to create different graphs in different tabs with it.
So Imagine that in Tab 1 I want to do the sales forecast for the next five years for product A for all countries in Europe Tab 2 would be the same, but for product b Tab 3 the same, but for product c
So with dynamic tables in each tab I can easily do my graph
The problems is that since values vary per product country A in tab 1 is red, in tab 2 is blue and in tab 3 may not exist.
How can I set up a template so taht I do not have to color code each country in each tab? I.e. I want Spain to be blue in all my graphs in the workbook, Italy red and so on...
When a workbook is opened, (using OnOpen() ), I trying to get two header titles colors (A2, B2) to change from their usual Black to Red to Black to Red and finally back to Back.
I'm battling, especially with the time (1 second) for each change. I'm probably using the wrong approach. Can anyone suggest a sound method to achieve this?
How do I go about formatting selected cells for different colors for each different number in the selected cells? If I have numbers scattered about I want the cell to show a different color depending on the number that is inserted. EG: 115=red, 365=blue.
Trying to format cells b9 through b 24 and cells c9 through c24 to change from white to a light grey color by clicking the mouse button once. so one click white, another click grey. The color grey I need is white, background 1, darker 25% in the autofill field in excel. I have search other forums they all lead to changing the code, I did this already. just copy pasted a code I found but all cells were selected to change a bright green.
I am making some grids which will have a series of numbers in the individual cells. But I can't figure out how to change the colors of the digits. If I change one digit to Red; all the numbers in that cell change to Red. Whereas I would like to have them as Red,Green,Black,Blue,etc.
I have 2 cells (B2 and C2) with date format, showing dates from a calendar. FYI, These cells are NOT in my Calendar.
Now, I need to write a formula for my calendar cells to check these two cells (B2 and C2) and change the color of the cells inside my calendar according to the date sindicated inthese two cells (B2 and C2).
I did this with numbers using conditional formating and it works perfect but doing this with dates is giving me a hard time. Is there a way to do this? below is a link to my excel file.
I am trying to create a formula that looks at a spreadsheet containing training percentages for employees. I need to look at these percentages and based on the date that the person started I need to look at certain rules. First it needs to look at what has happened more recently , moving to a new department or promotion. Next it needs to use that info to decide which rule to use. Ex. the person started 90 days ago then they are subject to rule A. The training percentage then needs to be looked at to see what rating they have. EX. percentage < 90% but > 75% gives a rating of 1. percentage than 50% gives rating of 2. percentage < than 50% rating of 3. Rule B would contain different criteria. My problem is that I tried nesting IF statements but I need more than 7. When I tried to do this in VBA I couldn't get it to work.
Is there any way to have more colors in conditional formatting since it only allow maximum 3 colors. Anyway for your info I have an attendance sheet which I want the data to change colors every time the data is enter as below :-
MC / EL / NS = RED Y = BLUE AL = GREEN OD / RD = YELLOW PH = BLACK
I have read the instructions for conditional formatting and I don't think that is what I need. I have 10 diff year 2005,06,07 etc. I want each cell with with a diff year to turn a diff color. Like I want 2005 to be red and 2008 to be blue.
I have a list of number (these numbers are related to incidents) and I want to use the numbers as a basis to split of the spreasheet by coloring the rows. There is no order to how many of the same number there is. So, what I would like to do is fill rows with a color based on the numbers. For example.
I've worked out the following to change the tab color of a "sub" sheet when data on a master sheet is changed. Could anyone recommend the best way to apply this to multiple sheets (20+) without writing an "if" statement for each "sub" sheet?
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Worksheets("Sheet2").Range("E7").Value <> 0 Then Worksheets("Sheet2").Tab.ColorIndex = 4 Else: Worksheets("Sheet2").Tab.ColorIndex = xlColorIndexNone End If End Sub
The master sheet is a bill summary where totals are added, if one of the line items is a subcontracted item the total on that particular subs sheet changes from "$0" and i would like the tab color to change on any sub sheet that is affected by the current quantities billed.
I'm trying to have change if the date on it is passed "now()". I am already using the 3 conditional formatting fields and need this one and another one. Here are 2 problems I seem to be having.
First - the code below only works if I change the date on the cell. I want code to either work with Worksheet Active or any other way so the user does not have to redo the date’s everyday. Second - a record might have conditional formatting already. Is it possible for the target cell in this code can show this color while the rest of the row shows the color of the conditional formatting?
Private Sub Worksheet_Change(ByVal Target As Range) Dim icolor As Integer If Not Intersect(Target, Range("G1:G2000")) Is Nothing Then Select Case Target Case Is <= Now() icolor = 39
