وايلي حبيب قام بنشر سبتمبر 25, 2022 مشاركة قام بنشر سبتمبر 25, 2022 السلام عليكم ورحمة الله وبركاته-الاخوة المحترمين ..الملف شغال معاي مية الميه لكن فية مشكلة تواجهني ..اذا كانت خانة البحث فيها رقم يطابق بيانات خلية البحث يتم تنفيذ الامر المطلوب بنجاح لكن اذا كانت فاضية واختار استعلام او حذف و تعديل تظهر لي هذة الرسالة نموذج ادخال بيانات.xlsm رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر سبتمبر 25, 2022 مشاركة قام بنشر سبتمبر 25, 2022 اخي الكريم نبهنا مرارا وتكرارا لا تستخدم خلايا مدمجة ثم كيف تستعلم او تحدف على شيء غير موجود في الاساس ثم ماذا تفعل بالصيغة بالخليةP2 في الورقة2 لان المشكلة منها ، هل هي ضرورية ؟ وهل اذا كان رقم الهوية يحتوي على فراغ يعني الكود لايقوم بشيء؟ عليك بنشر تفاصيل كاملة بدلا من طرح سؤال عشوائي !!! 2 رابط هذا التعليق شارك More sharing options...
وايلي حبيب قام بنشر سبتمبر 25, 2022 الكاتب مشاركة قام بنشر سبتمبر 25, 2022 اشكرك على تفاعلك..الهدف انه اذا مثلا ضغطت بالخطاء على زر استعلام مثلا تتفاجاء بالرساله الخطاء هذي اتوقع هي مشكلة وليست رسالة صحيح ؟ المطلوب :ابغاه يعطيني رسالة عذرا لا يوجد بيانات للبحث عنها يكون افضل اذا الخلية فارغة واذا تم البحث ببيانات غير موجوده يعطيني رسالة البيانات غير مطابقة في البحث الصيغة بالخلية P2 معيار البحث انا طبقت العمل هذا من درس في اليوتيوب ماني محترف والله رابط هذا التعليق شارك More sharing options...
أفضل إجابة عبدالفتاح في بي اكسيل قام بنشر سبتمبر 25, 2022 أفضل إجابة مشاركة قام بنشر سبتمبر 25, 2022 اذا كنت تريد المساعدة في المرة القادمة يرجى الاجابة عن الاستفسارات واخذ ملاحظاتي بعين الاعتبار . غير هذا الكود بالكامل وسيختفي الخطا انشاء الله . تم اضافة هذا الجزء بعد اعلان المتغير (المشكلة في الخطا في الخلية التي سألتك عنها ) كما ستلاحظ اذا كانت هناك بيانات سابقة معبئة وكان رقم الهوية فارغ سوف يتم مسحها اذا كان لا يوجد رقم هوية ليس من المنطقي بقاؤها 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 2 رابط هذا التعليق شارك More sharing options...
وايلي حبيب قام بنشر سبتمبر 26, 2022 الكاتب مشاركة قام بنشر سبتمبر 26, 2022 يعطيك الف عافية ماقصرت فية امكانية اضافة رسالة عدم وجود رقم الهوية المدخل اذا تم البحث برقم هوية غير موجود في قاعدة البيانات رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر سبتمبر 26, 2022 مشاركة قام بنشر سبتمبر 26, 2022 اخي الكريم انا اجبتك على سؤالك ، هل بعد الاجابة تطلب مني طلب اخر لا علاقة له بمشكلتك الم تقرا التوقيع في الاسفل ؟؟؟ معظم الاعضاء الذين يطلبون التعديل اتجاهل طلبهم ولا ادخل في مواضيعهم لكثرة التعديلات واهدار الوقت . هذه المرة ساتجاوز ذلك .ضع هذا في حدث الورقة التي يتم البحث منها . 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 2 رابط هذا التعليق شارك More sharing options...
وايلي حبيب قام بنشر سبتمبر 26, 2022 الكاتب مشاركة قام بنشر سبتمبر 26, 2022 اعتذر على ازعاجك..واشكرك لكرم جودك..متمنيا لك دوام الصحة والعافية ..وجميع الاخوة الاعضاء رابط هذا التعليق شارك More sharing options...
الردود الموصى بها