Trevor3007
Well-known Member
- Joined
- Jan 26, 2017
- Messages
- 675
- Office Version
- 365
- Platform
- Windows
hi,
I use the following code
It works fine, but is it vaible for 'Case "n / a"' to pick up a cell ref ( IE sheetname VB , cell ref a2 'Test' )
Hoping this makes sense & thank you for your help.
KR
Trevor3007
I use the following code
Code:
Dim Changed As Range, Cell As Range
Dim Clr As Long
Set Changed = Intersect(Target, Range("m2:k300"))
If Not Changed Is Nothing Then
For Each Cell In Changed
Select Case LCase(Cell.Value)
Case "win10": Clr = 35
Case "no": Clr = 55
Case "issue": Clr = 39
Case "b i p": Clr = 28
Case "emailed": Clr = 27
Case "built": Clr = 7
Case "t b a": Clr = 46
Case "n / a": Clr = 45
Case "e u": Clr = 22
Case Else: Clr = xlNone
End Select
Rows(Cell.Row).Resize(, Cell.Column).Interior.ColorIndex = Clr
Next Cell
End If
It works fine, but is it vaible for 'Case "n / a"' to pick up a cell ref ( IE sheetname VB , cell ref a2 'Test' )
Hoping this makes sense & thank you for your help.
KR
Trevor3007