Appendix Thread. ( Codes for other Threads, etc.) Event Coding Drpdown Data validation

[DocAElstein]

Solution for ( part A) ) of this Thread
https://excelfox.com/forum/showthrea...ll=1#post14870

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$J$19" Then
        If Target.Value = "" Then
         Let Application.EnableEvents = False
         Let Target.Value = "(Select)"
         Let Application.EnableEvents = True
            With Target.Font
            .Color = 10855845
            '.ColorIndex = 48
            End With
        ElseIf Target.Value = "Nuclear Family" Or Target.Value = "Joint Family" Then
         Let Application.EnableEvents = False
         Let Range("R19").Value = "(Remark if any)"
         Let Application.EnableEvents = True
            With Range("R19").Font
            .Color = 10855845
            '.ColorIndex = 48
            End With
        ElseIf Target.Value = "Single-Parent Family" Then
         Let Application.EnableEvents = False
         Let Range("R19").Value = "(Select Reason)"
         Let Application.EnableEvents = True
            With Range("R19").Font
            .Color = 10855845
            '.ColorIndex = 48
            End With
        ElseIf Target.Value = "Uncategorised" Then
         Let Application.EnableEvents = False
         Let Range("R19").Value = "(Please Specify the Case)"
         Let Application.EnableEvents = True
            With Range("R19").Font
            .Color = 10855845
            '.ColorIndex = 48
            End With
        End If
    Else
    ' Target is Not a cell to be acted on
    End If
End Sub

'Row\Col     AM  AN  AO  AP  AQ  AR  AS  AT  AU  AV  AW  AX  AY  AZ  BA  BB
'16                                          (Select Here)
'16  Nuclear Family                          (Remark if any)
'17  Joint Family                            (Remark if any)
'18  Single-Parent Family                    (Select Reason)
'19                                      Expired
'20                                      Divorced
'21                                      Break -Up
'22                                      Abandonment
'23                              Enter Reason Manually
'24  Joint Family                            (Please Specify the Case)



'Print Range("AM15").Font.ThemeColor
'7
'Print Range("AM15").Font.TintAndShade
'0
'Print Range("AM15").Font.Color
'10855845
'Print Range("AM15").Font.ColorIndex
'48
'Print Range("AM16").Font.TintAndShade
'0
'Print Range("AM16").Font.Bold
'Falsch
'Print Range("AM16").Font.Color
'6751362
'Print Range("AM16").Font.ColorIndex
'13
'Print Range("AM16").Font.Bold
'Falsch
'Print Range("AT19").Font.TintAndShade
'0
'Print Range("AT19").Font.Color
'0
'Print Range("AT19").Font.ColorIndex
'-4105
'Print Range("AT19").Font.Bold
'Falsch