۩◊۩ أبو حنين ۩◊۩

السلام عليكم اخى حماده باشا مرفق الملف وتم حذف عدد من الشيتات لكبر الملف الشيتات من 1 الى 12 نفس الهيئه والصيغه التى تم حذفها بهعا معادلات المرالد 1-حذف محتوى الشيتات بالكامل مدخلات ومعادلات ...بحيث لا يبقى اى شئ فى الشيتات اى شئ كلمه السر للشيتات 2191612 http://www.gulfup.com/?Jbb189 جزاك الله خير على اهتمامك طلب اخير .. هلى لك ان تنظر الى العمود G به معادلات ... هل يمكن تحويها الى كود جزاك الله خير

السلام عليكم ارجو المساعده فى هذا الكود للاخ حماده باشا ... المعلم الكبير وادخلت عليه بعض الاحتياجات التى تتناسب والمطلوب اريد ان يمسح كل شئ المعادلات والمدخلات فما الخطاء فى الكود Private Sub Workbook_Open() If Date >= CDate("12/03/2015") Then Application.ScreenUpdating = False Sheet1.Range("A1:OK200").ClearContents Sheet2.Range("A1:U4400").ClearContents Sheet3.Range("A1:U4400").ClearContents Sheet4.Range("A1:U4400").ClearContents Sheet5.Range("A1:U4400").ClearContents Sheet6.Range("A1:U4400").ClearContents Sheet7.Range("A1:U4400").ClearContents Sheet8.Range("A1:U4400").ClearContents Sheet9.Range("A1:U4400").ClearContents Sheet10.Range("A1:U4400").ClearContents Sheet11.Range("A1:U4400").ClearContents Sheet12.Range("A1:U4400").ClearContents Sheet13.Range("A1:U4400").ClearContents Sheet14.Range("A1:D200").ClearContents Sheet15.Range("A1:N200").ClearContents Sheet16.Range("A1:AN400").ClearContents Sheet17.Range("A1:U44000").ClearContents With Sheet18.Range("A1:AJ400") .Value = .Value End With Me.Save Application.ScreenUpdating = True End If End Sub جزاك الله كل الخير

السلام عليكم اخىة العزيز شوقي ربيع جزاك الله خير ...هل يت ذلم فى الماكرو نفسه ان فى حدث الشيت واذا ان يتم ذلك فى حدث الشيت ... كيف سيتم ()Sub Macro1 "Application.OnTime TimeValue("18:08:00"), "Macro2 End Sub

السلام عليكم الاخوه الافاضل .... الساده الكرام ارجو ضبط الامر لكى يعمل الكود بصوره صحيحه ()Private Sub Workbook_Open "Application.OnTime TimeValue("16:30:00"), "Name_of_Macro End Sub كيف ان اضيف اكثر من كود لكى يعمل فى وقت محدد كل يوم ( كود 1 يعمل الساعه 10 ص ) و ( كود 2 يعمل 3 مساء ) واخر يعمل بعد تاريخ محدد ( كود 3 يعمل بعد 20/3/2014 ) حاولت وبائت المحاولات بالفشل ارجو المساعده جزاكم الله كل الخير

السلام عليكم اخى العزيز ..عبدالله الصاري تم المطلوب فى موضع بدل الصحراء اما بدل الورديه لم يتم بالصورى الصحيحه حيث ان بدل الورديه فى كل ورقه رقم واحد مرتبط بالخلية E2 والورقه رقم اثنين مرتبط بالخلية E42وكهدا فهل من حل لذلك

up الاستازة الكرام للرفع

up

السلام عليكم الاخوه الافاضل ... الاستاذه الكرام ارجو المساعده فى احلال المعادلات التى بالعمود H بكود فى شيت 1 وكذلك المعادلات التى بالعمود G الى كود مرفق الملف جزاكم الله كل الخير TIME SHEET KLABSHA_2015_TI.rar

السلام عليكم اخى الحبيب حماده سلمت يداك كيف يكون شكل الكود اذا ارنا ان نضيف اكثر من شيت فى الطلب الاول واكثر من شيت فى الطلب الثانى وكيف الامر اذا كانت كل الشيتات محميه بكلمه سر Private Sub Workbook_Open() If Date >= CDate("15/05/2014") Then Application.ScreenUpdating = False Sheet1.Range("B1:I2880").ClearContents With Sheet2.Range("C8:AA40") .Value = .Value End With Me.Save Application.ScreenUpdating = True End If End Sub

السلام عليكم اخى الحبيب حماده سلمت يداك الاخ العزيز محمود الاسيوطى ... دائما تفكر فيما نحتاجه كيف يكون شكل الكود اذا ارنا ان نضيف اكثر من شيت فى الطلب الاول واكثر من شيت فى الطلب الثانى وكيف الامر اذا كانت كل الشيتات محميه بكلمه سر Private Sub Workbook_Open() If Date >= CDate("15/05/2014") Then Application.ScreenUpdating = False Sheet1.Range("B1:I2880").ClearContents With Sheet2.Range("C8:AA40") .Value = .Value End With Me.Save Application.ScreenUpdating = True End If End Sub جزاكم الله كل الخير

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

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

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

