PDA

View Full Version : Shape Conditional Formatting & Permanent Logged In User, Date & Time Stamp



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.

jimmycooker
02-18-2016, 12:16 AM
Also, if someone can tell me how to update the code for shape groups that would be great. Thanks.

shailendranr
02-22-2016, 05:52 AM
Use this

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target = Sheet1.Range("d2:d11")
End Sub