Conditional Formatting Based on List

[poleary2000]

Good afternoon,

I have two sheets. One with many inputs, and one with a listing of unique inputs. The unique inputs, I have formatted the way I want to look on the other sheet. Is there a way to conditionally format the inputs page with the formate on the unique inputs page based on what is entered into a cell?

I know I can do this with Conditional Formatting, but I don't want to create 30 rules. I want to create one rule that checks for the value in the list and if found, applies the format found in that cell. Is that possible without VBA? If so, great. If not, could you help with code that changes based on the cell value?

 

[poleary2000]

Good afternoon,

I have two sheets. One with many inputs, and one with a listing of unique inputs. The unique inputs, I have formatted the way I want to look on the other sheet. Is there a way to conditionally format the inputs page with the formate on the unique inputs page based on what is entered into a cell?

I know I can do this with Conditional Formatting, but I don't want to create 30 rules. I want to create one rule that checks for the value in the list and if found, applies the format found in that cell. Is that possible without VBA? If so, great. If not, could you help with code that changes based on the cell value?

I ended up doing this...

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range


    ' The variable KeyCells contains the cells that will
    ' cause an alert when they are changed.
    Set KeyCells = Range("C5:XFD17")
    
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
           
           FindCell = Target.Value
           
           With Sheets("Inputs").Range("A:A")
              
                    'If you want to find a part of the rng.value then use xlPart
                    'if you use LookIn:=xlValues it will also work with a
                    'formula cell that evaluates to MySearch(I)
                    Set Rng = .Find(What:=FindCell, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByColumns, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
        
                    If Not Rng Is Nothing Then
                        FirstAddress = Rng.Address
                        Do
                            Target.Interior.ColorIndex = Rng.Interior.ColorIndex
                            Target.Font.ColorIndex = Rng.Font.ColorIndex
                            


                        Loop While Not Rng Is Nothing And Rng.Address <> FirstAddress
                    End If


            End With
       
    End If
End Sub