ارجو تصحيح هذا الكود

[kalll]

هذه حافظة شيكات صممتها بناء على درس من احد الخبراء فى اكسل 

ولكن اريد بعض التعديلات 

١ الشرح كان على خانه واحدة فى عمود (e5 )اريد ان يكون التطبيق على التواريخ الموجوده فى العمود( e) بالكامل 

٢ عند الضغط على دخول للحافظه من الفورم يغلق الفورم ويفتح صفحة الاكسل 

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

حافظه شيكات.xlsm

[حسين مامون]

اخي الكريم

ملفك ينقصه مزيدا من الشرح لما تقصد 

هذا طلبك الاول ولكن لم افهم فيه شيء تقوا تريد ان يكون التطبيق على التواريخ في العمود E  ولكن كيف؟

١ الشرح كان على خانه واحدة فى عمود (e5 )اريد ان يكون التطبيق على التواريخ الموجوده فى العمود( e) بالكامل

اشرح ما تريد بالتفصيل

بالنسبة للطلب الثاني انسخ هذا الكود وضعه في الزر لي في الفورم

Private Sub CommandButton2_Click()
Unload Me
Sheets(1).Activate
End Sub

 

[kalll]

شكرا استاذنا الكريم على الرد والمساعده 

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

انا اريده ان يعمل على جميع اسطر العمود e

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

 ارجو ان اكون وضحت لحضرتك 

اقصد هذا 

[حسين مامون]

هل تقصد انك تريد كود vba لتنبيه عند انتهاء التاريخ المحدد في العمود E?

[حسين مامون]

جرب هذا 

حافظه شيكات.xlsm

[حسين مامون]

حافظه شيكات.xlsm

عندي شغال 100/100 

وهذه صورة 

هذا الكود انسخه الى ملفك 

Sub test2()
Dim lr
Dim x, m
lr = Cells(Rows.Count, "d").End(3).Row
For x = 3 To lr
Dim DT1, DT2
If CDate(Cells(x, "e")) = Date Then
Cells(x, "f").Value = "هذا الشيك حان موعده"
Cells(x, "f").Interior.Color = 255
Else
Cells(x, "f").Interior.Color = xlNone
Cells(x, "f").Value = ""
End If
Next x

End Sub

 

[kalll]

جزاك الله كل خير عن مجهودك معى

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

فلو امكن تعديل امر vba وتشغيل الفورم الخاص بي اكون شاكر لك جدا

[حسين مامون]

حافظه شيكات.xlsm

[حسين مامون]

الكود الاول في حدث Workbook_Open

وهو يفعل كود test2 ثم يخفي الاكسيل ويظهر الفورم

Private Sub Workbook_Open()
test2
Application.Visible = False
UserForm1.Show
End Sub

وهذه صورة الكود داخل محرر الاكواد

وهذه الاكواد داخل الفورم

Private Sub CommandButton1_Click()
ThisWorkbook.Save
Application.Quit
End Sub

Private Sub CommandButton2_Click()
Unload Me
Application.Visible = True
Sheets(1).Activate
End Sub

 صورة الفورم

 

وهذا الكود في مديول 

Sub test2()
Dim lr
Dim x, m
lr = Cells(Rows.Count, "d").End(3).Row
For x = 3 To lr
Dim DT1, DT2
If CDate(Cells(x, "e")) = Date Then
Cells(x, "f").Value = "هذا الشيك حان موعده"
Cells(x, "f").Interior.Color = 255
Else
Cells(x, "f").Interior.Color = xlNone
Cells(x, "f").Value = ""
End If
Next x

وهذه صور للصفحة

[kalll]

شكرا لك استاذنا الغالي وجعله فى ميزان حسناتك

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

اخى الفاضل هل من الممكن تعديل هذا الكود ليكون على كامل العمود e

وليس خانه واحده فقط منه وهى رقم 4

واسف لك جدا تعبتك معى

[حسين مامون]

اخي الكريم 

اعطينا هذا الموضوع اكثر مما يستحق وهذا مخالف لقانون المنتدى

وكل هذا لانك لم توصل الفكرة عما تريد بلغة الاكسيل 

لاخر مشاركة ارجو ان تشرح ما دور الكود الدي تتحدث عنه ادا طبق ايعمل على العمودE 

الكود في مشاركتي السابقة يغي بالغرض وينبهك في بملاحضة بالعمود  F 

انسخه وضعه في حدثworkbook_open

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

تحياتي

[هانى محمد]

kalll

تجنباً للإطالة والمزايدة بالموضوع ... الأمر بسيط وسهل والملف يفتح معى ويعمل بكل بساطة

يسر ولا تعسر , فيبدو انك تستخدم إصدار اكسيل قديم أقل من 2010 عليك بتحديث الإصدار وستجد الأمر بسيط ويعمل الملف معك بكل كفاءة

بارك الله فيك استاذ حسين عمل ممتاز جعله الله فى ميزان حسناتك