تعديل على الكود

[القول المأثور]

السلام عليكم

يرجى من الاساتذة تعديل على الكود،

عند اختيار من القائمة المنسدلة كلمة Yes يتم اضافة التاريخ في جنب الخلية.

المشكلة لا يتم اضافة التاريخ مباشرة، اضطر اختار خلية مختلفة ثم الرجوع إلى الخلية المكتوب فيها كلمة Yes  حتى يظهر التاريخ.

المشكلة الأخرى عند الضغط على الخلية المكتوب فيها Yes يتم تحديث التاريخ مباشرة، اريد أن يكون مثبت حتى بعد عدة أيام لأنه سيتغير التاريخ مباشرة عند الضغط على الخلية بالخطأ؟؟

 

الكود 

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


    If Not Application.Intersect(Target, Me.Range("b4:b100")) Is Nothing Then
    
        Dim cell As Range
        For Each cell In Application.Intersect(Target, Me.Range("b4:b100"))
            If cell.Value = "Yes" Then
                cell.Offset(0, -1).Value = Date
            ElseIf cell.Value = "No" Then
                cell.Offset(0, -1).ClearContents
            End If
        Next cell
        
    End If


End Sub

 

ملف ملف الأكسل

TEST.rar

تم تعديل فبراير 11, 2023 بواسطه القول المأثور

[lionheart]

Maybe

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    If Not Application.Intersect(Target, Me.Range("B4:B100")) Is Nothing Then
        For Each cell In Application.Intersect(Target, Me.Range("B4:B100"))
            If cell.Value = "Yes" And cell.Offset(0, -1) = Empty Then
                cell.Offset(0, -1).Value = Date
            ElseIf cell.Value = "No" And cell.Offset(0, -1) <> Empty Then
                cell.Offset(0, -1).ClearContents
            End If
        Next cell
    End If
End Sub

 

[القول المأثور]

جزيل الشكر والامتنان للاخ/ lionheart كما هو مطلوب.