Pivottable conditional formating

[doriannjeshi]

Hi,
How to apply conditional formating to a pivotable based on values of another column value

this is the base table

number	Month	Day	Night
TRUE	January	1	4
TRUE	January	1	8
SEMI	January	2	4
FALSE	January	1	4
SEMI	May	1	3
TRUE	May	2	8
FALSE	May	1	3
SEMI	May	2	4
FALSE	May	2	4
TRUE	October	1	8
TRUE	October	2	4
FALSE	October	1	3

Here values of Day , conditional formating for values = 2

I want to apply this cell color formating based on the values of column Day to the pivot with the values of Night .
This is an example as my table is very large and I need the most efficient way. Because I will have to do this with a macro and then apply permanent color formating

 

[Peter_SSs]

Because I will have to do this with a macro and then apply permanent color formating

If you are doing it with a macro, do you really need the Conditional Formatting? Could a macro just apply the colour directly? Something like this?
Assuming the PivotTable is in the 'Day' mode when this code is run.

Sub Test()
  Dim rFound As Range
  Dim FirstAddr As String
  
  Const ValueOfInterest As Double = 2 '<- Value you are looking for
  
  With ActiveSheet.PivotTables(1).DataBodyRange
    With .Resize(.Rows.Count - 1)
      .Interior.Color = xlNone
      Set rFound = .Find(What:=ValueOfInterest, LookAt:=xlWhole)
      If Not rFound Is Nothing Then
        FirstAddr = rFound.Address
        Do
          rFound.Interior.Color = vbGreen
          Set rFound = .Find(What:=ValueOfInterest, After:=rFound, LookAt:=xlWhole)
        Loop Until rFound.Address = FirstAddr
      End If
    End With
  End With
End Sub

Before the code is run:

After the code is run:

Now change to 'Night' mode:

 

[doriannjeshi]

Thank you Peter

 

[Peter_SSs]

Cheers. You're welcome.