اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

جرب هذا الكود

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim x%
If (Target.Column >= 3 Or Target.Column <= 6) _
    And Target.Count = 1 Then
    If IsEmpty(Cells(Target.Row, 1)) Or IsEmpty(Cells(Target.Row, 2)) Then
        x = Application.CountA(Range(Cells(Target.Row, 3), Cells(Target.Row, 6)))
           If x = 4 Then
               Cells(Target.Row, 1) = Date + Time
               Cells(Target.Row, 2) = Application.UserName
           End If
      End If
End If
Application.EnableEvents = True
End Sub

 

  • Thanks 1

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
×
×
  • اضف...

Important Information