۩◊۩ أبو حنين ۩◊۩

السلام عليكم الاخ عبد الله قبل بداء ادخال اى بيانات جديده سوف يقوم كود بمسح المدخلات فى جميع الاياموعلى مستوى جميع الاسماءاى من الخليه F4 الى AI28 ارجو ان تكون الصورةواضحة

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

السلام عليكم الاخ الجليل ...ياسر خليل والمعلم الكبير جزاك الله كل الخير ... وارجو ان يتسع وفتك لشرح الكود وما علاقة y2 بالكود اذا كان المتعير فى ap2 وهل يمكن اضافى MsgBox خلف كل شرط اضع بة رساله ElseIf Not Intersect(Target, Range("Y2")) Is Nothing Then Columns("AG:AJ").Hidden = False If [AP2] = 30 Then Columns("AJ:AJ").Hidden = True If [AP2] = 29 Then Columns("AI:AJ").Hidden = True If [AP2] = 28 Then Columns("AH:AJ").Hidden = True End If جزاك الله كل الحير

السلام عليكم الساده الكرام... ارجو المساعده فى كود احفاء اعمده على اساس محتوى خلية اذا كان عدد ايام الشهر فى الخليه AP2 1- يساوى 30 يتم اخفاء العمود AJ فقط اى يوم 31 2- يساوى 29 يتم اخفاء العمود AJ و AI فقط اى يوم 31 و 30 3- يساوى 28 يتم اخفاء العمود AJ و AI و AH فقط اى يوم 31 و 30 و29 حيث ان عدد ايام الشهر او قيمه عدد ايام الشهر تتغير من خلال ادخال بدايه الشهر فى Y2 اى الاخفاء والاظهار يتم على اساس متغير الخلية AP2 جزاكن الله كل الخير اخفاء اعمدة.rar

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

السلام عليكم الاخ الفاضل حسام ... تم تجربة المعادلة ونحجت بصوره مرضية جزاك الله كل الخير اخى الحبيب سليم اولا شاكر لك تعاونك والحل الجميل بالكود واريد ان اضيف شرط اخر لو H1 29 اريد ان يتم اضافة A11:A20 هل يمكن ذلك

السلام عليكم الاخ الفاضل حسام سلمت يداك .. وجزاك الله كل الخير اخى الحبيب كيف حال المعالدلة اذا كان المطلوب عدم الكتابه فى الخليه لو كان الرقم الموجود فى الخليه Z1 اقل من اذا كان الرقم اقل من 30 مثل 29 او 20 لا يتم الكتابه وهل يمكن تحديد الاقام بين رقيمن مثل لا يتم الكتابه اذا كان محتوى الخليه Z1 بين 30 : 28 جزاك الله كل الخير

للرفع اكرمكم الله

السلام عليكم الساده الكرام هل يمكن من خلال data validation ان نمنع الكتابه فى خليه او عمود بناء على محتوى خليه معينه بمعنى اذا كان محتوى الخلية Z1 تساوى 30 لا نستطيع الكتابه فى الخلايا x1 : x30 وتظهر رساله ونتمكن من الكتابه اذا كان محتوى الخليه 31 ارجو الافاده مع التطبيق جزاكم الله كل الخير

الاالسلام عليكم الاخ الحبيب احمد زمان جزاك الله كل الخير تم الامر الاخ الكبير ياسر.... معلومه جديده ... لى على الاقل .. جزاك الله كل الخير

السلام عليكم اخى الحبيب احمد زمان جزاك الله كل الخير سلمت يداك بكل خير الامر تم بصوره ممتازه

