اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

جرب هذا الكود

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information