الدهاب الى الصف الذى فيه تاريخ اليوم

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

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

بعد التحية

المطلوب ان شاء الله

عند الضغط على زر سطر اليوم يذهب الى السطر الذى فيه تاريخ اليوم

مثلا اليوم هو الاثنين 2015/03/30 عند الضغط على زر سطر اليوم يذهب الى الصف رقم (95)

لكم جزيل الشكرالخلية النشطة.rar

[ياسر خليل أبو البراء]

الأخ الفاضل طارق

إليك الملف التالي ..

Sub Button2_Click()
    Dim Cell As Range
    For Each Cell In Range("A7:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        If Cell.Value = Date Then Cell.Select: Exit For
    Next Cell
End Sub

تقبل تحياتي

Select Cell Equal To Date.rar

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

اليك الحل

الخلية النشطة salim.rar

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

اعتذر اخي ياسر لم ار مشاركتك الا بعد رفع خاصتي

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

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

سليم حاصبيا

لك كل الشكر والتقدير