Search for multiple values in a column and show an alert message

[sofas]

مرحبًا، أود الحصول على كود يبحث عن عدة قيم في عمود، فليكن b، بدءًا من الصف 5. يمكن أن تكون القيم نصية أو رقمية، على سبيل المثال.
s= صفيف ("test55"، "r699"، "rtmy"، "Comx"، "62")
المطلوب هو إظهار رسالة تنبيهية عند التأكد من عدم وجود قيمة. ومع ذلك، إذا تم العثور على واحد فقط أو أكثر، فلن يتم فعل أي شيء

 

[sofas]

Hi, I would like a code that searches for multiple values in a column, let it be b, starting from row 5. The values can be text or numeric, for example.
s= array("test55", "r699", "rtmy", "Comx", "62")
What is required is to show a warning message when it is confirmed that there is no value. However, if only one or more are found, nothing will be done

Moderators, please delete post No. 1. Translation error

 

[Rhodie72]

Please post you code so we can better understand what you've done so far.
use

your code here

 

[sofas]

Please post you code so we can better understand what you've done so far.
use

Hello... I don't have any code yet. What I'm trying to do is search for multiple values in column B that are already mentioned in the code.And show msgbox if nothing found. It is not shown when checking that at least one value exists

 

[Fuji]

Something like this.

Sub test()
    Dim s, x&
    s = Array("test55", "r699", "rtmy", "Comx", "62", 62)
    x = Application.Sum(Application.IfError(Application.Match(s, _
        Range("b5", Range("b" & Rows.Count).End(xlUp)), 0), 0))
    If x = 0 Then MsgBox "Worning", vbCritical
End Sub

 

[sofas]

Something like this.

Sub test()
    Dim s, x&
    s = Array("test55", "r699", "rtmy", "Comx", "62", 62)
    x = Application.Sum(Application.IfError(Application.Match(s, _
        Range("b5", Range("b" & Rows.Count).End(xlUp)), 0), 0))
    If x = 0 Then MsgBox "Worning", vbCritical
End Sub

Thank you. That's what I'm looking for