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

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

للرفع

السلام عليكم الاخوة الافاضل هلى يمكن عمل كود اخفاء واظهارعدد من الصفوف على اساس ان الخليه M2 تساوى صفر اى ان الخليه M1 تساوى صفر يتم اخفاء هذا الصف بالاضافه الى 39 صف اسفله مباشرة اى الى الصف 40 والخليه M 41 تساوى صفر يتم اخفاء هذا الصف بالاضافه الى 39 صف اسفله مباشرة اى الى الصف 80 والخليهM 81 تساوى صفر يتم اخفاء هذا الصف بالاضافه الى 39 صف اسفله مباشرة اى الى الصف 120 وهكذا ويمكن اظهار جميع الصفوف المخفيه مره اخرى عند الضغط على الزر مره اخرى جزاكم الله كل الخير كود اخفاء واظهار.rar

جزاك الله كل الخير

السلام عليكم ممكن مثال جزاك الله خيرا

للرفع

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

السلام عليكم اخى ...ضاحي الغريب هل يمكن تطبيق الامر على المرفق جزاك الله خيرا

السلام عليكم ... الساده الكرام هل يمكن جعل زر توزيع الساعات بقوم ايضا بعمل رز توزيع بدل الصحراء او جعل كود توزيع بدل الصحراء يتم بصورة اليه مرفق الملف جزاكم الله كل الخير TIME SHEET KLABSHAبدل صحر2ا.rar

الأستاذ الفاضل / سليم حاصبيا جزاك الله خيراً كود رائع ارجو ان يستفاد منه الجميع جعله الله في ميزان حسناتك

السلام عليكم اخى الحبيب حماده عمر بغد التحيه اخى الحبيب اريد تنفيد هذا الكود مع وجود حمايه ايضا للشيت هذا الكود يقوم باخفاء الصفوف التى محتوى الهليه d بها صفر وهذا الشيت محمة بكله سر 2191612 Sub dahmour() If ActiveSheet.FilterMode = True Then On Error Resume Next ActiveSheet.ShowAllData Else Range("D4:B" & Cells(Rows.Count, "B").End(xlUp).Row).AutoFilter field:=1, Criteria1:="<>0", visibleDropDown:=False End If 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 جزاكم الله كل الخير

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

السلام عليكم اخى العزبز شوقي ربيع واريد تطبيق نفس الامر على اكثر من كود فى ملف واحد ولاكنى لا استطيع كود transfer يتم العمل به الساعه 6 مساءتلقائى كود PDF_ALL يتم العمل به الساعه 6.30 مساءتلقائى كود delete_datas يتم العمل به الساعه 7 مساءتلقائى مرفق الملف http://www.gulfup.com/?9qbpoC جزاك الله كل الخير

السلام عليكم اخى الحبيب حماده... جمعه مباركه عليك وعلى جميع المسلمين لقد ساعدتنى انت والاخوه الاعضاء فى ان اتمام عمل الكود فى وقت معين واريد تطبيق نفس الامر على اكثر من كود فى ملف واحد ولاكنى لا استطيع كود transfer يتم العمل به الساعه 6 مساءتلقائى كود PDF_ALL يتم العمل به الساعه 8 مساءتلقائى مرفق الملف http://www.gulfup.com/?9qbpoC

السلام عليكم اخى الحبيب عبدالله الصاري جزاك الله كل خير الكود يعمل بصوره جيده على العمود G ولاكن يوجد اطاء فى العمود H حيث انه من المفترض وضع العلامه امام كل يوم عمل والذى يرمز له بالرمز X اذا كان محتوى الخليه E2 E او U ويكفنى ان اطبق الامر على العمود G واخير كيف يمكن ان اجعل الكود يعمل تلقائى بدون زر .. اى يعمل عند دخول الصفحه جزاك الله كل الخير

السلام عليكم اخى العزيز تفضل الملف سوف يتم حزف الملف شهر 1 يوم 15 سنه 2015 If Date > CDate(#1/15/2015#) Then يراعى ان 1 هو الشهر 15 هو اليوم ارجو ان يفى الامر بالغرض Book1.rar

اخى الحبيب حماده باشا جزاك الله خيراعلى النصيحه ولكونك اهل خبره فى الامر سوف اقبل النصيحه فى الامر قيما يتعلق بالعمود H وهل تحويل معادلات العمود G الى كود سيكون له نفس الاثر ان لم يكن ... فبرجاء تحويل معادلات العمود G الى كود جزاك الله كل الخير

UP ارجو المساعده اكرمك الله

UP

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

السلام عليكم الاخ الحبيب والاستاذ الكبير بن عليه حاجى والله لا اجد ما يستوفى تقدير جهدك معى جزاك الله كل خير Private Sub Workbook_Open() Application.DisplayAlerts = False Application.ScreenUpdating = False If Date > DateValue("12/03/2014") Then For i = 1 To Sheets.Count With Sheets(i) If .ProtectContents Then .Unprotect (2191612) .UsedRange.ClearContents .Protect (2191612) Else .UsedRange.ClearContents End If End With Next i Me.Save MsgBox "ÃäÊåÊ ÝÊÑÉ ÅÓÊÎÏÇã ÇáãáÝ", vbInformation End If Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub اين اسماء الشيتان فى الكود وهل ( With Sheets(i المقصود بها كل الشيتات اسال الله عز وجل ان يجعل ذلك فى ميزان حسناتك

السلام عليكم اخى العزيز ahmed58 جزاك الله خير ... تم حل المشكله اريد استضاح الخطاء من وجود ME.SAVE

أخى الكريم ...دغيدى ... يتم تغير الكود لكى يتم التفعيل الا انه لم ياتى بالمطلوب من ناحيه حذف جميع ما بالشيت من مدخلات ومعادلات يجذف المدخلات فقط والمطلوب حذف المدخلات والمعادلات ...اى حذف اى شئ فى النطاق المحدد جزاك الله كل الخير