الاشعار بقرب انتهاء العقود

**ناصر سعيد** · فبراير 8, 2017

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

قبل كل شيء يجزيكم الله كل خير وبعد :

هذا ملف للتذكير بميعاد دفع الفواتير قبل استحقاقها بايام

اريد ان يتم في صفحه اخرى مايلي

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

**ناصر سعيد** · فبراير 8, 2017

هذا ملف اهداه لي الاستاذ ياسر خليل ولكني اريد فيه التغيير المطلوب جزاكم الله خيرا

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

Expiry Dates Using Conditional Formatting YasserKhalil.rar

**سليم حاصبيا** · فبراير 9, 2017

جرب هذا الملف

تم حماية خلايا المعادلات لعدم العبث بها عن طريق الخطأ

يمكتك زيادة البينات حتى الصف 150(يمكن التعديل الى اي رقم تريد)

Expiry Dates salim.rar

**ناصر سعيد** · فبراير 9, 2017

استاذ سليم

يحفظك ربنا ويصونك

سامحني اشرحها لي ومافائده الجدول الصغير الموجود بالصفحه المصدر

وماذا افعل عند عمل ملف جديد ؟

**سليم حاصبيا** · فبراير 9, 2017

استاذ سليم

يحفظك ربنا ويصونك

سامحني اشرحها لي ومافائده الجدول الصغير الموجود بالصفحه المصدر

وماذا افعل عند عمل ملف جديد ؟

هذا الجدول لم اضعه انا اذا لم تكن بحاجة اليه يمكن ازالته

عندما تريد ان تفتح ملفاً جديداً احقظ هذا الملف بواسطة الضغط على F12 ثم اعطه اسماً يناسبك

بذلك تخلق ملفاً جديداً غير الاصيل بنفس المعادلات و نفس التنسيق

**ناصر سعيد** · فبراير 9, 2017

وماذا افعل عند عمل ملف جديد ؟

اين توجد المعادلات المحميه ؟

**سليم حاصبيا** · فبراير 9, 2017

وماذا افعل عند عمل ملف جديد ؟

اين توجد المعادلات المحميه ؟

المعادلات في صفحة Salim كلها محمية (من التغيير فقط وليس الحذف)

جرب ان تغير شيئاً في اي معادلة و لاحظ النتيجة

**ناصر سعيد** · فبراير 9, 2017

مامعنى =CHAR(156)

واذا اردنا حمايه المعادلات من الحذف ايضا ... ربنا يحفظك

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

**ناصر سعيد** · فبراير 9, 2017

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

وساجري التجارب على الملف

وساوافيك مساء

إن شاء الله بطيب الكلام

**ناصر سعيد** · فبراير 9, 2017

عمل ولاأروع .. جزاك الله خيرا أستاذ سليم

**ناصر سعيد** · فبراير 10, 2017

حتى يكون الموضوع شاملا لكل

من يبحث عن الاشعار بقرب انتهاء العقود

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

المطلوب : من المحترمين تغيير بحيث ياتي بالتنبيه قبل تاريخ الانتهاء

تنبيـــــهات.rar

**ناصر سعيد** · فبراير 10, 2017

=============================================

Sub ExpiredDate()
Dim LastRow As Integer
Dim LastRow2 As Integer
Dim Datecounter As Integer
Dim SnNo As Integer
Dim Mtype As String
Dim Cname As String
Dim Idate As Date
Dim PhNo As String
Dim Adrs As String
Dim Nvisit As Date

expd = Worksheets("Main").Range("A1")
MyDate = Date
Datecounter = 0
i = 0
Worksheets("Notifications").Range("A2:G1001").ClearContents
Worksheets("Main").Counterlbl.Caption = 0

    LastRow = Worksheets("Machines_card").Range("A2").End(xlDown).Row
    For irow = 2 To LastRow
'find data....................
        With Worksheets("Machines_card")
           If (.Cells(irow, 7) - MyDate) <= expd And (.Cells(irow, 7) - MyDate) > -1 Then
              
                SnNo = .Cells(irow, 1)
                Mtype = .Cells(irow, 2)
                Cname = .Cells(irow, 3)
                Idate = .Cells(irow, 4)
                PhNo = .Cells(irow, 5)
                Adrs = .Cells(irow, 6)
                Nvisit = .Cells(irow, 7)
                i = i + 1
                Datecounter = Datecounter + 1
                Worksheets("Main").Counterlbl.Caption = Datecounter
                
