Snasui Excel Forum

Code: Select all

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("h:h")) Is Nothing Then Exit Sub
    If Target.Value = "" Then
        Exit Sub
    Else
         Target.Offset(0, -7).Resize(1, 14).Interior.ThemeColor = xlThemeColorAccent1
     
    End If
End Sub

Code: Select all

Private Sub Workbook_Open(ByVal Target As Range)
If Intersect(Target, Range("h:h")) Is Nothing Then Exit Sub
    If Target.Value = "" Then
        Exit Sub
    Else
         Target.Offset(0, -7).Resize(1, 14).Interior.ThemeColor = xlThemeColorAccent1
     
    End If
End Sub

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("b:b")) Is Nothing Then Exit Sub
    If Target.Value = "" Then
        Exit Sub
    Else
        Target.Offset(0, -1).Resize(1, 3).Font.Color = vbRed
    End If
End Sub

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer

For i = 2 To 10
If Cells(i, "B").Value = "" Then
Range(Cells(i, "A"), Cells(i, "C")).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.499984740745262
        .PatternTintAndShade = 0
    End With

End If
Next

End Sub