Hi,
I currently use the blow code to copy the colour of a cell depending on its contents. But what im trying to do is also copy the 'fill effects' of the cell or the gradient of the colour(s).
Can anyone point me in the right direction?
Thanks in advance
I have posted this as Excelforum as well. http://www.excelforum.com/excel-programm…tml#post4318133
Code
Private Sub Worksheet_change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("I118:L277")) Is Nothing Then Exit Sub
If Target.Value = "" Then Target.Interior.Color = xlNone
If Target.Value = "" Then Target.Font.Color = 1
Dim res As Variant
res = Application.Match(Target.Value, Range("B118:B277"), 0)
If IsError(res) Then
'No match found
Exit Sub
Else
'Match found
Target.Interior.Color = Cells(res + 117, 2).Interior.Color
Target.Font.Color = Cells(res + 117, 2).Font.Color
End If
End Sub
Display More