VBA Worksheet Change If Cell In Range Populates Then Fire Code

[Lewzerrrr]

Hi,

I need to fire a code when a cell in a range of J3:J1000 <> "" then fire code.

What I've tried to do is this bit of code however msgbox never shows even when I populate a cell in J.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("J3:J1000")) Is Nothing Then Exit Sub


If Range(Target.Address).Value <> "" Then MsgBox "Correct"


End Sub

 

[Fluff]

Sound like events might have been disabled. Try running this

Sub Eve()
Application.EnableEvents = True
End Sub

& then see if your event works.
Also you could write this line

If Range(Target.Address).Value <> "" Then MsgBox "Correct"

Like

If Target.Value <> "" Then MsgBox "Correct"

 

[Lewzerrrr]

Sound like events might have been disabled. Try running this

Sub Eve()
Application.EnableEvents = True
End Sub

& then see if your event works.
Also you could write this line

If Range(Target.Address).Value <> "" Then MsgBox "Correct"

Like

If Target.Value <> "" Then MsgBox "Correct"

Thanks, very bizarre not working. I have this code also in this sheet which works fine. Maybe it's conflicting? Maybe I can add onto this instead?

This code just pops in a tick on double click in that I3:L500 region. If possible to then if cell in J column has a tick then run a seperate code?

What I'm trying to achieve overall is for my users to double click the cells in that range but if they pop a tick in J3:J1000 then send an email. So I assume I need a worksheet change targeting just J?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)    If Not Intersect(Target, Range("I3:L500")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub

 

[Fluff]

If I understand you correctly, maybe something like this

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("I3:L500")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        If Target.Column = 10 And Target.Value = ChrW(&H2713) Then
            Call SomeMacro(Target)
        End If

        Cancel = True
    End If
    Application.EnableEvents = True
End Sub
' In a normal module
Sub SomeMacro(Rng As Range)
MsgBox Rng.Address
End Sub

Where SomeMacro goes in a standard module