Pop up box depending on criteria entered across multiple columns

[VBremner]

Good morning,

I have a spreadsheet where I need a pop-up box to appear if the value 'x' is entered. However, I did a different pop-up box for each column.


I can get a pop up to appear in one one area, but I don't know how to duplicate for the others (do I copy & past the same code in full, or just bits?). Apologies but this is my first time using VBA so all a bit confusing.

Example below:

If 'x' is entered in Columns A1:B35, text box says '"column one information"
If 'x' is entered in Column C1:D35, text box says "column two information" etc etc etc

Spreadsheet VBA.JPG

This is the code I am currently using

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
On Error Resume Next
Set Rg = Application.Intersect(Target, Range("A1:B35"))
If Not Rg Is Nothing Then
If Target.Value = "x" Then
MsgBox "text to show in message box"
Exit Sub
End If
End If
End Sub
Private Sub Worksheet_selectionChange(ByVal Target As Range)
Dim xCell As Range, Rg As Range
On Error Resume Next
Set Rg = Application.Intersect(Target, Range("A1:B35"))
If Not Rg Is Nothing Then
For Each xCell In Rg
If xCell.Value = "x" Then
MsgBox "text to show in message box”
Exit Sub
End If

[Sc0tt1e]

Does it need to be VBA?

A formula above/below each column will let you know if this value is present within the range?

=Countif(A1:B35,x)

This would be an easy substitute

[Kamboj]

you can use:-

Please Login or Register  to view this content.

[VBremner]

Thank you,

To clarify,

Id on't need to know if the value is present, but if it is I need a pop to provide some additional information.
I can get the code about to cover all the columns with one set pop up box, but what I need is a pop with different text in on each

e.g. if 'x' is is column A1:B25 the pop gives one set of information (pop up 1)
if 'x' is in column C1:D35 the pop up says different information (pop up 2)

I can set the different text to work on any individual column, but I can't get them to work all together

[JOHN H. DAVIS]

See if this can be useful for your purpose. Refer to Tab "Test".

[VBremner]

Perfect, just what I needed.

Thank you so much for your help

[JOHN H. DAVIS]

You're welcome. Glad to help out and thanks for the feedback. If the issue is resolved, please mark this thread as SOLVED. Click Thread Tools above your first post, select "Mark your thread as Solved". Or click the Edit button on your first post in the thread, Click Go Advanced, select [SOLVED] from the Prefix dropdown, then click Save Changes.