مطلوب/ كود يظهر رسالة بعدم وجود اسم او رقم

[صياد الجراح]

بسم الله الرحمن الرحيم

اخوانى تحية من القلب  للقلب

لو سمحتوه كنت محتاج كود يكتب لى رسالة عندما لايكون الرقم او الاسم المكتوب فى تكست بوكس غير موجود فى عمود البحث يظهر رسالة انه مش موجود

مثال

مثال لو عندى عمود مكتوب فيه اكواد

وجيت اعمل بحث من اليوزرفورم عن كود  غير موجود فى العمود ده

يظهر لى رسالة ان الكود غير موجود

 

لكم جزيل الشكر 11.xlsm11.xlsm

تم تعديل أغسطس 17, 2023 بواسطه صياد الجراح

[حسونة حسين]

السلام عليكم ورحمه الله وبركاته

تفضل اخى

Private Sub CommandButton1_Click()
    Dim X
    X = Application.Match(TextBox1, Sheet1.Columns(3), 0)
    If IsError(X) Then
        MsgBox "الكود غير موجود"
    End If
End Sub

 

[صياد الجراح]

بارك الله اخى حسونة

   الكود شغال زى الفل 

لك ودى وتقديرى لشخصك الكريم

تم تعديل أغسطس 17, 2023 بواسطه صياد الجراح