تاريخ اليوم هو النشط مرفق البرنامج

[طارق زكريا حسين جاه الرسول]

بسم الله الرحمن الرحيم

الشرح داخل المرفق تاريخ اليوم.rar

 

تاريخ اليوم.rar

[طارق زكريا حسين جاه الرسول]

up

up

[طارق زكريا حسين جاه الرسول]

up

up

 

[سليم حاصبيا]

الملف معقد بعض الشيء اذ لا يسمح بالدخول ليه

[طارق زكريا حسين جاه الرسول]

شكرا

[أسامة البراوى]

اتفضل الحل

مع انه فى ملفك الاصلى كان صعب حد يحلها اليوم

(لان المجال المحدد تحت الاسم TAREK كان ناقص سطر عند يوم 18/10/2015 وكان مش بيقرا تاريخ اليوم ده )

جرب الكود 

For Each Rng In Range("TAREK").Areas

   If Cells(Rng.Cells(1, 1).Row - 1, Rng.Cells(1, 2).Column) = CVDate(Date) Then
     Rng.Cells(1, 1).Select
   
   End If
Next

و عندى اقتراح انك تضيفه بنهاية الكود Worksheet_Change ,وفى الحالة دى هيرجعك لتاريخ اليوم اول ما تقف على اى خلية فى الشيت.

تاريخ اليوم --.rar

[طارق زكريا حسين جاه الرسول]

استاذى العزيز 

أسامة البراوى

لك جزيل الشكر والتقدير ماشاء الله عيك وزادك علما