نوشته اصلی توسط
مجید ایرج
کسی نیست جواب سوال مارو بده؟؟
با سلام
از کدهای ذیل استفاده کنید
کد PHP:
Sub worksheet_change(ByVal target As Range)
If Not Intersect(target, Me.Range("A:A,B:B,C:C,D:D,E:E,F:F")) Is Nothing _
Or Not Intersect(target, Me.Range("G:G,H:H,I:I,J:J,K:K,L:L,M:M,N:N")) Is Nothing Then
Application.EnableEvents = False
target.Offset(0, 1).Value = target.Value
Application.EnableEvents = True
End If
'============================='
If Not Intersect(target, Me.Range("S9")) Is Nothing Then
Application.EnableEvents = False
Range("A1") = target.Value
Application.EnableEvents = True
End If
End Sub
علاقه مندی ها (Bookmarks)