ضبط تاريخ

[عمر الجزاوى]

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

مشاركة مكررة .... تــم بالفعل حذف المشاركة الأخرى

ضبط تاريخ.xlsm

[ابو القاسم]

Private Sub Worksheet_Activate()
lr = Range("a" & Rows.Count).End(xlUp).Row + 1

If Date <> Cells(lr - 1, 1) Then
Cells(lr, 1) = Date
Cells(lr, 3) = "رصيد مترحل"
End If
End Sub

عدل الكود

[عمر الجزاوى]

شكرا على هذا المجهود الرائع ووقتك الثمين الذى لم تبخل عنا به