مختار حسين محمود

استخدم الدالة =RANDBETWEEN(1;100) تحياتى

بارك الله فيك أخى وأستاذى ياسر

أخى وحبيبى ابن مصر بعد اذنك حضرتك أخى أبو حبيبة وحنين ( ربنا يبارك لك فيهما ) الكود التالى هو نفس الكود اللى فوق مشاركتك تماما مع التعديل البسيط هو بيحذف كل البيانات فى الملف مع رسالة Private Sub Workbook_Open() Application.ScreenUpdating = False Application.DisplayAlerts = False If Date > #1/30/2015# Then For Each x In ThisWorkbook.Sheets x.UsedRange.Clear Next ThisWorkbook.Save Application.ScreenUpdating = True Application.DisplayAlerts = True MsgBox "sorry all data delated after 30/1/2015 " End If End Sub ضع الكود فى حدث المصنف واكتب أى بيانات فى أى شيت احفظ واقفل الملف ثم أعد فتحه لن تجد أى بيانات فى أى شيت تحياتى

أخى وأستاذى ياسر خليل الحمد لله الذى وفقكم إلى هذا بارك الله لك وبارك الله فيك وجُعل عملكم خالصا لوجهه الكريم

أخى وأستاذى ياسر عن نفسى حاولت وجربت بعض الأكواد ولم تكُ النتائج مرضيةً كان الله فى عونك وأنت لها بإذن الله أستاذ علاء بارك الله فيكم و رفع قدركم ( علاء لا تقارنى بأستاذى الله يكرمك )

كلنا فى الهوا سوا آه بس مدرستك قد مدرستى ؟! عندى 30 فصل بحوالى 1500 تلميذ على كل حال أعتقد أن العملية تحتاج وسيط بين الوورد والاكسل كتحويل ملف الوورد الى ملف text ومن ثم استيراد البيانات الى الاكسل . الرابط خاص بتحويل الورد الى الاكسل online

السلام عليكم أخى وأستاذى ياسر بارك الله فيكم استمر فى هذا الموضوع الموضوع شيق وجميل فيه شغل جامد ولولا الامتحانات كنت شاركت معكم البحث يا ذا الهمة أنتظر منك الوصول الى القمة والوصول الى الحل قريبا بإذن الله تعالى . إضافة : لا أدرى إن كانت تؤثر سلبا أو ايجابا على محاولة التوصل الى حل الموضوع لكن زى بعضه شوفوا الرابط ده أستعمله فى مثل هذه الأمور : http://www.watermark-images.com/convert-word-to-excel.aspx تحياتى لك وأتمنى لكم التوفيق

أحسنت أخى الزيارى بارك الله فيكم تقبل الله منا ومنكم صالح الأعمال

http://www.officena.net/ib/index.php?showtopic=61137 مشاركتى قد تفيدك فيها بحث عن ورقة

أشكرك بارك الله فيكم

العزم شديد و القوة حديد وكل يوم معاك الجديد المفيد ربنا يبارك فيك يا أبا البراء تحياتى

أخى بوتريكة راجع الموضوع بأكمله (مشاركة 8 ومشاركة 21 ومشاركة 26 تحديدا ) ثانيا اللون الأحمر لم أقل إلا أنه : تنسيق من عندك يعنى أنت منسقه بيدك ثالثا الخلايا الفارغة التى أقصدها هى خلايا الصف الأول فى الملفات 1 و2 و3 والكلمات False, True أو ture , false أو true , True بتفرق مع الصف الأول المشئوم رابعا أنت عايز يا أبو تريكة تاكلها بالساهل فى الاكسل زى ما بتلعبها بالساهل فى الكورة تحياتى

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

أهلا بك محمود جرب أحد برامجى Ela Salaty on Excel جاهز للعمل عليه مؤذن يذكرك بأوقات الصلاة الى جانب أدعية وتسابيح كل فترة زمنية لا تنسنا فى دعائك بارك الله فيك اضغط الرابط التالى http://www.officena.net/ib/index.php?showtopic=60645

السلام عليكم أستاذ سليم بارك الله وفى عملك أخى أبوخالد نفذ التوجيهات وحدد اجابة تعجبك ليظهر الموضوع مجاباً التوجهيات فى الصفحة الأولى فى المنتدى للأستاذ ياسر خليل أبوالبراء

اللهم آمين أخى ياسر أحاول أن أقدم العلم الذى أتعلمه قدر استطاعتى

أخى الحبيب بوتريكة بعد الاطلاع على المرفق الخاص بكم وجدت أنه ليس هناك مشكلة كل اللى عملته حضرتك 10/ 10 الأخطاء الحمراء f1 f2 f3 f4 التى فى ملف التجميع سببه أن الخلايا فى الملف الأصلى فارغة واذا وجدت رقم فى ملف التجميع لون الخط فيه أحمر فهذا بسبب تنسيق الخلية أصلا للعلم أن الدالات تحمل جدول من a1 : t26 كله كده على بعضه به بيانات أم لا لا يهم تنقل البيانات الى ملف التجميع والخلايا الفارغة هتلاقى مكانها الافات دى . جرب تعبئة الخلايا الفارغة فى الجدول بالملفات الثلاثة ستجد أنه لا شىء من هذا القبيل تحياتى لك الأستاذ الفاضل ياسر فتحى أسعدنى جدا مروركم وجازاكم الله خيرا

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

ماذا تقصد بأخيراً يا عمرو : أخيراُ ولا أخيـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــراً ؟!

أخى العزيز خزانى بارك الله فيك مشكور لمرورك الكريم تحياتى

السلام عليكم ورحمة الله وبركاته أحب أن أشاركم المينى كود ده . هو لتجميد صفحة أو ورقة عمل الكود يوضع فى حدث المصنف : Option Explicit Private Sub Workbook_Open() ThisWorkbook.Sheets("ورقة1").ScrollArea = "A1:R25" ' غير منطقة الكتابة بتغيير المدى End Sub وهذا الرابط له علاقة مباشرة للموضوع وزيادة : http://www.officena.net/ib/index.php?showtopic=61137 وهذا مرفق لتجميد أو تثبيت الصفحة على مدى محدد . تحياتى لكم تثبيت منطقة الكتابة.rar

أحييك أخى الزيارى حاولت أدخل وأشوف عالم الباركود ده فلم أجد شيئا ولا مؤاخذه ما كنتش شايف أنك وراء الباب المرة اللى جايه هدخل بشويش بارك الله فيك وجازكم عنا خيرا أخوك مختار

أخى الزيارى بارك الله فيكم وجازاكم الله خيرا على ما تقدمه لنا لكن أين الدروس عايز أكسر الباب و مش شايف حاجة ولا نظرى أنا ضغيف :rol:

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

تفضل مع اضافة زر العودة للصفحة الاولى التعامل مع اوراق العمل 2.rar