abouelhassan

مشكور استاذى بارك الله فيك ربنا يحفظك يارب

تمام الله ينور على حضرتك ويبارك لك بس محتاج تظبيط بسيط الخلايا الفردية هى a2 .c2,f2 لو اى خلية فيهم فرغة تمام اريد الرسالة البيانات ناقصة اما الخلايا b d e مرتبتين ببعض فى كل سطر النطاق من b3 الى e50 اذا كاتبنا فى اى خلية منهم فى الصف لازم نكمل باقى الخلايا يعنى لو كاتبنا a2 c2 f2 و كاتبنا فىb3 ولم نكتب فى d3 او e3 تظهر بيانات ناقصة زى الان وهكذا لكل السطور حتى b50 طالما كاتبنا فى اى سطر فى الخلية b لازم نكمل باى الخلايا المرتبتة بيها وهى d e او لو كتابنا فى e لازم نكمل b وd لان الكود يقوم بالترحيل والبيانات ناقصة فعايز احكم الموضوع ده وعدم الترحيل الااذا كتبنا كل البيانات عندى 50 سطر مش شرط كلهم يكونو مليانين بيانات بس السطر الى اكتب فيه فى اى خلية من الثلاث خلايا لازم اكمل الخليتين التانين مع شكرى جزيل الشكر بحضرتك

طريقة اخرى شرح الاستاذ ياسر خليل ابوالبراء حفظه الله نقوم بتحديد النطاق المطلوب ، ومن التبويب Home نختار Format as Table ونختار أي نمط من أنماط الجدول ستظهر لك نافذة فيها النطاق الذي قمت بتحديده ، وهذه النافذة فائدتها تحويل النطاق لجدول الآن حدد الخلية المطلوب إنشاء قائمة منسدلة فيها ، ثم ننتقل للتبويب Data ثم ننقر Data Validation ثم من الحقل المسمى Allow نختار List ، وفي الحقل المسمى Source سنكتب المعادلة =INDIRECT("Table1[Names]")

جرب هذا الشرح اخى شرح بالمعادلات عمل قائمة مطاطية لاتحتوى على فراغات.xlsx

تم عمل ملف به كود ترحيل اريد تنفيذ ال msgbox عليه بحيث اذا كان هناك خلية فارغة يتوقف الترحيل كما هو موضح مع الشكر New Microsoft Excel Worksheet2.xlsm

ماشاء الله عليك استاذ سليم حفظك الله

اشكرك استاذنا ليس هذا المطلوب احتاج كود بموديول يخرج رسائل بمسح بوكس لكى استخدم هذه الرسائل لايقاف كود اخرفى حالة عدم استكمال البيانات اشكرك احترامى

الاخوة الاساتذة الاحباء هذا الكود لمن يحتاج الالوان بالاكسيل احترامى الالوان.xlsm

الاساتذة الاخوة الافاضل العمالقة احتاج msgbox فيه رسالة اذا كانت خلية a2 فارغة الرجاء ادخال التاريخ واذاكانت الخلية c2 الرجاء ادخال الرقم واذا كانت الخلية f2 فارغة برجاء ادخال الترتيب الخلايا b,d,e مرتبتين ببعض في اى صف يعنى اذا ادخلنا الخلية لb3 ولم ندخل بيانات d3 وe3 تخرج رسالة برجاء ادخال الاسم والمبلغ1 ولو ادخلنا مثلا خلية d4 ولم ندخل b4 وe4 تظهر رسالة برجاء ادخال البيان والمبلغ1 واذا لم نخل بيانات في الخلية b1,d1,e1 تظهر رسالة برجاء ادخال البيان والاسم والمبلغ وذلك لاى صف يعنى الخلايا b3:b50 ,d3:d50,e3:e50 مع خالص الشكر والاحترام New Microsoft Excel Worksheet.xlsx

شكر وتقدير واحترم من اخيك استاذ عبد الفتاح

شكر وتقدير واحترام استاذنا

ممتاز استاذنا شكر وتقدير واحترام من اخيك

شكر وتقدير واحترام من اخيك استاذى

مشكور استاذنا بارك الله فيك

ممتاز حضرتك ممتاز والله ربنا يحفظك ماشاء الله عليك استاذ سليم ربنا يرضى عنك كل الشكر والتقدير والاحترام من اخيك

تمام استاذنا الله يحفظك صح بس مش عارف اعدل تغير نطاق الاستدعاء كل ما اغير يظهر لى رسالة no data fond احترامى وتقديرى

تم كتابة التعديل استاذى ولكن توقف الكود واحتاج من حضرتك توضيح كيف يتم التعديل للاستدعاء من الصف الخامس وليس الاول واكن شاكر فضلك حيث اننى اغير a1 الى a5 يقف الكود عندما غيرت النطاق منa1:j2 الى a1:j5 ايضا توقف معلش انا حابب اتعلم لان هذا الكود جميل ومفيد مع تحياتى وتقديرى taadel.xlsm

ممكن توضيح استاذ سليم حاولت استفيد من الكود ممكن توضيح كيف يمكن التعديل عليه ليستدعى بيانات من الشيتات من الصف5 وليس الاول وكمان هل بالامكان استثناء صفحات من الاستدعاء مثل صفحة اسمهاdata ,datac عندما غيرت a1 الى a5 نسخ لى بيانات الصفحة مع الشكر والنقدير taadel.xlsm

تسلم ايدك استاذى ربنا يرضى عنك الكود ممتاز ربنا يحفظك اللهم امين كل الشكر والتقدير والاحترام من اخيك

الاساتذة اريد معرفة اين الخطأ فى كود حذف كافة البيانات فى النطاق من a4:j10000 لكافة الشيتات ماعدا ثلاث شيتات data &datab&datac بعد كتابة الباسورد فجأة الكود وقف مع انه كان يعمل واصبح يمسح اول صفحة فقط Sub DelAll() x = InputBox("إدخل الرقم السري لمسح البيانات", "كلمة سر مسح كافة البيانات") If x = "0" Then Dim ws As Worksheet Application.ScreenUpdating = False For Each ws In ThisWorkbook.Worksheets If ws.Name <> "data" And ws.Name <> "datab" And ws.Name <> "datac" Then Range("A5:J10000").ClearContents End If With ws On Error Resume Next On Error GoTo 0 End With Next ws Application.ScreenUpdating = True Else MsgBox " غير مسموح لك بمسح البيانات", vbCritical, "تنبيه": Exit Sub End If End Sub مع خالص احترامى وتقديرى كود مسح كافات البيانات.xlsm

نفس المشكلة حدثت معى والله اخى

مشكور استاذنا بارك الله فيك

ربنا يكرمك يا استاذ سليم اللهم امين بارك الله فيك احترامى

الله يبارك لك استاذ عبدالفتاح حضرتك مبدع بارك الله فيك الكود ممتاز اشكر حضرتك جدا اخيك باحترام

هاهو الملف استاذى ارجو الاطلاع عليه مشكوووور جدا تنسيق شرطى لكل الملف.xlsm