توكل

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

قمت بإضافة أمر خروج من الإكسيل بواسطة الكود Application.quit لكن واجهتني مشكلة رسالة الحفظ التي يظهرها برنامج الإكسيل عند الإغلاق ويسأل فيها هل تريد حفظ التغيرات أو لا وأنا أريد أن ألغي هذه الرسلة وأمنع ظهور ها فكيف يكون ذلك مع جزيل الشكر والتقدير.

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

يا شباب الرجاء الرد للضرورة القصوى جزاكم الله كل خير

الإخوة الكرام مخضرمي هذا المنتدي..... الرجاء التكرم بالرد لأهمية الموضوع بالنسبة لي وجزاكم الله كل خير

الإخوة الأحبة للرفع رجاء الإجابة، وجزاكم الله كل خير

الإخوة الأكارم السلام عليكم ورحمة الله إذا كان لدي ملفان Book1 & Book2 وكان الملف الأول مرتبط بالملف الثاني، طبعاً عند فتح الملف الأول سوف تظهر رسالة الإكسيل بطلب تحديث الملف أو لا بما أنه مرتبط بالملف الثاني. سؤال هو هل يمكن إلغاء ظهور هذه الرسالة وتحديث الملف تلقائياً عن طريق الكود؟ أفيدوني جزاكم الله كل خير مع جزيل شكري وتقديري لجميع الإخوة في المنتدى.

أخي الكريم لابد من إرفاق الملف لمحاولة فكه بواسطة برامج خاصة بفك الباسوورد

أخي الكريم أرفق الملف لمحاولة فكه إن شاء الله

أخي أبو أسامة من بعد إذنكم قمت بعمل تعديل بسيط على الكود حتى أتجنب الخطأ فيه لو كانت نتيجة البحث غير مطابقة فأرجو منكم التكرم والنظر فيه مع جزيل شكري وتقدير، وشديد أسفي على التطفل الملف المرفق color2.rar

أخي الكريم رقم فك الحماية هو 1960

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

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

جزاك الله كل خير وأحسن إليك أخي الكريم

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

جزاك الله خيراً أخي الكريم ولكن المشكلة أنه يجب أن يترحل رقم الحساب والبيان والمبلغ في كل سطر وهذا ما يشكل المعضلة بالنسبة لي، فكرت أن أستعمل دالة VLOOKUP ولكن لم أفلح .

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

للرفع جزاكم الله كل خير

الإخوة الأحبة: السلام عليكم ورحمة الله: لدي نموذج عهدة، أود عمل ترحيل له لكن المشكلة أن الصفوف متعددة وغير متسلسلة، وذلك لتعدد أرقام الحسابات في العهدة، أرجو المساعة قدر الإمكان ولكم مني الدعاء ومن الله جزيل الثواب. __________.rar

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

شكراً أخر أبو أسامة وجزاك الله كل خير وجعله في موازين حسناتك

إخوتي الأكارم: بداية كل عام وأنتم بألف خير، أعاده الله علينا وعليكم بالخير واليمن والبركات في بعض الملفات التي أعمل عليها يكون لدي أسطر كثيرة فارغة أو بها القيمة 0 وقد قمت بكتابة الكود التالي لتنظيف الملف من الأسطر الفارغة والتي تحتوي القيمة صفر ولكن ونظراً لأن الملف كبير جداً فإن العملية تستغرق عدة دقائق فهل يمكن أن يكون هناك كود أقصر وأفضل من الذي قمت بكتابته مع جزيل الشكر مسبقاً Sub Find0() ' ' Find0 Macro ' Macro recorded 20/02/2003 by abdulhamid ' ' Keyboard Shortcut: Ctrl+Shift+S ' ' Selection.SpecialCells(xlCellTypeLastCell).Select Selection.EntireColumn.Select On Error Resume Next Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete ActiveCell.End(xlDown).Select ActiveCell.Next(r + 2, C).Select ActiveCell.FormulaR1C1 = "#" ActiveCell.End(xlUp).Select Range(ActiveCell, ActiveCell.End(xlDown)).Select Do If ActiveCell.Value = "0" Then Selection.EntireRow.Delete Else If ActiveCell.Value <> 0 Then ActiveCell.Next(r + 2, C).Select Else End If End If Loop Until ActiveCell.Value = ("#") ActiveCell.Delete Range("A1").Select End Sub

يمكن فعل ذلك عن طريق تظليل الكلمة المراد وضع الخط تحتها ومن ثم نقوم بالضغط على Ctrl+ Shift +W وهكذا يتم تسطير الكلمة أو الجملة المظللة

جزاك الله خيراً وزادك علماً

أخي الكريم يرجى التكرم بمشاهدة المرفق لعل فيه الذي طلبت برجاء دهوة صالحة الملف المرفق _______________________________________________________________.rar