Right click the tab for your DataInput sheet and select "View Code" from the popup menu that appears, then copy/paste the following code into the code window that opens up...I require in Column R & S only in “DataInput” sheet, when I wrote in cell.
w then automatic comes Winner & l for Looser.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And (Target.Column = 18 Or Target.Column = 19) Then
Application.EnableEvents = False
Select Case Target.Value
Case "L", "l": Target.Value = "Loser"
Case "W", "w": Target.Value = "Winner"
End Select
Application.EnableEvents = True
End If
End Sub
Right click the tab for your DataInput sheet and select "View Code" from the popup menu that appears, then copy/paste the following code into the code window that opens up...
The above event code should now work the way you want.Code:Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 And (Target.Column = 18 Or Target.Column = 19) Then Application.EnableEvents = False Select Case Target.Value Case "L", "l": Target.Value = "Loser" Case "W", "w": Target.Value = "Winner" End Select Application.EnableEvents = True End If End Sub