Prompting users with a message box on certain cells

[tommy]

I am looking for a macro to do the following:

As soon as a User clicks on cells B18 or B24 or B37

a message box should pop up with my message (I already have the message code)

I just need the code to tell it when a user selects one of the above
mentioned cells

 

[Max]

One easy alternative for the desired functionality is via:
Data > Validation > Input message tab
The message will display when the cell is selected
--
Max
Singapore
http://savefile.com/projects/236895
Downloads:22,500 Files:370 Subscribers:66
xdemechanik

 

[John]

Hi Tommy
Did you know you can get the same result with >Data>Validation>
goto Input message and type your message. Also you got >Insert>Comment.
Without a Macro
HTH
John

 

[tommy]

To All,
I'm sorry
I forgot to mention that Data Validation is not an option since I am already
using it as a drop down list on the mentioned cells

 

[tommy]

Sorry,
but I dont want to use Insert Comment or Data Validation

I want the message box to pop up since it forces the user to read and click OK

 

[Gord Dibben]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const sINPUTS As String = "B18,B24,B37"
If Not Intersect(Target, Me.Range(sINPUTS)) Is Nothing Then
MsgBox "your message"
End If
End Sub

Right-click on the sheet tab and "View Code". Copy/paste into that module.

Alt + q to return to the Excel window.


Gord Dibben MS Excel MVP

 

[tommy]

thanx, this worked

BUT, I need a total of 31 lines/sentences to complete my message

the last 7 lines are on the same line as the 7 previous lines

how do I extend the message box

 

[Gord Dibben]

What happened to....................?

" (I already have the message code) "

I suppose you could add a bunch of linefeeds like

MsgBox "this is the first line of the message" & vbCrLf _
& "this is the second line of the message" & vbCrLf _
& "this is the third line" etc.

Would be far easier to place the message in a textbox on a UserForm which
loads when the correct cell(s) are selected.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const sINPUTS As String = "B18,B24,B37"
If Not Intersect(Target, Me.Range(sINPUTS)) Is Nothing Then
UserForm1.Show
End If
End Sub

Users read the message then hit the close "x" on the UserForm


Gord