.interior.color

  1. S

    VBA Conditional Formatting Query

    Hi All, I currently have the following code which provides a R/A/G rating dependent on a cell value. This works as expected however I'd like to amend this so that if the cell value is 0, and the previous value is also 0, then it shows as Green, rather than Amber. The cell value in question is...
  2. S

    Leading Zero issue

    I have an issue with the formatting of data. the script I have copies data from "PASTEDAT" tab and paste into "QUASAR Script" tab. So the data from the "Data"tab can be as follows 546882 546883 '092384 Copying the 546XXX numbers are ok. However, the resultant for the last number pastes into...
  3. W

    Loop through 40 cells at a time and finding the highest value in that range

    I am using the following code to loop through all rows in the designated columns in the ColourColumns array and color the cells depending on their value with a select case statement. I would like to loop with 40 rows i 1 column F, then the next 40 rows in the same column and compare the values...
  4. S

    Trying to colour cells based on RGB values

    my spreadsheet has data in Coluns A thru E and j Thru R in F, G and H I have the RGB values and I want to colour column I Usng the follwing code I am able to colour the cells but the macro throws a Run-Time error '13': type mismatch and hightlights .Interior.Color = RGB(.Offset(, -3).Value...
  5. J

    Conditional formatting (interior cell color) with VBA

    I'm trying to modify the code found in this thread for a workbook I have. I've added the formulas that suit my conditional formatting requirements, but I need help/education with applying the rules to each row on the worksheet (2-31) and also modifying the sheet name(red lettering) reference in...
  6. T

    Code Skipping

    Hello, I have this piece of code that I am using to format a worksheet to later be used as a comparison template for another worksheet. Sub Comparison_Formatting() Dim LR As Long, _ i As Long LR = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row With Application .ScreenUpdating =...

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top