عبدالله المجرب

اخي ابو الحسن ضع هذا الكود في حدث اي ورقة تريد ان يتم تنفيذ المطلوب فيها Private Sub Worksheet_Change(ByVal Target As Range) LR = Range("B" & Rows.Count).End(xlUp).Row If Target.Column <> 2 Then Exit Sub If Target.Row > LR Then Exit Sub For i = 2 To LR If Cells(i, 2).Value <> "" Then Cells(i, 1).Value = Date End If Next i End Sub وان شاء الله يفي بالغرض

تعليقات حلوة يا ابا ابراهيم

اخي الشهابي جرب المرفق وضعت لك زر اسميته Add One قمت بالتعديل في بعض المعادلات بحيث ازلت +1 من البعض للتجربة اضغط الزر ولاحظ النتيجة ابواحمد القيد.rar

اللهم آمين

اخي أحمد شاهد المرفق احمد.rar

اخي الشهابي انا اسف اذا لم اوصل المعلومة بالشكل الصحيح لكن ما اردت ان اوصله هو انت تريد الكود يكتب رقم 1 صحيح لكن المعادلة تربط الخلية التي سيكتب فيها 1 بخلية الشرط وبذلك ستصبح في جميع الاحوال خالية ولن يفيد الكود يعني الخلية R11 خالية هذا يعني ان الخليتين P11 و Q11 ستكونان خالية بسبب المعادلة وهذا يعني عدم تحقق شرط عمل الكود

اخي الفاضل انت قمت بوضع هذه المعادلة =IF(R11=0;0;IF(R11=1;N11+1;IF(R11=2;N11+2;IF(R11=3;N11+3;IF(R11=4;N11+4;IF(R11=5;N11+5;IF(R11=6;N11+6))))))) في كل الاعمدة ومعادلة مشابهة لها في الخلايا المجاورة لكن هذه المعادلات تربط بين قيمة الخليتين والخلية التي تريد ان يكتب بها 1 وللتوضيح اكثر ناخذ الخلية P11 و الخلية المجاورة لها Q11 والخانة التي تريد وضع رقم 1 فيها هي R11 والشرط هو ان الخلية Q11 تساوي الخلية W2 لكن!!!! الخليتين لا تظهر بهما قيمة اذا كان الخلية R11 خالية فكيف سيتحقق الشرط ؟؟ ارجو الاجابة ليتم تنفيذ المطلوب وللعلم فهذا ينطبق على جميع الخلايا التي ذكرتها ابو احمد

اخي محمد فوكس مان ما شاء الله عليك هناك ملاحظة بسيطة فقط في ما يخص هذه الدالة =MID(B1;9;2) فلو نقصت في عدد ارقام احدى الخليتين ووضعت هذه المعادلة في الخليتين لكان الناتج مختلف لذا الافضل ان يتم ربط تحديد بداية الاقتطاع مع عدد الارقام الموجودة في الخلية وهذه المعادلة بعد التعديل MID(B1;LEN(B1)-2;2) والله الموفق

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

السلام عليكم بخصوص الوورد تم نقل مشاركتك السابقة الى قسم الوورد اما الاكسل يمكنك ان تغير اللغة من تنسيق الخلايا (كونك تريد اللغتين) اما اذا اردت اللغة العربية لجميع الخلايا فاستعمل هذا الكود Private Sub Worksheet_Activate() Cells.Select With Selection .ReadingOrder = xlRTL End With Range("A1").Select End Sub يوضع في حدث ورقة العمل المطلوبة (وبعد تفعيل ورقة العمل سيعمل الكود)

اخي احمد حمور الكود (وانا اعلم انك فاهمه) يعمل عند تفعيل الصفحة اي لو وضعت الكود في حدث ورقة العمل ثم جربت لن يعمل الكود ولكن اذهب الى صفحة اخرى ثن عد للصفحة المطلوب بإذن الله سيعمل الكود ابواحمد

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

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

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

ايه الجمال والابداع دا يا موسوعة الاكواد (استاذ محمد يحياوي) بارك الله لك في علمك ونفك بك ابواحمد

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

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

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

السلام عليكم تم فتح موضوع مستقل للفائدة اخي يمكن ذلك بوضع هذا الكود في حدث التفعيل لورقة العمل التي نريد Private Sub Worksheet_Activate() Cells.Select With Selection .ReadingOrder = xlRTL End With Range("A1").Select End Sub

اخي الفاضل ضع ملف تبين المطلوب والنتيجة وان شاء الله تجد ما يسرك

اخي شاهد المرفق لعل هذا ما تطلب الشرح 2011.rar

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

بالنسبة لي لم اتعامل الا مع صورة واحدة (مثل السيرة الذاتية) او صور عموديه اعذرني اخي الفاضل ان شاء الله تجد الحل لدى احد الاخوة ابواحمد

الاستاذ احمد زمان ابو ابراهيم هذا خيار اخر للسائل ويمكن بالتنسيق الشرطي بالكود (وليس العادي) ثم فرز الملون وطباعته والخيار لك اخي الفاضل ابواحمد

اخي الدالة MID تؤدي هذا الغرض كذلك الدالتين LEFT و RIGHT والله اعلم