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

[محمود الطحاوي]

سلام عليكم

عندي ملف اكسيل فيه عمود عبارة عن احداث معينة وكل حدث ليه تاريخ بداية في عمود تاني ، عايز كود  بحيث تظهر نافذة منبثقة قبل تاريخ وقوع الحدث ب١٠ ايام على شكل رسالة تحذير عند فتح الملف  ( باقي ١٠ أيام على إقامة الحدث) ويظهر فيها الاحداث تحت بعض .. للتوضيح مش بتكلم عن تغيير لون الخلية .

الملف المرفق

[محمود الطحاوي]

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

 

بانتظار الرد

 

[حسين مامون]

جرب هذا الماكرو 

فيه حلقة تكرارية تفحص التاريخ في العمود F  ويدرج COMMANT قبل عشرة ايام

 

Sub test()
'On Error Resume Next
Dim lr
Dim x
Dim dt: dt = Date
Dim dt2: dt2 = Format(DateAdd("d", -10, dt), "dd-mm-yyyy")
With Sheets("نشاط")
lr = .Cells(Rows.Count, "f").End(xlUp).Row
.Range("f3:f" & lr).ClearComments

For x = 3 To lr
If Not IsDate(.Cells(x, "f")) = True Then GoTo 1
If CDate(Cells(x, "f")) = dt2 Then
    .Cells(x, "f").AddComment
    .Cells(x, "f").Comment.Visible = True
    .Cells(x, "f").Comment.Text Text:=":" & Chr(10) & "عشرة ايام متبقية "
End If

1: Next x
End With
End Sub

 

[محمود الطحاوي]

شكرا لاهتمامك لكن للاسف ما ظبط

[حسين مامون]

اخي الكريم تشكر

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

جرب المرفق

 

ملف طلب المساعدة (1).xlsm

تم تعديل ديسمبر 12, 2022 بواسطه حسين مامون

[محمود الطحاوي]

المطلوب نافذة منبثقة msgbox ، والتاريخ يكون تحذير قبل الحدث بعشرة أيام وليس بعد مرور عشرة ايام

الأهم انها مطلوب نافذة منبثقة.. شكراً جزيلاً على الاهتمام 

[عبدالفتاح في بي اكسيل]

اقتباس

المطلوب نافذة منبثقة msgbox ، والتاريخ يكون تحذير قبل الحدث بعشرة أيام وليس بعد مرور عشرة ايام

ليس  بالفكرة السديدة اظهار  رسالة  اذا  كانت  بيانات  كثيرة  لانه  لديها  حد  معين  في  اظهار  البيانات.

اقتراحي  لك ان  تصمم يوزفورم بدلا من ذلك .

تحياتي .

[محمود الطحاوي]

 معذرة .. ما فائدة اليوزرفورم في هذا الأمر 

[عبدالفتاح في بي اكسيل]

اقرا تعليقي  جيدا   سوف  تفهم  ما  عنيه .

[محمود الطحاوي]

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

[محمود الطحاوي]

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