إبراهيم ابوليله

الاخ طارق بارك الله فيك ولكن ماذا لو اردنا ارجاع الاعمده الى صفوف كما كانت

ممكن يحسب البيانات المرحله\

الاخ عبد الله هل يمكن اظهار السطر الخاص بالجمع عند نسخ البيانات من A 15002الى M 15002 بيانات.rar

الاخ عبدالله بارك الله فيك وجعلك نافعا بعلمك

الاخ رجب مشكورا على الرد

الاخ رجب مشكورا على الرد

الاخوه الافاضل ارجو المساعده لقد حاولت تطبيق كود ترحيل الى صفحات بناء على اسم خليه ولكن يحدث خطأ انا اريد الترحيل بناء على الخلايا من b3 الى e3 واسم الشيت الجديد سيكون بناء على الخليه f3 نطاق البحث يكون من a5 الى n15000 ويتم نسخ البيانات من a1 الى n150002 ارجو شرح الخطأ الذى وقعت فيه اثناء تنفيذ الكود بيانات.rar

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

اخى رجب اسف لاننى نسيت ان اشكرك على الرد بارك الله فيك

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

الاخ عبد الله مرفق اليك الفيديو بعد حزف الشيت.9 بعد حزف شيت9.rar

الاخ عبد الله مرفق لك فيديو YES YES.rar

الاخ عبدالله مرفق اليك فيديو يوضح اننى عندما اختار NO يتم ظهور رساله SAVE --- DON'T SAVE --- CANCEL لو تم اختيار CANCEL يتم الدخول الى البرنامج والمفروض يتم الخروج من البرنامج وعند اختيار YES يتم الخول عند طريق الباسورد وبعد حزف شيت رقم 9 عند اختيار NO يتم الخروج من البرنامج مرفق لك فيديو NO NO.rar

من الخلايا J3 و K3

اسف اخ رجب ولكن يكون الكود Private Sub Workbook_Open() If Date > "01-05-2012" Then Dim sh As Worksheet Application.ScreenUpdating = False For Each sh In ThisWorkbook.Worksheets With sh.UsedRange .Copy .PasteSpecial xlPasteValues End With Application.CutCopyMode = False Next Range("A4").Select Application.ScreenUpdating = True End If End Sub

الاخ رجب بارك الله فيك ولكنى استطعت ان اقوم بهذا عن طريق ادخال If Date > "01-05-2012" Then وبذلك يصبح الكود Sub ragab() If Date > "01-05-2012" Then Dim sh As Worksheet Application.ScreenUpdating = False For Each sh In ThisWorkbook.Worksheets With sh.UsedRange .Copy .PasteSpecial xlPasteValues End With Application.CutCopyMode = False Next Range("A4").Select Application.ScreenUpdating = True End Sub مع الاخخ بكو

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

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

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

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

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

الاخ رجب بارك الله فيك ولكن هل يمكن شرح كيف ازود من ساحه الرينج بحيث يصبح اكبر

الاخ عبد الله اسف على ارفاق الخطأ ولكن انظر الى هذا المرفق Copy of مجموعه اكواد على الاكسل.rar

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

عند فتح الملف يتم فتح الملف يتم ضهور رساله المفروض عند الضغط على NO يتم الخروج من البرنامج ولكن يحدث العكس فما هو الحل او الخطأ علما بان الباسوورد 1234Copy of مجموعه اكواد على الاكسل.rar