خالد الرشيدى

استخدم الكود التالى فى حدث التغير فى ورقة العمل Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B:B")) Is Nothing Then Target.Offset(0, -1).Select End If End Sub واليك المرفق 11111.rar

جرب الكود التالى بإفتراض ان التاريخ موجود فى الخلية A1 =DAY(DATE(YEAR(A1);MONTH(A1)+1;1)-1) ان كان هذا ما تريد حدد الموضوع كمجاب Month Days.rar

تفضل المطلوب بالمرفق إقرار.rar

م.ياسر فتحى البنا أ.ابو معاذ العباسى مجهود كبير جزاكم الله خيراً استاذى القدير . ياسر خليل ابو البراء شرف كبير لى اعتذ به ان تذكرنى بمثل هذا وان شاء الله سأعمل على تقديم دوال الاكسيل بإستخداماتها المتقدمة كل منها فى ملف واسال الله العون فى ذلك تقبل فائق احترامى وتقديرى لشخصكم الكريم

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

بعد اذن الاخوة فلعلى قد فهمت المطلوب اليك ما طلبت الشرط الذى تم إضافتة .. إذا كان تاريخ الانتهاء = او اقل من تاريخ اليوم يصبح لون الخلية احمر إذن بحلول يوم غد 27 ستجد ان الخلايا التى بها تاريخ اليوم 26 لازالت حمراء ولم تتغير OVER 14 DAYS.rar .......................................... الاخ الفاضل ان وجدت فى احد المشاركات ما تريد تماما قم بتحديدها كأفضل إجابة حتى يصبح الموضوع مجاب ومنتهى

ها هى طريقة بدون عمود مساعد لعل ذلك هو المطلوب جرب المرفق نموزج.rar ........................... هذه معادلة صفيف بعد كتابتها لا يتم الضغط على انتر وإنما Ctrl+Shift+Enter

تفضل أ.أيمن المطلوب بالمرفق المصنف1.rar

المطلوب بالمرفق وان كان ما تريد قم بتحديد الموضوع كمجاب إقرار.rar

اعذرنى فلم اجرب الكود فى المرة السابقة جيداً جرب المرفق الان إقرار_4.rar

فك____رة 12 الاخوة الكرام فكرة اليوم كنت قد وضعتها فى وقت سابق على المنتدى ولكنى سأضعها ايضاً فى هذا الموضوع لكى يكون مجمع لكافة حالات الدالة قدر الامكان 12.rar ......................................... هذا الكود بسيط فقط ل -المعرفة المبدئية - بقى الان الملف المجمع لكافة الحالات وبة ستجدون باقى الافكار ان شاء الله

ترقية مستحقة لشخص لا يقدم فقط اعمال رائعة بل حريص على التشحيع المستمر لباقى الاعضاء ايضاً حتى يقدموا ما عندهم أستاذى واخى الحبيب محمد الريفى الف مليون مبروك على الترقية المستحقة مزيد من التقدم والرقى إن شاء الله

استاذى الحبيب ياسر انا قصدت بالنسخ كود الاستاذ مختار (اى لم اقم بالتعديل علية فربما يكون المطلوب نقل الخلية بالتنسيق و...) و الكود الذى ارفقتة حضرتك ( مشاركة4) قمت بتنفيذه فى مرفق (مشاركة 5) حيث ان الكود يتسم بالبساطة ولمتصفحى الموضوع فيما بعد وكود حضرتك (مشاركة 6) فهو منفذ بالفعل فى المرفق الاول وفى حدث التغير فى ورقة العمل ايضاً تقبل تحياتى

الكود يعمل تماماً استاذى ياسر لم اجرب ذلك .. قمت فقط بنسخ الكود ولصقة ليكون هناك مرفق لكود الاستاذ مختار ثم لاحظت النتائج ولم ارجع الى الكود ثانية جزاك الله خيراً اخى الكريم اليك ملف اخر بهذا الكود المبسط فية يتم ترحيل القيمة مختار حسين.rar .................................................... الان اصبح لديك 4 اكواد اختر منهم ما يناسبك

السلام عليكم الموضوع له علاقة بتنسيق تلك الاعمدة فى حدث كود الترحيل والتعديل تفضل المرفق وابدى ملاحظاتك اذون صرف_قبض_ _PASS 111_ضاحى.rar

استاذن أ.مختار فى تقديم طرق اخرى لاثراء الموضوع اخى الكريم اليك ثلاثة ملفات احدهما يتم تطبيق الكود بمجرد تحديد اى خلية فى العمود A الثانى يتم الترحيل بتحديد الخلية المراد ترحيلها فى العمود A ثم الضغط على زر ترحيل يجدر الاشارة الى ان معادلة الاستاذ مختار هى الاسهل فى التطبيق ولكنها تقوم بنقل الخلية بجميع تنسيقاتها وان كانت بها معادلة سيتم ترحيل المعادلة ايضاً اما الملفين الاخرين يتم ترحيل القيمة فقط وستجد تطبيقها ضمن الملفات 3 مع اضافة ان شرط للترحيل وهو ان تكون الخلية فى العمود A - بعد اذن استاذى مختار طبعاً - El Rashedy.rar ............................................................. اخى الفاضل هذه المشاركة لاثراء الموضوع لذا قم بتحديد مشاركة الاستاذ مختار كأفضل إجابة

تفضل المطلوب بالمرفق Classeur1.rar

استأذن اساتذتى بتقديم الحل فلعل المطلوب واضحاً الان جرب المرفق Classeur1.rar

اخى الفاضل جرب المرفق لعلة المطلوب وابدى ملاحظاتك ان كان ما تريد قم بتحديدة كمجاب إقرار.rar

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

اخى الكريم - لا توجد صعوبة ان شاء الله عموما انا لم اقصد سوى معرفة الهدف من الترحيل حتى احدد الاسلوب الذى سيستخدم خصوصاً ان تنسيقات حضرتك فى صفحة ورقة الترحيل كانت تحتاج الى توضيح وان كان الامر للتسهيل او بمثابة كشف حساب ( المفترض العنوان الاساسى للموضوع ) جرب المرفق التالى وابدى ملاحظاتك فاتورة.rar

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

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

اخى الفاضل جرب الملف التالى ان كان ما تريد قم بتحديدة كأفضل إجابة ملف تقسيم الاسماء.rar

اخى الفاضل جرب المرفق فاتورة الكهرباء.rar