السلام عليكم الاخ العزيز عبدالله المجرب الاخ العزيز وليد فتحي الاخت الفاضلة أم عبد الله الاخ العزيز احمد ابوزيزو جزاكم الله كل الخير ...اجد الموضوع فيه اكثل من حل دائما جميع اعضاء المنتدى عطائين بما لديهم اسال الله ان يجعل ذلك فى ميزان حسناتكم

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

السلام عليكم الساده الاعزاء الاخوة الافاضل ارجو المساعده فى ترقيم ....على اساس ان يتم الترقيم فى العمود A اذا كان محتوى الخليه فى العمود D اكبر من صفر ... اى لا يتم الترقيم اذا كان محتوى الخليه فى العمود D صفر واذا كان اكبر من صفر يتم الترقيم بالتسلسل مرفق الملف جزاك الله كل الخير Book1.rar

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

اخى العزيز يظهر run-time error 1004 ويتم تلوين : Range("B5:B40" & ",H5:H40" & ",J5:J40" & ",O5:O40").ClearContents بالون الاصفر لا اعلم ما المشكله

اخى الحبيب عند تنفيز الاسطر السابقه تظهر مشكله وعند البحث وجت ان الاسطر لابد ان تكون "كلمة السر"= ActiveSheet.Unprotect Password "كلمة السر"= ActiveSheet.protect Password ولاكنى لا استطيع تنفيزها على الكود السابق Sub delete_datas() Application.ScreenUpdating = False sama = MsgBox("سيتم حذف بيانات الشيتات الأربعة (الاتوبيس-طائرة-مطروح-تعديل)... هل أنت متأكد من إجراء هذه العملية ؟", vbYesNo) If sama = vbYes Then For Each Sh In Worksheets If Sh.Name Like "تعديل" Or Sh.Name Like "الاتوبيس" _ Or Sh.Name Like "مطروح" Or Sh.Name Like "طائرة" _ Then Sh.Select: Range("B5:B40" & ",H5:H40" & ",J5:J40" & ",O5:O40").ClearContents Next Else MsgBox "!! لم يتم التفريغ" End If Application.ScreenUpdating = True Sheets("عام").Select End Sub ارجو المساعده

يوجد كود يتم تنفيذه على اكثر من شيت دفعه واحده وجميع الشيتات محميه بكلمه سر كيف يمكن تنفيز الكود مع وجود الحمايه Sub delete_datas() Application.ScreenUpdating = False sama = MsgBox("ÓíÊã ÍÐÝ ÈíÇäÇÊ ÇáÔíÊÇÊ ÇáÃÑÈÚÉ (ÇáÇÊæÈíÓ-ØÇÆÑÉ-ãØÑæÍ-ÊÚÏíá)... åá ÃäÊ ãÊÃßÏ ãä ÅÌÑÇÁ åÐå ÇáÚãáíÉ ¿", vbYesNo) If sama = vbYes Then For Each Sh In Worksheets If Sh.Name Like "ÊÚÏíá" Or Sh.Name Like "ÇáÇÊæÈíÓ" _ Or Sh.Name Like "ãØÑæÍ" Or Sh.Name Like "ØÇÆÑÉ" _ Then Sh.Select: Range("B5:B40" & ",H5:H40" & ",J5:J40" & ",O5:O40").ClearContents Next Else MsgBox "!! áã íÊã ÇáÊÝÑíÛ" End If Application.ScreenUpdating = True Sheets("ÚÇã").Select End Sub برجاء المساعده وكيف وكيف يمكن تخطى اسم الشيت عند اضافة لوجود اكثر من شيت يمكن استخدام فك الحمايه Sheets("SCH.").Unprotect "2191612"""""""""""""""""""""""""""

السلام عليكم الاخ الفاضل... والمعلم الجليل / عبد الله باقشير كود جميل ولا أروع.... والاستفاده منه كبيره كما عوتنا.... مضيف كل جديد جزاك الله كل الخير

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

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

السلام عليكم... الاخوة الاعزاء... هل يمكن اخفاء الصفوف التى لم تستخدم مع بقاء عمود واحد فقط فارغ للكتابه الجديده اسفل اخر صف مستخدم وعند الكاتبه قى ذلك العمود والانتهاء من الكتابه فى العمود G يتم اظهار صف اخر فارغ ... استعدادا لاستخدامه اسفل ذلك الصف اى عند استخدام الصف 3 لل يظهر فى الصفه اسفله الل الصف رقم 4 ...ويتم اخفاء الباقى وعند استخدام الكتابه فى الصف الرابع والانتهاء من المدخلات حتى العمود G يتم اظهار الصف رقم 5 وهكذا ارجو ان اكون قد اوصلت الفكره او المطلوب جزاكم الله كل الخير TIST1.rar

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