ipbr21054
Well-known Member
- Joined
- Nov 16, 2010
- Messages
- 5,226
- Office Version
- 2007
- Platform
- Windows
Hi,
As per title.
Thanks
As per title.
Thanks
VBA Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
Dim cel As Range
Dim ns As Variant
Set ws = Sheets("MC LIST")
For Each cel In ws.Range("B8", ws.Range("B" & ws.Rows.Count).End(xlUp))
If Len(cel) > 9 Then cel.Characters(Start:=10, Length:=1).Font.ColorIndex = 3
Next cel
If Target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False
Select Case Mid(Range("B8").Value, 10, 1)
Case Is = "X"
Range("I8").Value = "1999"
Case Is = "Y"
Range("I8").Value = "2000"
Case Is = "1"
Range("I8").Value = "2001"
Case Is = "2"
Range("I8").Value = "2002"
Case Is = "3"
Range("I8").Value = "2003"
Case Is = "4"
Range("I8").Value = "2004"
Case Is = "5"
Range("I8").Value = "2005"
Case Is = "6"
Range("I8").Value = "2006"
Case Is = "7"
Range("I8").Value = "2007"
Case Is = "8"
Range("I8").Value = "2008"
Case Is = "9"
Range("I8").Value = "2009"
Case Is = "A"
Range("I8").Value = "2010"
Case Is = "B"
Range("I8").Value = "2011"
Case Is = "C"
Range("I8").Value = "2012"
Case Is = "D"
Range("I8").Value = "2013"
Case Is = "E"
Range("I8").Value = "2014"
Case Is = "F"
Range("I8").Value = "2015"
Case Is = "G"
Range("I8").Value = "2016"
Case Is = "H"
Range("I8").Value = "2017"
Case Is = "J"
Range("I8").Value = "2018"
Case Is = "K"
Range("I8").Value = "2019"
End Select
Application.EnableEvents = True
End Sub