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


Joined
Dec 13, 2017
Messages
45
Reaction score
11
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
 
Ad

Advertisements

Joined
Feb 21, 2018
Messages
160
Reaction score
62
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
 
Joined
Dec 13, 2017
Messages
45
Reaction score
11
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
Thank you. I knew it was something very simple, that I was forgetting.
 
Joined
Dec 13, 2017
Messages
45
Reaction score
11
Thank you. I knew it was something very simple, that I was forgetting.
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
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?
 
Ad

Advertisements

Joined
Feb 21, 2018
Messages
160
Reaction score
62
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?
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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top