keyboard press indication

[thread]

Hi,

i need the macro to distinguish between a user press and a macro input
is it posible to have a function that indicate a keyboard press?

 

[Rick Rothstein]

I don't think you can check on individual keystrokes, but below is a method
I posted in the past that will allow you to decide if the input came from
the user or a macro.

Create a Public Boolean variable in a Module, set it to True at the start of
**all** your macros, check the variable in the Change event and, at the end
of the change event, set the variable back to False. Here is a very simple
example...

In a Module
===========================
Public InModule As Boolean

In a Macro
===========================
Sub MyMacro()
InModule = True
Range("A1").Value = "Where did I come from?"
'
' Actual code goes here
'
End Sub

In Worksheet Change event
===========================
Private Sub Worksheet_Change(ByVal Target As Range)
If Not InModule Then
MsgBox "Cell was **NOT** changed by a macro"
'
' Actual code goes here
'
Else
MsgBox "Cell changed by a macro"
'
' Actual code goes here
'
End If
InModule = False
End Sub

Try typing an entry into a cell and then run the MyMacro macro.