VBA Automatic Conditional Formatting based on Formula outcome/criteria

C

ckdragon

New Member
Joined
Apr 3, 2022
Messages
37
Office Version
  1. 365
Platform
  1. Windows
  2. MacOS
Hi There.

I am trying to write some VBA code to conditionally format some cells/rows and that will apply across my whole workbook except 2 sheets (sheet 1 & 2) and that will automatically update when things are changed.

They are the results of formulas in the cells.

I know I can use normal conditional formatting but I am working with power query tables and every time the data changes, sometimes it doesn't pick up the formatting.

I have started writing some code below but keep getting "Type Mismatch" errors and cant make it automatically run

Can anyone please have a look and see what I am missing here?

Thank you!

Private Sub FOrmatting()

Dim MyRange As Range
Set MyRange = ActiveSheet.Range("A1:V75")

For Each cell In MyRange

If cell.Value = "Early" Then
cell.Interior.Color = RGB(255, 0, 0)
End If

If cell.Value = "Late" Then
cell.Interior.Color = RGB(255, 0, 0)
End If

If cell.Value = "ERROR" Then
cell.Interior.Color = RGB(255, 0, 0)
End If

If cell.Value = "YES - MANUAL PROCESS" Then
cell.Interior.Color = RGB(255, 0, 0)
End If

If cell.Value = "In Booking Time" Then
cell.Interior.Color = RGB(146, 208, 80)
End If

If cell.Value = "TRUE" Then
cell.Interior.Color = RGB(146, 208, 80)
End If

If cell.Value = "NO - AUTO CALCULATION" Then
cell.Interior.Color = RGB(146, 208, 80)
End If

If cell.Value = "NO" Then
cell.Interior.Color = RGB(146, 208, 80)
End If

If cell.Value = "Acceptably Early" Then
cell.Interior.Color = RGB(255, 217, 102)
End If

If cell.Value = "Acceptably Late" Then
cell.Interior.Color = RGB(255, 217, 102)
End If

If cell.Value = "YES" Then
cell.Interior.Color = RGB(255, 217, 102)
End If

If cell.Value = "Journey started and ended in a Business zone" Then
Rows(cell.Row).Interior.Color = RGB(242, 242, 242)
End If

If cell.Value = "**Jane Doe**" Then
Rows(cell.Row).Interior.Color = RGB(242, 242, 242)
End If

If Cell(cell.row "L").Value = "Base (Business)" Then
cell(cell.D).Interior.Color = RGB(255, 204, 204)
cell(cell.F).Interior.Color = RGB(255, 204, 204)
End If

If Cell(cell. row "K").Value = "Base (Business)" Then
cell(cell.D).Interior.Color = RGB(219, 246, 214)
cell(cell.F).Interior.Color = RGB(219, 246, 214)
End If

Next cell

End Sub
Click to expand...
 

Excel Facts

Whats the difference between CONCAT and CONCATENATE?
The newer CONCAT function can reference a range of cells. =CONCATENATE(A1,A2,A3,A4,A5) becomes =CONCAT(A1:A5)
Sort by date Sort by votes
Hi,

all I could see was that you'd missed a couple of commas in the lower part of your code, and needed few corrections in your last interior color selections.

VBA Code: 
Private Sub FOrmatting()

Dim MyRange As Range
Set MyRange = ActiveSheet.Range("A1:V75")

For Each cell In MyRange

If cell.Value = "Early" Then
cell.Interior.Color = RGB(255, 0, 0)
End If

If cell.Value = "Late" Then
cell.Interior.Color = RGB(255, 0, 0)
End If

If cell.Value = "ERROR" Then
cell.Interior.Color = RGB(255, 0, 0)
End If

If cell.Value = "YES - MANUAL PROCESS" Then
cell.Interior.Color = RGB(255, 0, 0)
End If

If cell.Value = "In Booking Time" Then
cell.Interior.Color = RGB(146, 208, 80)
End If

If cell.Value = "TRUE" Then
cell.Interior.Color = RGB(146, 208, 80)
End If

If cell.Value = "NO - AUTO CALCULATION" Then
cell.Interior.Color = RGB(146, 208, 80)
End If

If cell.Value = "NO" Then
cell.Interior.Color = RGB(146, 208, 80)
End If

If cell.Value = "Acceptably Early" Then
cell.Interior.Color = RGB(255, 217, 102)
End If

If cell.Value = "Acceptably Late" Then
cell.Interior.Color = RGB(255, 217, 102)
End If

