jimmycooker
02-18-2016, 12:11 AM
Hi,
I have working code to change 'CustShp1' formating based on cell 'D2'.
Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveSheet.Shapes("CustShp1")
If Range("d2").Value = "Unchecked" Then
.Fill.ForeColor.SchemeColor = 13
ElseIf Range("d2").Value = "Verified" Then
.Fill.ForeColor.SchemeColor = 11
ElseIf Range("d2").Value = "Recheck" Then
.Fill.ForeColor.SchemeColor = 12
Else
.Fill.ForeColor.SchemeColor = 34
End If
End With
End Sub
I need code that will change CustShp2, 3, 4, 5 etc. based on D3, 4, 5, 6 and so on.
I also need code for a permanent person (logged on in cell B2) date & time when someone 'verifies' something.
Thanks in advance,
James.
I have working code to change 'CustShp1' formating based on cell 'D2'.
Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveSheet.Shapes("CustShp1")
If Range("d2").Value = "Unchecked" Then
.Fill.ForeColor.SchemeColor = 13
ElseIf Range("d2").Value = "Verified" Then
.Fill.ForeColor.SchemeColor = 11
ElseIf Range("d2").Value = "Recheck" Then
.Fill.ForeColor.SchemeColor = 12
Else
.Fill.ForeColor.SchemeColor = 34
End If
End With
End Sub
I need code that will change CustShp2, 3, 4, 5 etc. based on D3, 4, 5, 6 and so on.
I also need code for a permanent person (logged on in cell B2) date & time when someone 'verifies' something.
Thanks in advance,
James.