Cell value used to input a LETTER in another cell.

[JDSOuth49]

I am having issues completing this formula:

=IF(S15<=7,E15=N, IF(S15>=8,E15=Y,0)

Purpose:

• When cell (S15) is less than or equal to 7, I want an “N” to be placed in Cell (E15).
• When cell (S15) is greater than or equal to 8, I want an “Y” to be placed in Cell (E15).

 

[Cubist]

Is that a yes or no on the VBA?

 

[JDSOuth49]

Is that a yes or no on the VBA?

My apologies. Yes, I would like to use VBA.

 

[Cubist]

Right-click on your sheet name -> View Code -> Paste this into the editor.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Dim rng As Range
    Dim cell As Range
    Set KeyCells = Me.Range("S15:S" & Me.Rows.Count)
    If Not Application.Intersect(KeyCells, Target) Is Nothing Then
        Application.EnableEvents = False
        For Each cell In Target
            If cell.Value < 8 Then
                Me.Cells(cell.Row, "E").Value = "N"
            Else
                Me.Cells(cell.Row, "E").Value = "Y"
            End If
        Next cell
        Application.EnableEvents = True
    End If
End Sub