Worksheet change not firing

[RockEd]

I'm building up some code on the back of a worksheet change event. But I cannot see where I am going wrong:

If any of the cell values C4 through to C27 are changed to "Done" then I would like to apply a value to the respective row in column J:

e.g.

cell C4 = Done
Change J4 to Now()

I'm a little unsure how to do that second part?

However I can't even do a basic change event in the first place!! Can anyone help with both problems (firing the event change code, and then putting a basic value in another cell)?

Thank you in advance.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C4:C27")) Is Nothing Then

    If Target.Value = "Done" Then Debug.Print "Hello"
    
        End If
End Sub

 

[rlv01]

The first thing to do is to make sure events have not been disabled.

Sub CheckEvents()
    If Application.EnableEvents Then
        MsgBox "Events are enabled"
    Else
        Select Case MsgBox("Events are disabled. " & vbCr & vbCr & "Re-enable?", vbYesNo Or vbQuestion, Application.Name)
        Case vbYes
            Application.EnableEvents = True
        End Select
    End If
End Sub

 

[RockEd]

Thanks ...events are enabled though and still nothing.

The first thing to do is to make sure events have not been disabled.

Sub CheckEvents()
    If Application.EnableEvents Then
        MsgBox "Events are enabled"
    Else
        Select Case MsgBox("Events are disabled. " & vbCr & vbCr & "Re-enable?", vbYesNo Or vbQuestion, Application.Name)
        Case vbYes
            Application.EnableEvents = True
        End Select
    End If
End Sub

 

[Fluff]

How are the values in C4:C27 being changed?

 

[RockEd]

How are the values in C4:C27 being changed?

Manually by myself

 

[RockEd]

Perhaps there is something wrong with my Excel; even basic change events code like this is doing nothing:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" Then

     MsgBox "This Code Runs When Cell A1 Changes!"

End If

End Sub

 

[Fluff]

Manually by myself

That's fine, where is the code located? is it in a sheet module?

 

[RockEd]

That's fine, where is the code located? is it in a sheet module?

Ah that's the issue!! No, it's in a (standard?) module.

Okay so firing fixed...! Thank you!

 

[RockEd]

Okay so I came up with this in the end...

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C4:C27")) Is Nothing Then

    If Target.Value = "Done" Then

With Target
    .Offset(0, 7).Value = Now()
    
End With
    
    End If
End If
    
End Sub

 

[Fluff]

Glad you sorted it & thanks for the feedback.