السلام عليكم ارجو المساعده فى ضبط الكود المرفق بحيث يتم تنفيذ على جميع الشبتات بالملف وحيقث ان عدد الشيتات اكثر من 50 سبت فيصعب كتابه اسماء الشيتات او الدخول الى كل شيت لتنفيذة ارجو المساعده Sub delete_datas() Application.ScreenUpdating = False On Error Resume Next ActiveSheet.Unprotect "2191612" On Error Resume Next sama = MsgBox("ÓíÊã ÍÐÝ ÌãíÚ ÇáãÏÎáÇÊ ÈÌãíÚ ÇáÔíÊÇÊ . åá ÃäÊ ãÊÃßÏ ãä ÅÌÑÇÁ åÐå ÇáÚãáíÉ ¿", vbYesNo) If sama = vbYes Then For Each Sh In Worksheets If Sh.Name Like "ÑãÖÇä 1" Or Sh.Name Like "ÑãÖÇä 2" Or Sh.Name Like "ÑãÖÇä 3" _ Or Sh.Name Like "ÑãÖÇä 4" Or Sh.Name Like "ÑãÖÇä " _ Then Sh.Select: Range("E4:AH28").ClearContents Next Else MsgBox "!! áã íÊã ÇáÎÐÝ ÈÚÏ " End If Application.ScreenUpdating = True Sheets("ÑãÖÇä 1").Select ActiveSheet.Unprotect "2191612" End Sub المقاولين.rar

السلام عليكم الاخ الفاضل ابوتراب سلمت يداك وافكارك ..هذا حال الاساتذه .. عونا دائما للجميع اخى الحبيب هل يوجد اى تغير اذا تم ارسال الاميل من اميل Microsoft Outlook

السلام عليكم اللاخوة الكرام والاساتذه العظام ارجو المساعده فى عمل كود يقوم بالترتيب من B5 TO F280 على اساس 1- Contractor العمود D المفاح الاول 2- JOP العمود C المفتاح الثانى 3- Name العمود E المفتاح الثالث ثم يمكن العوده الى ما قبل الترتيب على اساس NO. العمود B ولاكن من خلال زر واحد فقط ترنيب – ما قبل الترتيب كما فى كود اخفتاء الصفوف الفارغة واظهار الصفوف الفارغة ..... للاخ الفاضل الكبير بن علبه حاجى جزاك الله خيرا TIST.rar

السلام عليكم اخى طارق الاخوة الكرام سلمت يداكم

السلام عليكم الساده الكرام الاخ العزيز عبد الله .. شاكر جدا لمجهودك الاخ سليم .. سلمت يداك هل يمكن تحقيق ذلك عن طريق التنسيق الشرطى فقط دون الاعمده المساعده لان قمت بلامر عن طريق عمود مساعد فى at فى جميع الشيتات هل يمكن من خلال التنسيق الشرطى فقط book3.rar

السلام عليكم الساده الكرام اكرمكم الله بكل الخير هل يمكن عمل تنسيق شرطى بيحث ينطبق على جميع الشيتات ويقوم بتلوين الخلايا التى تتكرر قيمتها على مستوى الشيتات وليس شيت واح بمعنى اذاكان فى الشبت الاول فى العمود D اسم احمد محمد وتكرر فى الشيت الثانى يقوم بتلوين الاسم ومن هنا اعلم بوجود تكرار الاسم على مستوى الملف بجميع شيتاته هلى يمكن ذلك جزاكم الله كل الخير Book2.rar

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

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

لسلام عليكم الساده الكرام هل يمكن ادخال تعديل على المعادله بحيث لا يظهر الصفر عند ما لا يوجد عدد ل X حيث يظهر صفر عندما لا يوجد عدد لحرف X وذلك من خلال المعادله وليس من خلال التنسيق الشرطى جزاكم الله كل الخير ("";("IFERROR(COUNTIF(E9:AI9;"X=

السلام عليكم الاخ ابو عيد ...سلمت بداك بكل خير جزاكم الله خيرا تقبل وافر تحياتي...

السلام عليكم الاخ الجليل محمد اين الشرح

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

لسلام عليكم اخى الحبيب ابو تراب الفكره ممتازو وتم لامر بصورةجيده جدا جدا وهذا يعنى انه عند كل ترحيل جديد..( يتم الترحيل للبيانات بدايه اول شهر بعد مسح البيانات القديمة فى ملف بدل الوجبه) لابد من كتابه -1 فى الخليه N1 ... ام انه لم تصل الى الفكره بصورة صحيحه

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