'Moving data.................
                      With Worksheets("Notifications")
                      LastRow2 = Worksheets("Notifications").Cells(.Rows.Count, "A").End(xlUp).Row
                              .Cells(LastRow2 + 1, 1) = SnNo
                              .Cells(LastRow2 + 1, 2) = Mtype
                              .Cells(LastRow2 + 1, 3) = Cname
                              .Cells(LastRow2 + 1, 4) = Idate
                              .Cells(LastRow2 + 1, 5) = PhNo
                              .Cells(LastRow2 + 1, 6) = Adrs
                              .Cells(LastRow2 + 1, 7) = Nvisit
                       End With
           End If
        End With
    Next irow
End Sub

هذا هو الكود المطلوب التعديل فيه .. جزاكم الله خيرا

**ناصر سعيد** · فبراير 10, 2017

Sub Show()
'هذه الأكواد الثلاثة التالية تعمل على تسريع تنفيذ الأوامر
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic

End Sub

اكواد للتسريع وجدتها فوضعتها لعلها تفيد احد.. توضع في اول الكود واخره

**ناصر سعيد** · فبراير 11, 2017

للرفع

**ناصر سعيد** · فبراير 11, 2017

أين العمالقه ؟

**ناصر سعيد** · فبراير 12, 2017

يارب ارزقنا باحد الأفذاذ

ليضبط المعادله الموجوده بالكود

cat101 · فبراير 12, 2017

بارك الله فيكم .. يارب يكمل الكود

**ناصر سعيد** · فبراير 13, 2017

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

تاريخ الاستحقاق متساوي مع تاريخ اليوم يتلون اوتوماتيكي باللون ازرق

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

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

تنســـيق.rar

inas aly · فبراير 14, 2017

في ١٣‏/٥‏/١٤٣٨ هـ at 10:34, ناصر سعيد said:

=============================================


Sub ExpiredDate()
Dim LastRow As Integer
Dim LastRow2 As Integer
Dim Datecounter As Integer
Dim SnNo As Integer
Dim Mtype As String
Dim Cname As String
Dim Idate As Date
Dim PhNo As String
Dim Adrs As String
Dim Nvisit As Date

expd = Worksheets("Main").Range("A1")
MyDate = Date
Datecounter = 0
i = 0
Worksheets("Notifications").Range("A2:G1001").ClearContents
Worksheets("Main").Counterlbl.Caption = 0

    LastRow = Worksheets("Machines_card").Range("A2").End(xlDown).Row
    For irow = 2 To LastRow
'find data....................
        With Worksheets("Machines_card")
           If (.Cells(irow, 7) - MyDate) <= expd And (.Cells(irow, 7) - MyDate) > -1 Then
              
                SnNo = .Cells(irow, 1)
                Mtype = .Cells(irow, 2)
                Cname = .Cells(irow, 3)
                Idate = .Cells(irow, 4)
                PhNo = .Cells(irow, 5)
                Adrs = .Cells(irow, 6)
                Nvisit = .Cells(irow, 7)
                i = i + 1
                Datecounter = Datecounter + 1
                Worksheets("Main").Counterlbl.Caption = Datecounter
                
'Moving data.................
                      With Worksheets("Notifications")
                      LastRow2 = Worksheets("Notifications").Cells(.Rows.Count, "A").End(xlUp).Row
                              .Cells(LastRow2 + 1, 1) = SnNo
                              .Cells(LastRow2 + 1, 2) = Mtype
                              .Cells(LastRow2 + 1, 3) = Cname
                              .Cells(LastRow2 + 1, 4) = Idate
                              .Cells(LastRow2 + 1, 5) = PhNo
                              .Cells(LastRow2 + 1, 6) = Adrs
                              .Cells(LastRow2 + 1, 7) = Nvisit
                       End With
           End If
        End With
    Next irow
End Sub

هذا هو الكود المطلوب التعديل فيه .. جزاكم الله خيرا

**خالد الرشيدى** · فبراير 14, 2017

السلام عليكم

حقيقة لم افهم المطلوب تماما -- عموما الجزء الخاص من الكود والخاص بتحديد موعد التنبيه هو

   If (.Cells(irow, 7) - MyDate) <= expd And (.Cells(irow, 7) - MyDate) > -1 Then

وفقا لما فهمت من الطلب استبدله بــ

If (.Cells(irow, 7) - MyDate) >= expd Then

