اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

مشكلة رسالة خطا تظهر لي


إذهب إلى أفضل إجابة Solved by عبدالفتاح في بي اكسيل,

الردود الموصى بها

السلام عليكم ورحمة الله وبركاته-الاخوة المحترمين ..الملف شغال معاي مية الميه

لكن فية مشكلة تواجهني ..اذا كانت خانة البحث فيها رقم يطابق بيانات خلية البحث يتم تنفيذ الامر المطلوب بنجاح

لكن اذا كانت فاضية واختار استعلام او حذف و تعديل تظهر لي هذة الرسالة 

نموذج ادخال بيانات.xlsm

image.png.0eb4e8a506484c5cc01f24623d8400c6.png

 

 

رابط هذا التعليق
شارك

اخي  الكريم  نبهنا  مرارا  وتكرارا  لا  تستخدم  خلايا  مدمجة 

ثم  كيف  تستعلم  او تحدف  على  شيء  غير  موجود  في  الاساس  ثم   ماذا  تفعل بالصيغة  بالخليةP2       في  الورقة2  لان المشكلة منها ، هل  هي  ضرورية ؟

 وهل  اذا كان رقم  الهوية   يحتوي على   فراغ  يعني  الكود   لايقوم بشيء؟ عليك  بنشر  تفاصيل  كاملة  بدلا  من طرح  سؤال  عشوائي  !!!

 

  • Like 2
رابط هذا التعليق
شارك

اشكرك على تفاعلك..الهدف انه اذا مثلا ضغطت بالخطاء على زر استعلام مثلا  تتفاجاء بالرساله الخطاء هذي اتوقع هي مشكلة وليست رسالة صحيح ؟

المطلوب :ابغاه يعطيني رسالة عذرا لا يوجد بيانات للبحث عنها يكون افضل اذا الخلية فارغة

واذا تم البحث ببيانات غير موجوده يعطيني رسالة البيانات غير مطابقة في البحث

الصيغة بالخلية P2 معيار البحث انا طبقت العمل هذا من درس في اليوتيوب ماني محترف والله

 

 

 

رابط هذا التعليق
شارك

  • أفضل إجابة

اذا  كنت  تريد  المساعدة  في  المرة  القادمة  يرجى  الاجابة  عن  الاستفسارات واخذ  ملاحظاتي  بعين  الاعتبار  .

  غير  هذا  الكود  بالكامل  وسيختفي  الخطا  انشاء  الله .

تم اضافة  هذا  الجزء  بعد  اعلان  المتغير (المشكلة  في  الخطا  في  الخلية  التي  سألتك  عنها  )

كما  ستلاحظ  اذا   كانت  هناك  بيانات  سابقة  معبئة  وكان رقم  الهوية  فارغ  سوف  يتم  مسحها  اذا كان  لا يوجد رقم  هوية ليس  من  المنطقي  بقاؤها 

If ورقة2.Cells(2, 16).Text = "#N/A" Then
MsgBox "الرجاء تعبئة رقم الهوية ", vbCritical
With ورقة1
 Range("d5:d13", "g5:g13").ClearContents
  End With
 ورقة1.Range("E3").Select
Else
Private Sub CommandButton2_Click()
ورقة2.Range("O2").Value = ورقة1.Range("E3").Value
Dim lsearch As Integer
If ورقة2.Cells(2, 16).Text = "#N/A" Then
MsgBox "الرجاء تعبئة رقم الهوية ", vbCritical
With ورقة1
 Range("d5:d13", "g5:g13").ClearContents
  End With
 ورقة1.Range("E3").Select
Else
lsearch = ورقة2.Range("P2").Value
ورقة1.Range("D5").Value = ورقة2.Cells(lsearch, "B").Value
ورقة1.Range("D7").Value = ورقة2.Cells(lsearch, "C").Value
ورقة1.Range("D9").Value = ورقة2.Cells(lsearch, "D").Value
ورقة1.Range("D11").Value = ورقة2.Cells(lsearch, "E").Value
ورقة1.Range("D13").Value = ورقة2.Cells(lsearch, "F").Value
ورقة1.Range("G5").Value = ورقة2.Cells(lsearch, "G").Value
ورقة1.Range("G7").Value = ورقة2.Cells(lsearch, "H").Value
ورقة1.Range("G9").Value = ورقة2.Cells(lsearch, "I").Value
ورقة1.Range("G11").Value = ورقة2.Cells(lsearch, "J").Value
ورقة1.Range("G13").Value = ورقة2.Cells(lsearch, "K").Value
MsgBox "تم استخراج البيانات بنجاح ", vbInformation, "رسالة تأكيد"
End If
End Sub

 

  • Like 2
رابط هذا التعليق
شارك

يعطيك الف عافية ماقصرت

فية امكانية اضافة رسالة عدم وجود رقم الهوية المدخل  اذا تم البحث برقم هوية غير موجود في قاعدة  البيانات

رابط هذا التعليق
شارك

   اخي  الكريم  انا  اجبتك  على  سؤالك ، هل  بعد  الاجابة  تطلب  مني  طلب  اخر  لا  علاقة  له  بمشكلتك  الم  تقرا  التوقيع  في  الاسفل ؟؟؟ 

معظم  الاعضاء  الذين  يطلبون  التعديل  اتجاهل  طلبهم  ولا ادخل  في  مواضيعهم  لكثرة التعديلات  واهدار  الوقت  . 

هذه  المرة  ساتجاوز  ذلك .ضع  هذا  في  حدث  الورقة التي  يتم  البحث  منها .

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim Fnd As Range
   If Target.Count > 1 Then Exit Sub
   If Target.Address(0, 0) = "E3" And Target.Value <> "" Then
      Set Fnd = ورقة2.Range("C:C").Find(Target.Value, , , xlWhole, , , False, , False)
      If Fnd Is Nothing Then
      Application.DisplayAlerts = False
          MsgBox "رقم الهوية" & " " & Target.Value & " " & "غير موجود ، الرجاء  المحاولة مرة اخرى", vbExclamation
      Application.DisplayAlerts = True
      Exit Sub
      End If
   End If
End Sub

 

  • Like 2
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information