اشتباه در درج تاریخ سلول پر شده تحت شرایط خاص

[iranweld]

بدین صورت تست بفرمایید

Sub Worksheet_Change(ByVal Target As Range)

Dim cell As Range

Set cell = Range("H8:R50000")

        If Not Intersect(Target, Me.Range("H8:R50000")) Is Nothing Then
        
        Application.ScreenUpdating = False
        
        For Each cell In Selection
        
        cell.Offset(0, 23).Value = J_TODAY(1)
Next

End If

Application.ScreenUpdating = True

End Sub