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

[وايلي حبيب]

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

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

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

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

 

 

[عبدالفتاح في بي اكسيل]

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

ثم  كيف  تستعلم  او تحدف  على  شيء  غير  موجود  في  الاساس  ثم   ماذا  تفعل بالصيغة  بالخليةP2       في  الورقة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

 

[وايلي حبيب]

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

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

[عبدالفتاح في بي اكسيل]

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

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

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

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

 

[وايلي حبيب]

اعتذر على ازعاجك..واشكرك لكرم جودك..متمنيا لك دوام الصحة والعافية ..وجميع الاخوة الاعضاء