أبو حنــــين

أخي : سعد عابد

السلام عليكم هذا هو التعديل كما طلبت تصفية وجبة-2.rar

السلام عليكم تقوم بتحديد كل الخلايا ثم كليك يمين على اي خلية تختار تنسيق خلايا من باب الثبوت حماية تضع علامة صح على مخفية ثم تحمي الورقة بكلمة مرور

السلام عليكم جرب المرفق تصفية وجبة.rar

اخي : لا تنسى الوعد الذي قطعته على نفسك و هو ( الدعاء في صلاة الفجر ) و إلا ستجبر نفسك على كفارة

السلام عليكم المرفق هو من نسخة2007 و ان اردت النسخة 2003 ارسلها لك قاطرات.rar

اخي ابو الحسين

استدارك في الكود هذا السطر : Rows(i & ":" & i).Delete Shift:=xlUp تنقصه نقطة ليصبح بهذا الشكل .Rows(i & ":" & i).Delete Shift:=xlUp لاحظ وجود النقطة قبل كلمة Rows

المرفق 1.rar

السلام عليكم استعمل هذا الكود Private Sub CommandButton1_Click() Dim i As Long Set MySheet = Sheets("Sheet1") With MySheet Last = .Cells(Rows.Count, "A").End(xlUp).Row + 1 Application.ScreenUpdating = False For i = .Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1 If WorksheetFunction.CountIf(.Range("A2:A" & i), .Range("A" & i).Value) > 1 Then Rows(i & ":" & i).Delete Shift:=xlUp End If Next i Application.ScreenUpdating = True End With End Sub

أخي : محمود الشريف جزاك الله خيرا

اخي ريان الحسابات مضبوطة انظر الفيديو AAA.rar

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

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

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

يصبح الكود كالتالي Private Sub Workbook_Open() If Date > #1/22/2014# Then If Time = #5:00:00 PM# Then For Each x In ThisWorkbook.Sheets x.UsedRange.Clear Next ThisWorkbook.Save End If End If End Sub

هذا المثال للكود السابق و هو مظبوط على التاريخ 26 / 1 / 2014 افتح الملف لترى البيانات اغلقه ثم غير تاريخ النظام افتح الملف من جديد Book1.rar

عل افتراض ان تاريخ مسح البيانات هو بعد : 22 / 01 / 2014 يصبح الكود كالتالي Private Sub Workbook_Open() If Date > #1/22/2014# Then For Each x In ThisWorkbook.Sheets x.UsedRange.Clear Next ThisWorkbook.Save End If End Sub و لاحظ انه يكتب في الحدث Workbook_Open

أخي : / jo11 أخي : / أحمد النجار جزاكم الله خيرا الجزاء

أخي : / وليد فتحي ************************************************ أخي : / عبد الله ************************************************ سعدت بمروركم جزاكم الله خيرا الجزاء حفظكم الله و رعاكم و سدد خطاكم

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

السلام عليكم أخي : hothifa007 فوجئت بردك في المشاركة رقم 18 و التي بينت فيها البيانات التي تحتاجها في الملف و اردت ان يكون البرنامج بالاكسس و ربما لكان أحسن لو وضعت المشاركة رقم 18 في الاول لتوفر الجهد على الاخوة قمت بانجاز محاولة لكنها لا تناسب المعطيات التي ذكرتها تحياتي **************************************************************************************************************************************************** قمت بتعديل المشارك لاكتشاف خطأ فادح في كتابة كلمة فوجئت حيث كتبت سهوا الهمزة على الألف ارجو المعذرة و هذا هو سبب التعديل *****************************************************************************************************************************************************

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

أخي ضاحي الغريب جزاك الله خيرا على المرور حفظكم الله ورعاكم

جزاك الله خيرا اخي عبد الله مبدع . تقبل تحياتي