مطلوب دالة لحساب الايام المتبقية على تاريخ الانتهاء

[بنت الرجال]

السلام عليكم

 

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

 

يعني لو تبقى 30 يوم على الانتهاء تكون المعلومات في اول الصفحه واللي بعده 31 يوم وهكذا

 

الله يوفقكم يارب

انتهاء الرخص.rar

[أبو حنــــين]

السلام عليكم

جرب اخي المرفق

BG.rar

[بنت الرجال]

هل هذا مايكرو ؟؟؟ وكيف انسخها لملفات الاكسل اللي عندي ؟؟؟؟

 

وفقك الله

[أبو حنــــين]

ـ 1 ) تفتح ملف الاكسل

ـ 2 ) تضغط على المفتاحين Alt + F11

تظهر لك نافذة المحرر

ـ 3 ) تضغط مرتين على اسم الورقة الموجود في اليسار و التي سميتها انت : العمالة

تقوم بنسخ الكود التالي :

 

Private Sub Worksheet_Change(ByVal Target As Range)

Lr = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For i = 2 To Lr
If Target.Column = 9 Then
If Cells(i, 9) <> "" Then
Cells(i, 10) = DateDiff("d", Cells(i, 9), Now)
Range("A2:J" & Lr).Sort Key1:=Cells(i, 10)
End If
End If
Next


End Sub

 

بدون عنوان.rar

[حمادة عمر]

رائع كعادتك استاذ الحبيب / أبو حنين

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

[أبو حنــــين]

 

 

 

    جزاك الله خيرا اخي الحبيب حمادة عمر على مروركم  

[بنت الرجال]

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

 

نسخت مثل ماطلبت وحفظته بصيغة تقبل الميكرو ولما افتح الملف امكن الميكرو ولكن لايظهر شي في الورقة تبقى مثل ماهي

[جمال عبد السميع]

بعد إذن أستاذى ( أبو حنين ) حل أخر بالمعادلات لعله يفيد

وحشتنى بجد أستاذى وشكرا على السؤال وجعلك اللهم دائما سباقا للخير دائما

إنتهاء الرحصة.rar

تم تعديل مارس 3, 2013 بواسطه mahmoud-lee

[أبو حنــــين]

و أخيرا ظهرت أخي الحبيب محمود

و الله ليك وحشة لأنك عودتنا على الحضور الدائم

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

[ضاحي الغريب]

السلام عليكم ورحمة الله وبركاته

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

وبعد اذن اخي الحبيب محمود لي

حل اخر بالمعادلات لاثراء الموضوع

 

إنتهاء الرحصة222.rar

[بنت الرجال]

وفقكم الله جميعا واشكر لكم تعاونكم المعهود عليكم في هذا الملتقى الرائع

 

 

سؤالي هل انا مجبره على التاريخ الميلاد ؟؟؟؟؟؟؟؟؟

[ضاحي الغريب]

وفقكم الله جميعا واشكر لكم تعاونكم المعهود عليكم في هذا الملتقى الرائع

 

 

سؤالي هل انا مجبره على التاريخ الميلاد ؟؟؟؟؟؟؟؟؟

 

تم اضافة دالة معرفة لتحويل التاريخ من هجري الي ميلادي

وهي  منقولة لاحد الاخوة بالمنتدي

يمكنك ادخال التاريخ بالهجري وسوف يتحول بالمقابل الي ميلادي

ان شاء الله يكون طلبك

الملف بالمرفقات

مع تحياتي

إنتهاء الرحصة222.rar

[lahap]

بصراحة ربنا يبارك فيكم على العطاء الكبير الذى تقدمه الى هذا المنتدى الرائع

[amgadkh2003]

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

أخيكم أمجد خليل