كود لحذف نطاق معين في صف بنائاً على تغير في خلية في نفس الصف

[عبدالرحمن ابو الحسن]

السلام عليكم اساتذتي الافاضل في الملف المرفق جدول يحتوي على اسماء وارقام وضعت كود لحدف نطاق من B1 لغاية O1 بناً على تغير يحدث في A1 (عند حذف الاسم او تغييره) لكن الكود يعمل على الصف الاول فقط ارغب بتعميم الكود ليشمل الجدول بنفس الشرط فيحذف من B2 لغاية O2  بناً على تغير في A2 , وهكذا .... 

جزاكم الله خيرا ولكم مني فائق الشكر والتقدير

كود حذف نطاق في صف بناً على تغير حصل في خلية في نفس الصف.xlsm

[عبدالفتاح في بي اكسيل]

جرب هذا  التعديل 

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Columns(1)) Is Nothing Then
        Application.EnableEvents = False
        Target.Offset(, 1).Resize(, 14).Delete xlShiftUp
    End If
    Application.EnableEvents = True
End Sub

 

تم تعديل نوفمبر 4, 2021 بواسطه عبدالفتاح في بي اكسيل
حدف مدى

[abdulrahman1979]

جدا ممتن لك استاذ لتجاوبك معي 

جربت الكود يحذف كامل الصف هذا الشي لا يخدم في الملف الذي اقوم بالعمل علية 

المطلوب.. عند حذف اسم طالب تحذف الدرجات من b1 لغاية o1....... وعند الانتقال الى اي صف وتغيير الاسم او حذفه يحذف النطاق المحدد لنفس الصف

وعند

[عبدالفتاح في بي اكسيل]

تم تعديل الكود

[عبدالرحمن ابو الحسن]

جزاك الله خير استاذ عبدالفتاح الكود عمل لكن ليس على الصف نفسه الذي يجرى به التعديل

 

[أ / محمد صالح]

حسب فهمي للمطلوب 

يتم تعديل الكود الأصلي إلى

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Columns(1)) Is Nothing Then
        Range("b" & Target.Row & ":o" & Target.Row).ClearContents
    End If
End Sub

إن شاء اللّه يكون هو المطلوب 

بالتوفيق 

[عبدالرحمن ابو الحسن]

جداً ممتن استاذ محمد صالح جزاك الله عنا كل خير الكود عمل بشكل المطلوب 

[أ / محمد صالح]

الشكر لله الذي وفقنا لهذا