ibn_egypt

أخى الفاضل تفضل الملف المرفق لربما به طلبك تحياتي DeleteSheet.rar

طب ما ترفق الملف أخى الكريم تحياتي

اخى الفاضل ( وعليكم السلام ورحمة الله وبركاته ) ضع هذا الكود في حدث فتح الملف Workbook_Open Private Sub Workbook_Open() Dim Interval As Integer Interval = DateTime.Date - Sheet1.Range("A1") If Interval >= 30 Then Sheet1.Range("B4:B8").EntireRow.Delete End If End Sub أولا ضع التاريخ الذي تريد بداية العد منه في الشيت في الخلية A1 أو اى خلية اخرى تختارها ولكن غير A1 في الكود الى الخلية التى تريدها هنعرف متغير باسم Interval تمام المتغير ده هو ناتج طرح تاريخ اليوم - التاريخ الموجود بالخلية A1 لو قيمة ال Interval دي اكبر من او تساوي الفترة اللى انت عاوزها بقي 30 او 60 يوم زي ما تحب نحدد المدي اللى انت عاوز تحذف صفوفه وانا هنا حاطط المدي اللى انت حددته في الملف B4:B8 وطبعا حطينا الكود في فتح الملف علشان تلقائي بمجرد الفتح لو انطبق الشرط يحذف مباشرة .. ارجو انى اكون افدتك وهذا العمل هو طلبك تحياتي

اخى الفاضل طب ما تغير في الكود وخليه كده Private Sub Worksheet_Change(ByVal Target As Range) Dim myRange As Range Set myRange = Sheet1.Range("H6:H100") myRange.SpecialCells(xlCellTypeBlanks).Select End Sub تحياتي

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

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

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

أخى الفاضل تفضل الملف المرفق لربما به طلبك تحياتى كود حذف آخر صف.rar

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

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

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

تأكد اخى الكريم من الفاصلة , والفاصلة المنقوطة ; .... لربما في جهازك تستخدم الفاصلة المنقوطة ; والمعادلتين بهما فاصلة اجعلها هكذا وجرب =IF(E7<>"";SUM(F7:E7);"") مرفق ملف للتوضيح تحياتى قيد يومية.rar

أخي الفاضل استبدل المعادلة في الخلية F8 بالمعادلة التالية ثم اسحب كما تريد =IF(E7<>"",SUM(F7+E7),"") تحياتي

اسف لم انتبه لتك المشاركة الحمد لله اخونا الفاضل Xima Alfadni، وضع لك رابط به شرح الموضوع .. برجاء قراءته .. خالص الشكر لأخونا الكريم Xima Alfadni تحياتي

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

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

اخى الفاضل أولاً : مرفق ملف به تنسيق شرطي لتاريخ الرخص عندك .. التى انتهت بالفعل باللون الأحمر والتى قاربت على الانتهاء ومتبقي لها 60 يوم او اقل باللون الرتقالي والتى لم تنتهي بدون الوان .. تمام كده .. افتح التنسيق الشرطى Conditional Formatting ثم اختر ادارة القواعد Manage Rules ستجد المعادلات التم تم عملها .. تمام كده ثانيا : بخصوص التاريخ أولا تأكد ان التاريخ بجهازك على شكل dd/MM/yyyy وذلك بالذهاب الى لوحة التحكم Control Panel ثم اختر Region and language او المنطقة واللغة ومنها اختر اعدادات اضافية Additional Setting ومن التبويب في الأعلى اختر التاريخ Date وتأكد انه نفس الصورة التالية ثم افتح الاكسل لديك وحدد نطاق التاريخ ثم تنسيق خلايا واختر التاريخ 14/06/2001 وشوف هيزبط معاك والا لأ تحياتي EMPLOYEE DATA BASE.rar

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

اخى الفاضل مرفق الملف لربما يكون به طبك .. خالص تحياتي Due.rar

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

والحل الخامس الذي تفضل به الأخ الفاضل محمود رواس تحياتي أ.محمود

أخى الفاضل هناك أكثر من طريقة لعمل ذلك .. اذا كنت تريد بالكود فقم بنسخ الكود التالي والصقه في الورقة التى تعمل عليها Private Sub Worksheet_Change(ByVal Target As Range) Dim myRange As Range Set myRange = Sheet1.Range("H6:H100") myRange.Interior.ColorIndex = xlNone myRange.SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 38 End Sub اما الطرق الأخري فتستطيع من خلال تحديد النطاق والذهاب الى Find&Select ثم اختار Goto Special واختر منها Blanks .. سيتم تحديد الخلايا الفارغة واما من خلال Find&Select واختر Find ومن خلال ال Options اختر Lookin Values والبحث By Column ولا تكتب شئ في خانة البحث ثم اضغط Fina All.. سيتم ايجاد كل الخلايا الفارغة في النطاق واما من خلال تحديد النطاق ثم Filter واختر من ال Filter الخيار الأخير Blanks سيعرض لك الخلايا الفارغة فقط تحياتي

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

اخى الفاضل للجمع بشرط تستطيع استخدام SUMIF كمثال هنا نجمع القيم من E1:E14 بحيث يجمع الأرقام الأكبر من او تساوي 10 =SUMIF($E$1:$E$14,">=10",$E$1:$E$14) للجمع بشرطين تستطيع استخدام SUMIFS كمثال هنا نجمع من E1:E14 بحيث الارقام اكبرمن صفر واقل من او تساوي 10 .. حاول تطبيق هذا في ملفك =SUMIFS($E$1:$E$14,$E$1:$E$14,">0",$E$1:$E$14,"<=10") تحياتي

أخى الفاضل كانت لدى نفس المشكلة منذ وقت قريب ولحلها اتبع الخطوات التالية اضغط ALT+F11 ستفتح لك نافذة ال VBA اضغط Ctrl+g لفتح immediate Window انسخ السطر ده والصقه وبعدها اضغط انتر application.CommandBars("Cell").Reset وبعدين انسخ السطر الثاني ده والصقه واضغط انتر application.CommandBars("cell").Enabled = True اقفل ال vba ال right click يعمل بنجاح تحياتى