الكتابة فى تاريخ اليوم فقط

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

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

بعد التحية

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

عدم الكتابة معدا فى خلايا او صف اليوم الحالى فقط

ولكم جزيل الشكر والتقديرالكتابة بتاريخ اليوم فقط.rar

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

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

جرب الكود التالي

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Row > 6 Then
        If Target.Column = 2 Then
            If Target.Offset(, -1).Value <> CDate(Date) Then Target.Offset(, -1).Select
        ElseIf Target.Column = 3 Then
            If Target.Offset(, -2).Value <> CDate(Date) Then Target.Offset(, -2).Select
        ElseIf Target.Column = 4 Then
            If Target.Offset(, -3).Value <> CDate(Date) Then Target.Offset(, -3).Select
        End If
    End If
End Sub

Allow Editing Based On Today's Date.rar

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

استاذى 

YasserKhalil

لك كل تحية واحترام اجابة شافية وكافية

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

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

الحمد لله أن تم المطلوب على خير

إنت رجل قديم وفاهم ..يرجى تحديد المشاركة رقم 2 طالما أنها شافيه كافية ..تحديدها كأفضل إجابة ..

تقبل تحياتي