.color

Hello, I have some conditional formatting to apply across numerous rows in my worksheet and I would like to speed up that process as much as possible by using VBA. Ideally I will select some cells and then the VBA would run through each row and apply the Red (High) - Green (low) cell colour...

I would like to color a range of cells a particular color upon entry of 1 of 6 identifiers: o, o!, o#, y,y!, and y#. I do not wish to use conditional formatting, because I want to assign the code to other buttons for other users (unique coloring system). I have the following code, but it seems I...

Hi, I have a long sub that goes column by column and does various formatting. In the below section of code it conditionally formats a column based on the column number. Unfortunate when the raw data is imported into the sheet it will sometimes not line up correctly but the column names will...

Hello friends, I have looked for an answer to my question but have not been successful. Therefore, I am asking the experts here. Let me explain what the VBA window looks like. The project explorer shows: AddRemovePlayerForm PlayerSelectForm Sheet1(Setup) Sheet2(8 Teams) Sheet3(8 Teams...

Greetings Below Code for Lighten RGB How get Darken RGB? Sub lightenRGB() Dim I As Integer, Rng As Range Dim R As Byte, G As Byte, B As Byte Set Rng = Selection With Rng.Cells(1).Interior R = .Color Mod 256 G = .Color \ 256 Mod 256 B = .Color \ (CLng(256) * 256)...

Hi All, I'm having a difficult time getting this piece of code to work. For a variety of reasons I can't use conditional formatting. My problem: Each cell has a different value: GREEN GREENAMBER AMBERGREEN AMBER AMBERRED REDAMBER RED I simply want something that if the cell says "RED"...

Hi. So I am using a userform to determine the color of a sheet. But it keeps having issues getting past one sheet. I'll show the code below. Sub ColorAllSheets () Dim wsd as worksheet Application.DisplayAlerts = False For each wsd in worksheets If left(wsd.name,4) = "asse" or...

Hi, I have a macro that conditional formats a cell depending on the country it contains. What I need though is a way so that a particular colour scheme can apply to more than one country. So basically if A1 = "Sweden" "TRUE "FALSE" can become if A1= "Sweden" or "Ukraine" or "Barbados" "TRUE...

Hei, I would like to make a macro that searches the whole workbook for errors(#Value, #DIV/0, #Error etc.) and returns a cell either green (colour 5287936) if no errors found. or red(colour 255) if errors are found in workbook. to make it easy I want to search for "#" as I do not have "#"...

Does anyone have attractive slicer formats they'd like to share? I'm tired of the basics but creating an eye-catching alternative takes a lot of time, and of course they don't easily transfer to another worksheet. To start the ball rolling I've got VBA for one. Someone gave the design on a...

Hello! I am trying to create a Macro/VBA to conditionally format text. I have 30+ text examples I'd like to highlight all the same color. For example, I'd like to highlight: "abc called", "abc understands", "abcdef called", etc. I don't know how to do this other than recording each and every...

Hello, I am using VBA to apply conditional formatting to a column however, I only want the conditional formatting to be applied to cells which already fill in them and skip any cells with no fill. Below is my current code. Sub ApplyBAandCertConditionalFormatting() With Sheet2 With...

Currently I have this code that with the support of conditional formatting, is able to detect all duplicates, but makes them have the same exact color. This is a problem because I have a gigantic table and looking at everything with the same color. Range("Table2[[#Headers],[Plastic...