وان لم يكن كذلك ارجو مزيد من التوضيح مع بعض النتائج المتوقعة

تقبلوا تحياتي

**ناصر سعيد** · فبراير 14, 2017

الحمد لله الذي رزقنا باحد الرجال المحترمين وهو الاستاذ خالد الرشيدي

==

في صعحه Machines_Card في الخليه H2 ضغ تاريخ اليوم .. حتى يتم المقاربه

امام الاسم الاول ( اسلام ) في تاريخ الانتهاء اكتب 18/2/2017

كده هذا الاسم وهذا التاريخ اكبر من تاريخ اليوم ب4 ايام

في صفحه Main غي الخليه A1 اكنب العدد 4

ستلاحظ في صغحه Notifications وجود الاسم اسلام بالرغم من انه ليس فيل الميعاد لان الميعاد هو ناريخ اليوم

المطلوب لو تاريخه قبل الميعاد يغني 10/2/2017 كان المقروض يظهر

**خالد الرشيدى** · فبراير 14, 2017

السلام عليكم

زكرت حضرتك ان إسلام وجب ان يظهر لانه اقل من تاريخ اليوم ب 4 ايام وهو الرقم المدخل -- هناك عقود في تواريخ اقل من تاريخ اليوم ايضا ب 3 ايام او اقل او اكثر غير اسلام لم تذكر حضرتك هل كان من المفترض ادراجها ام لا ؟؟

عموما اليك التعديل التالي عله المطلوب -- لن يظهر سوي التاريخ الاقل من تاريخ اليوم ب -- العدد المدخل -- ايام

If (MyDate - .Cells(irow, 7)) = expd And (MyDate - .Cells(irow, 7)) > -1 Then

تنبيـــــهات_3.rar

تقبل تحياتي وشكري علي هذه الكلمات الرائعه من حضرتك -- شكرا جزيلا

تم تعديل فبراير 14, 2017 بواسطه خالد الرشيدى

**ناصر سعيد** · فبراير 14, 2017

59 دقائق مضت, خالد الرشيدى said:

السلام عليكم

زكرت حضرتك ان إسلام وجب ان يظهر لانه اقل من تاريخ اليوم ب 4 ايام وهو الرقم المدخل -- هناك عقود في تواريخ اقل من تاريخ اليوم ايضا ب 3 ايام او اقل او اكثر غير اسلام لم تذكر حضرتك هل كان من المفترض ادراجها ام لا ؟؟

تقبل تحياتي وشكري علي هذه الكلمات الرائعه من حضرتك -- شكرا جزيلا

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

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

فعلا مطلوب ظهورهم

طبعا باستثناء تاريخ اليوم لانه بظهر مع العدد صفر

انت تستحق اكثر من هذه الكلمات ... لانك اهل لها

**خالد الرشيدى** · فبراير 14, 2017

اخي الكريم

جرب الملف بعد التعديل -- عله المطلوب تماما

  If (MyDate - .Cells(irow, 7)) <= expd And (MyDate - .Cells(irow, 7)) > 0 Then

تنبيـــــهات_3_3.rar

تم تعديل فبراير 14, 2017 بواسطه خالد الرشيدى

**ناصر سعيد** · فبراير 14, 2017

اللهم اني اسألك بحق إسمك الاعظم الذي اذا دعيت به اجبت

ان تبارك للاستاذ المحترم خالد الرشيدي وتمده بالصحه والعافيه .. يارب

هل تم التغيير في هذه الجزئيه ام يوجد تغييرات اخرى ؟

            If (MyDate - .Cells(irow, 7)) <= expd And (MyDate - .Cells(irow, 7)) > 0 Then

=================

مامعنى هذه الجمله بارك الله لك ؟

 =CHAR(156)

تسجيل الدخول

الاشعار بقرب انتهاء العقود

الردود الموصى بها

ناصر سعيد

ناصر سعيد

سليم حاصبيا

ناصر سعيد

سليم حاصبيا

ناصر سعيد

سليم حاصبيا

ناصر سعيد

ناصر سعيد

ناصر سعيد

ناصر سعيد

ناصر سعيد

ناصر سعيد

ناصر سعيد

ناصر سعيد

ناصر سعيد

cat101

ناصر سعيد

inas aly

خالد الرشيدى

ناصر سعيد

خالد الرشيدى

ناصر سعيد

خالد الرشيدى

ناصر سعيد

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information