View Single Post
 
Old 04-05-2017, 06:33 AM
NoSparks NoSparks is offline Windows 7 64bit Office 2010 64bit
Excel Hobbyist
 
Join Date: Nov 2013
Location: British Columbia, Canada
Posts: 842
NoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of light
Default

I realize this is not posted under Excel Programming and this will require the file to be a macro enabled .xlsm, but I would remove the conditional formatting and use the Worksheet_Change event as it triggers when a selection is made in a validation drop down.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Or Target.Column <> 2 Then Exit Sub
If Not Intersect(Target, Me.Range("B12:B146")) Is Nothing Then
    If Target.Value = "" Then
        Target.Interior.ColorIndex = 1
    Else
        Target.Interior.ColorIndex = 0
    End If
End If

End Sub
Attached Files
File Type: xlsm Example_suggestion.xlsm (27.0 KB, 10 views)
Reply With Quote