تفريغ محتوى خلية

[خالد حرب]

السلام عليكم 

كيف يمكن تفريغ محتوى الخلية E4 بمجرد الكتابة في الخلية E5 و العكس ؟

 

[مهند محسن]

وعليكم السلام وكيف تنتظر المساعدة من أحد على الرغم اننا نبهنا كثيراً جداً على هذا الأمر ؟!!!!!!!!!!!!!

عليك برفع ملف مدعوم بشرح كافى عن المطلوب فلا يمكن العمل على التخمين وتجنباً لعدم اهدار وقت الأساتذة دون جدوى أو أهمية 

[سليم حاصبيا]

كان يجب الأخذ بنصيحة الاستاذ مهند

(ولكن حيث ان السؤال محدد ولا يستهلك وقتاً لارفاق مثال نموذج)

جرب هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("E4:E5")) Is Nothing _
  And Target.Count = 1 Then
  With Target
   Select Case True
     Case .Row = 4
       .Offset(1) = vbNullString
     Case .Row = 5
       .Offset(-1) = vbNullString
     End Select
   End With
End If
Application.EnableEvents = True

End Sub

الملف مرفق

On_OFF.xlsm

[خالد حرب]

الله يرحم ولديك استاذ سليم

في ميزان حسانتك ان شاء الله

اللهم بارك لك في علمك و اهلك