I am a new member, with not a lot of VBA experience. Sorry for the vague title .. couldn't come up with something ^^". The idea is, I made an list with several anime titles I am watching (in column A) In column G it shows the status; "Watching", "Completed", "Planning to Watch", "On-Hold" or "Dropped". I managed to let the colors of those words change with this
View 4 RepliesI have some code that runs through about 5000 rows of data looking at duplicates for column A. instead of deleting the duplicate rows, i change the font.colorindex of the cell in column a so that all cells containing xx are one color, and all cells containing xxx are colorindex+1.
Since i have about 5000 rows, colorindex limits itself to 122 (i msgbox'd each time and this is the last number i got before the subscript out of range).
Is there anyway around this, or is there a better way to pickout duplicates. remember, i can't delete duplicates, i need a way to manipulate the duplicates data once i pick them out.
I am looking to have the cells font color in each row match the color of the font in column D that will change depending on the info of the drop down box.
Sheet 2 is the one I am looking to work with as a test.
I'm trying to have a macro run to search a specific column (S) for a particular text value "y" and if true it will change the font to bold and the color to red for the entire row of the cell that contains the "y". the column is part of a data table that is constantly refreshed not sure if that makes a difference or not.
View 2 Replies View RelatedWhen I hide columns in a column chart the different fill colors I used on specific columns no longer show up with the colors I originally had. Is there a way to maintain the proper sequence of column fill colors even when some columns are hidden?
View 1 Replies View RelatedWe use a several Excel files to keep track of who has booked retail space with us. We have a main sheet that has every space within every shopping Mall we deal with. We then have different files for each Mall (this is so we can email the file to the shopping mall to show who is booked in each space but they don't see all the other shopping malls details). We have the other files set-up to read information from the main sheet so when we update a cell with the booked companies name it updates a cell on the relevant file.
This part all works fine, but we also change the booked companies colour depending on if they have they have paid, not paid or awaiting invoice. Currently we change this by hand on the main file then on the other files. I am hoping someone maybe able to explain a way of adding to the formula we already use to update the relevant cells automatically to enable the font (or cell if its easier) colour change to be carried across to the other files.
I'm new to VBA. I'm trying to write a macro that toggles between three or more font colors for the cells that are selected. I started with the "record macro" feature and then tinkered with the code because I obviously don't have a very good understanding of this process yet. How would I go about writing a code like this?
View 4 Replies View RelatedConditional format for changing font colors using VBA
Its Working.
I have the following Case statement that changes all the cells to the correct color, but does not change the Font color as specified in the Case. All the text is White (fcolor = 2) instead of just the 3 types of cells specified.
View 2 Replies View RelatedI'm trying to create a questionnaire and in each question you got to rank the answers 1, 2, 3 and 4 according to your preferences.
So I'm trying to use data validation to allow ranges between 1 and 4 and at the same time I'm trying to use =countif($A$1:$A$20,A1)=1 to prevent repeating selections but my problem is that with the data validation tool I can only select one of those options either allowing whole numbers between 1 - 4 or allowing custom and using =countif($A$1:$A$20,A1)=1.
Is there a way to do both?
Let's say I have a list in worksheet 1. It's in column A, starts in row 1 and goes.
Red
Orange
Yellow
Green
Blue
Purple
In worksheet 2 I want to list in row 1, starting with column A, which colors have a value next to them. I want the list to match the first worksheet's order. I'm looking for a formula solution.
Example 1
WS 1
Red 3
Orange 4
Yellow 5
Green
Blue 1
Purple..........
I have a data base in which I classify cells in three colors (green, yellow, and red) on my own. I would like the first cell in each column to indicate if there is a red or yellow cell in it's column. Because red cells are more important then yellow cells, if there is a yellow and a red cell in the column, I would like the red to over ride the yellow and the first cell would indicate red.
So basically, if there is a red cell in the column, no matter what other colors there are, the first cell should show red. If there is only yellow or yellow and green cells, the first cell should show yellow. If there are only green cells or green cells and clear, the first cell should show clear.
I have to make a macheine cycle chart. I have a column containing Step Names and a column containing step time in whole seconds. I need to paste the step names across Row 1 and whole numbers counting to X down colum A. I then need to have each second represented by coloring the cell, for example, Step 1 is 1 sec. and Step 2 is 2 sec. if "Step 1" is in B1 I need B2 colored then for "Step 2" in C1 i need C3-4 highlighted and so on for a variable number of steps. This is my first question so I hope I was clear enough. With this much programed I will be able to make simple changes to tweak it to fit my needs.
View 2 Replies View RelatedI have a requirements in excel vba to evaluate and check the column data from other workbook. I would like to filter remarks for all "INTRANSIT" from my working file then If the data or tracking# is exist from the source file evaluate if transaction remarks is "Done" or if "Not yet" exist. If remarks from SourceFile is "Done" i will put "RECEIVED" or If "Not yet" i will put "INTRANSIT" in my Working file Remarks column.
Workbook WorkingFile:
Tracking# QtyModelRemarks
---------------------------------------------------
D-8840862402|20llllRECEIVED
D-8840862402|20kkkkRECEIVED
D-8840862411|20mmmINTRANSIT
D-8840865000|230mmmINTRANSIT
D-8840865000|50bbbbINTRANSIT
D-8840862450|20bbbbINTRANSIT
D-8840862450|120bbbbINTRANSIT
SouceFile --- to evaluate if Done or Not Yet
Tracking# QtyModelRemarks
----------------------------------------------------------
D-8840862402|20llllDone
D-8840862402|20kkkkDone
D-8840862411|20mmmNot Yet
D-8840865000|230mmmNot Yet
D-8840865000|50bbbbNot Yet
D-8840862450|20bbbbNot Yet
D-8840862450|120bbbbNot Yet
I have a workbook with 2 sheets. What I want is:
1. Cells in column A, Sheet 2 are compared with the Cells in column A, Sheet 1.
2. Sheet 3 is produced containing all the rows in Sheet 2 for which there is no duplicate cell in Column A, Sheet 1.
3. The rows copied from Sheet 2 to Sheet 3 are highlighted on Sheet 2. Attached is a workbook with 3 sheets. Sheet 3 is the desired result (+ the cell highlighting on non-duplicates on Sheet 2).
I have a worksheet with 20+ columns. For this macro, I only need to focus on 4 of them. However, none of these columns are ever in a fixed position so the macro would need to find them by name and NOT by column position. Here they are...
1. Vacation Type (will only have a text value of either "Cold" or "Warm")
2. Vacation Started (will always have a date *x/xx/xxxx)
3. Vacation Ended (sometimes it will have a date '*x/xx/xxxx' and sometimes it will NOT have a date and will be truly blank)
4. Number of Days (currently has ALL truly blank cells)
THIS WHOLE MACRO SHOULD NOT BE CASE SENSITIVE ANYWHERE
Here's what I would like the macro to do...
Scenario 1 - for "Cold" values
Find "Cold" text values in the "Vacation Type" column
"Cold" values WITH a date in the "Vacation Ended" columnIF there IS a date in the "Vacation Ended" column in the same row, put the number of days difference between the "Vacation Started" column and "Vacation Ended" column in the "Number of Days" column.
The amount of days in the "Number of Days" column will determine whether these cells should be highlighted GREY or RED.
A) IF the number of days difference is 7 days or less, highlight the cells in the "Vacation Ended" column and "Number of Days" column RED.
OR..............................
I'm working on a sheet I have to complete and I'm blocked 'cause I'm not able to find the right formula to get the result I need.
I have a sheet that contains 4 columns with the following content (consider the following just as an example. The real sheet contains more that 25,000 rows.
User ID Repository 1 Repository 2 Repository 3
001FG x
001FG x
10GA x
20PK x
20PK x
20PK x
21CC x
4C1D x
Now, the table contains the user id (unique ID) and three columns that stand for the access right the user has for accessing a specific repository.
This means that a User can have more than one occurrence in the sheet because it could have rights to access different repository (i.e. the user 20PK can access all the repository).
What I should be able to do is to transform the table above to a new one with unique user id and the rights for each repository. I would need something like this:
User ID Repository 1 Repository 2 Repository 3
001FG x x
10GA x
20PK x x x
21CC x
4C1D x
How can I do this by using a formula and not a macro?
what i want to do is 1 have a workbook with 3 worksheets. Sheet1 contains the columns:
Reference No. Line Item No. Amount Date
1 3 500 12/01
2 4 900 01/01
Sheet2:
Reference No. Line Item No. Quantity PersonInCharge
1 3 10 Kim
5 6 60 Noel
For sheet 3, what i want to happen is that when i run the VBA macro, it searches through both worksheets (Sheet1 and Sheet2), finding rows that have matching Reference No. AND Line Item No. and combine all of the columns (and values) for that particular row into another row in Sheet 3. So for the above data set, the resulting data in Sheet 3 would be:
Reference No. Line Item No. Amount Date Quanity PersonInCharge
1 3 500 12/01 10 Kim
As this is the only entry in both sheet1 and sheet2 where there is a matching reference and line item no.
I want to take what is in column A and replace the number after the "=" with new number.
I need a formula that identifies the 6 numbers or letters after the = and replaces with column A
111111 showstocknumnber//details.php?vid=111111
222222 showstocknumnber//details.php?vid=111111
345673 showstocknumnber//details.php?vid=111111
The 111111 after the = could be any string of 6 letters and numbers. The contents of column b are a URL.
I have this macro below and would like the code changed to find the "Customer Number" column by name rather than by column B. Note that the "Customer Number" column will always be somewhere in row 1.
View 12 Replies View RelatedI am trying to find a way to populate a column based on the changes in the data of another column...
For example, I want to fill in the code column....so when the customers cost changes, I want a numeric code to populate & change. So for the first 5 lines, the code could be 21, and then when the cost changes to $37.51, want the code to change to 22.
CodeCustomer's Cost
$34.10
$34.10
$34.10
$34.10
$34.10
$37.51
$37.51
$32.50
$32.50
$33.48
$33.48
$34.10
$37.51
$37.51
I have this code below that deletes any single occurrence of a customer number but the "Customer Numbers" must be in column A.
I would like to change the code below to instead look for the "Customer Number" column by name, rather than by column A. My "Customer Number" column will always be in row 1, but yet, it will be in a different column letter every time I run the report.
I need code to change a letter such as A into a column number i.e 1. Everything i can find is to do with changing column numbers into letters, surely you can do it the other weay round aswell? So when the macro is given the letter AA it returns the column number as 27 etc, but i need it as a defined variable such as "i = column number" so i can use this information further on in my code.
View 2 Replies View RelatedThe entries are made in Columns A thru C. In Columns F and G I want any value over 100% to have a red background, any value less than 100% to have regular formatting, and I'd want percentages to have white font if an employee is deleted from Column A.
Here's an example of how I have the formatting set up:
Condition 1: Formula is =$E$2="" --->white font
Condition 2: Cell value is >1 ---->red background
Condition 3 Cell value is </= 1 ---->normal format
I have some code here that isn't working for some reason and I'm not sure why... Here is the code:
[Code] ......
I would like the code to take any row that has "JAN" anywhere in column D, and change the value in column J to "January".
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.
When I add a table in Excel, I can choose from Table Styles, different styles that set one color for even rows and another color for odd rows.
Is there a way to say to this Table Style that assign one color for rows that have the same string in column A in consecutive rows and another color when the string in colum A changes?
I mean,
If A1= XYZ, A2=XYZ assign blue to row 1 and 2.
If A3:A9=FTG assign green to rows 3 to 9.
If A10:A13=LLKF assign blue again to rows 10 to 13.
If A14:A22=WUR882 assign green again to rows 14 to 22.
and so on.
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.
View 3 Replies View RelatedI'm trying to update a workbook with a new look and want to change the cell color based upon what the cell color currently is.
I'm having problems with the code that I created. I just can't seem to get the syntax correct for the code.
For the code below, my Range of A5:D5 is just a test range where each cell should change colors. When completed, my range will be much greater.
Code:
Sub ChangeColors()
Dim Cell As Range
For Each Cell In Range("A5:D5")
[Code]....
This is probably very simple but I'm having a problem finding how to change the color of a bar based on the value. For example, when the bar reaches 100% I want the bar to turn green while the other bars in the graph stay the same.
View 2 Replies View Related