If cell.Value = "YES" Then
cell.Interior.Color = RGB(255, 217, 102)
End If

If cell.Value = "Journey started and ended in a Business zone" Then
Rows(cell.Row).Interior.Color = RGB(242, 242, 242)
End If

If cell.Value = "**Jane Doe**" Then
Rows(cell.Row).Interior.Color = RGB(242, 242, 242)
End If

If cell(cell.Row, "L").Value = "Base (Business)" Then
cell(cell.Row, "D").Interior.Color = RGB(255, 204, 204)
cell(cell.Row, "F").Interior.Color = RGB(255, 204, 204)
End If

If cell(cell.Row, "K").Value = "Base (Business)" Then
cell(cell.Row, "D").Interior.Color = RGB(219, 246, 214)
cell(cell.Row, "F").Interior.Color = RGB(219, 246, 214)
End If

Next cell

End Sub
 
Upvote 0
RobP said:
Hi,

all I could see was that you'd missed a couple of commas in the lower part of your code, and needed few corrections in your last interior color selections.

VBA Code: 
Private Sub FOrmatting()

Dim MyRange As Range
Set MyRange = ActiveSheet.Range("A1:V75")

For Each cell In MyRange

If cell.Value = "Early" Then
cell.Interior.Color = RGB(255, 0, 0)
End If

If cell.Value = "Late" Then
cell.Interior.Color = RGB(255, 0, 0)
End If

If cell.Value = "ERROR" Then
cell.Interior.Color = RGB(255, 0, 0)
End If

If cell.Value = "YES - MANUAL PROCESS" Then
cell.Interior.Color = RGB(255, 0, 0)
End If

If cell.Value = "In Booking Time" Then
cell.Interior.Color = RGB(146, 208, 80)
End If

If cell.Value = "TRUE" Then
cell.Interior.Color = RGB(146, 208, 80)
End If

If cell.Value = "NO - AUTO CALCULATION" Then
cell.Interior.Color = RGB(146, 208, 80)
End If

If cell.Value = "NO" Then
cell.Interior.Color = RGB(146, 208, 80)
End If

If cell.Value = "Acceptably Early" Then
cell.Interior.Color = RGB(255, 217, 102)
End If

If cell.Value = "Acceptably Late" Then
cell.Interior.Color = RGB(255, 217, 102)
End If

If cell.Value = "YES" Then
cell.Interior.Color = RGB(255, 217, 102)
End If

If cell.Value = "Journey started and ended in a Business zone" Then
Rows(cell.Row).Interior.Color = RGB(242, 242, 242)
End If

If cell.Value = "**Jane Doe**" Then
Rows(cell.Row).Interior.Color = RGB(242, 242, 242)
End If

If cell(cell.Row, "L").Value = "Base (Business)" Then
cell(cell.Row, "D").Interior.Color = RGB(255, 204, 204)
cell(cell.Row, "F").Interior.Color = RGB(255, 204, 204)
End If

If cell(cell.Row, "K").Value = "Base (Business)" Then
cell(cell.Row, "D").Interior.Color = RGB(219, 246, 214)
cell(cell.Row, "F").Interior.Color = RGB(219, 246, 214)
End If

Next cell

End Sub
Click to expand...
Thank you so much for this. Fixed a few things, but now I am getting a Type Mismatch error (13) -

Identifier under cursor isn't a procedure name - but only on some of my sheets in my workbook.​


For note, I went and put the code in a button and there is one on every sheet so it only runs the code when you click the button and its only of the active sheet.

But all the sheets are exactly the same (minus some data) so I dont understand why it is throwing this error on some and not all the sheets

Any help would be great

Thank you!
 
Upvote 0
Hi

I think you will need to share some data, as the code worked fine for me after a couple of small typo fixes ?
 
Upvote 0
You must log in or register to reply here.

Similar threads

A
  • Solved
Excel VBA Phone Number Format Issue
Replies
4
Views
98
AnnAnn
A
S
  • Solved
Macro to select column to run 'sort by colours' macro on
Replies
3
Views
57
Joe4
Joe4
C
  • Solved
Conditional Formatting Macro
Replies
2
Views
184
rlv01
R
L
  • Question
Conditional Formatting vba + Reverting the Conditional Formatting if no data
Replies
1
Views
142
leila
L
F
  • Solved
VBA set conditional formatting application-defined or object-defined error
Replies
3
Views
78
Cubist
Cubist

Forum statistics

Threads
1,214,979
Messages
6,122,552
Members
449,088
Latest member
davidcom

Share this page

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