D
Darius
Don't worry, we are here to help on whatever we can
The code must be on the sheets code, not in a module, because in the sheets code extend the internal methods that are triggered on every sheet whenever an event happen. This topic is fascinating but little is explained on the books. It reminds me the polymorphism in object programing.
I will try to get more frequently.
The code must be on the sheets code, not in a module, because in the sheets code extend the internal methods that are triggered on every sheet whenever an event happen. This topic is fascinating but little is explained on the books. It reminds me the polymorphism in object programing.
Code:
Dim OLD_SELECTION As Range
Const GREEN = 5287936
Const RED = 255
Const YELLOW = 65535
Private Sub Worksheet_Change(ByVal Target As Range)
Dim CL As Range, RW As Integer, RWS As Integer
RWS = Application.WorksheetFunction.CountA(Range("A:A"))
For RW = 2 To RWS
Set CL = Cells(RW, 12)
Select Case (Cells(RW, 11).Interior.Color)
Case (RED): If CL.Value <> 2 Then CL.Value = 2
Case (YELLOW): If CL.Value <> 1 Then CL.Value = 1
Case (GREEN): If (CL.Value <> 0) Or (CL.Value = "") Then CL.Value = 0
End Select
Next RW
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim CL As Range
If OLD_SELECTION Is Nothing Then Set OLD_SELECTION = Target
If Range(OLD_SELECTION.Address).Column = 11 Then
Set CL = Cells(OLD_SELECTION.Row, Range(OLD_SELECTION.Address).Column + 1)
Select Case (OLD_SELECTION.Interior.Color)
Case (RED): If CL.Value <> 2 Then CL.Value = 2
Case (YELLOW): If CL.Value <> 1 Then CL.Value = 1
Case (GREEN): If (CL.Value <> 0) Or (CL.Value = "") Then CL.Value = 0
End Select
End If
Set OLD_SELECTION = Target
End SubI will try to get more frequently.
