VBA - on Enter run macro?

[EssKayKay]

I’m back,

I’m not sure this is exactly what I want but I’d like to start here. What I want is a VBA routine to run a macro when an entry (or more particularly and edit) is made to a cell in range M33:M400 where an entry has already been made. That is, something like if the existing cell is >0 then OnEnter do this.

Like I said, I’m not positive this will do what I want but I’d like try this.

Thanks,
Steve K.

 

[kevin9999]

See if this gives you what you want (worksheet change event to be put in the sheet module of the sheet in question)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge = 1 And Not Intersect(Range("M33:M400"), Target) Is Nothing Then
        Application.EnableEvents = False
        Dim NewVal As String, OldVal As String
        NewVal = Target.Value
        Application.Undo
        OldVal = Target.Value
        
            If Len(OldVal) > 0 And OldVal <> NewVal Then
                Target = NewVal
                Target.Offset(1).Select
                
                'Call Your Macro Here '<-- *** NOTE ***
                MsgBox "This is a demo" '<-- *** Delete after demo ***
            Else
                Target = NewVal
                Target.Offset(1).Select
            End If
            
        Application.EnableEvents = True
    End If
End Sub

 

[EssKayKay]

Thank you very much Kevin. This is doing what I wanted. However, as expected, I ran into some other issues. I really don’t want to say this but I think I’m going to go back to the drawing board on this project – just too many little annoyances if not actual problems. I will use your code in the redesign. I’ve been working on this project for many months. Oh well. . .

Again, much appreciated,
Steve

 

[kevin9999]

Thanks for the feedback Steve, and if you wanted to share the other issues you've encountered, I'm sure you'll find help here,

 

[EssKayKay]

Thanks for the feedback Steve, and if you wanted to share the other issues you've encountered, I'm sure you'll find help here,

That's good to hear. I'm sure I'll be back.
Take care. . . .