Is it possible have a message ( visual or Audio ) when the Curser is place in a cell?

FrancisM

FrancisM

Joined
Dec 13, 2017
Messages
71
Reaction score
19
Here is the code I currently have, but nothing happens.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Range("G19"), Target) Is Nothing Then Exit Sub
          Application.Speech.Speak "Please use  MM/DD  when entering data, the system changes the year. Text & Deletions are not approved entries.", SpeakAsync:=True
End sub
 
Please try this
:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$G$19" Then Exit Sub
MsgBox "Please make sure your speaker is not in mute mode"
Application.Speech.Speak "Please use MM/DD when entering data, the system changes the year. Text & Deletions are not approved entries.", SpeakAsync:=True
End Sub
 
AmjiBhai said:
Please try this
:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$G$19" Then Exit Sub
MsgBox "Please make sure your speaker is not in mute mode"
Application.Speech.Speak "Please use MM/DD when entering data, the system changes the year. Text & Deletions are not approved entries.", SpeakAsync:=True
End Sub
Click to expand...
Thank you. I knew it was something very simple, that I was forgetting.
 
FrancisM said:
Thank you. I knew it was something very simple, that I was forgetting.
Click to expand...
AmjiBhai said:
Please try this
:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$G$19" Then Exit Sub
MsgBox "Please make sure your speaker is not in mute mode"
Application.Speech.Speak "Please use MM/DD when entering data, the system changes the year. Text & Deletions are not approved entries.", SpeakAsync:=True
End Sub
Click to expand...
I noticed one thing. When I tested the code it ran. When I tried to use it on another sheet it did not run. Any Ideas?
 
FrancisM said:
I noticed one thing. When I tested the code it ran. When I tried to use it on another sheet it did not run. Any Ideas?
Click to expand...
Could be couple of things.... Foremost is... Let's replace the following line with the two given below...
IF Target.Address <> "$G$19" Then Exit Sub

Mytarget="$g$19"
If Target.Address <> ucase(Mytarget) Then Exit Sub
 
Back
Top