VBA for Pop Up Message with Condition

[rhmkrmi]

Hi There!

I need a macro to generate a pop-up message when a condition is met.

Thanks!

 

[rhmkrmi]

Thank you.
This one work fine.
How can I have more ta one value for "LAB" and also make it not case-sensitive?

Thanks again!

 

[My Aswer Is This]

Not sure what script your saying works fine. There were several posted here.

Do not understand:

How can I have more ta one value for "LAB" and also make it not case-sensitive?​

What is ta??

Do you mean more then one?

Do you mean look for LAB or lab or cat or dog or frog and on and on?

 

[rhmkrmi]

Yes, sorry, typo!!

I need to use more than one value, "LAB" "LAB ORD" "OT LAB" and also they will be in upper and lower cases.

 

[My Aswer Is This]

Yes, sorry, typo!!

I need to use more than one value, "LAB" "LAB ORD" "OT LAB" and also they will be in upper and lower cases.

I asked this question which you did not answer:

Not sure what script your saying works fine. There were several posted here.​

 

[footoo]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, cel As Range
Set rng = Intersect(Intersect(Target, [H:H,M:M]), Me.UsedRange)
If Not rng Is Nothing Then
    For Each cel In rng
        If InStr(UCase(cel), "LAB") Then
            MsgBox "Enter Rate"
            Exit For
        End If
Next
End If
End Sub

 

[My Aswer Is This]

Try this:

Assuming your named Range is "Cake"

It's always easier when you provide specific details like name of Named Range but then you should be able to modify script.

Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  1/17/2019  12:40:25 AM  EST
If Not Intersect(Target, Range("Cake")) Is Nothing Then
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub
If InStr(Target.Value, "LAB") Then MsgBox "Enter Rate"
End If
End Sub

 

[rhmkrmi]

This is the script that worked fine and I need it to be modified to wok for more than one value, e.g. "LAB", "LAB ORD", "OT LAB".


Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, cel As Range
Set rng = Intersect(Target,[H:H,M:M])
If Not rng Is Nothing Then
For Each cel Inrng
If InStr(cel,"LAB") Then
MsgBox"Enter Rate"
Exit For
End If
Next
End If
End Sub

 

[My Aswer Is This]

Well someone else provided that script so I will just let them help you.

You said you had a named range but I see no named range in this script.
Not sure why my script did not work for you.

Take care.

 

[rhmkrmi]

Your script worked too but only when I enter LAB in single cells.
It does not work when I paste LAB in a range in the column.
Also, how can I add more values than just LAB to your script please?

Thank you for your help.

 

[footoo]

rhmkrmi - look at post # 15