عبدالرحمن ابو الحسن قام بنشر نوفمبر 4, 2021 مشاركة قام بنشر نوفمبر 4, 2021 السلام عليكم اساتذتي الافاضل في الملف المرفق جدول يحتوي على اسماء وارقام وضعت كود لحدف نطاق من B1 لغاية O1 بناً على تغير يحدث في A1 (عند حذف الاسم او تغييره) لكن الكود يعمل على الصف الاول فقط ارغب بتعميم الكود ليشمل الجدول بنفس الشرط فيحذف من B2 لغاية O2 بناً على تغير في A2 , وهكذا .... جزاكم الله خيرا ولكم مني فائق الشكر والتقدير كود حذف نطاق في صف بناً على تغير حصل في خلية في نفس الصف.xlsm رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر نوفمبر 4, 2021 مشاركة قام بنشر نوفمبر 4, 2021 (معدل) جرب هذا التعديل 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 بواسطه عبدالفتاح في بي اكسيل حدف مدى 1 رابط هذا التعليق شارك More sharing options...
abdulrahman1979 قام بنشر نوفمبر 4, 2021 مشاركة قام بنشر نوفمبر 4, 2021 جدا ممتن لك استاذ لتجاوبك معي جربت الكود يحذف كامل الصف هذا الشي لا يخدم في الملف الذي اقوم بالعمل علية المطلوب.. عند حذف اسم طالب تحذف الدرجات من b1 لغاية o1....... وعند الانتقال الى اي صف وتغيير الاسم او حذفه يحذف النطاق المحدد لنفس الصف وعند رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر نوفمبر 4, 2021 مشاركة قام بنشر نوفمبر 4, 2021 تم تعديل الكود 1 رابط هذا التعليق شارك More sharing options...
عبدالرحمن ابو الحسن قام بنشر نوفمبر 5, 2021 الكاتب مشاركة قام بنشر نوفمبر 5, 2021 جزاك الله خير استاذ عبدالفتاح الكود عمل لكن ليس على الصف نفسه الذي يجرى به التعديل رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر نوفمبر 6, 2021 أفضل إجابة مشاركة قام بنشر نوفمبر 6, 2021 حسب فهمي للمطلوب يتم تعديل الكود الأصلي إلى 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 إن شاء اللّه يكون هو المطلوب بالتوفيق 2 1 رابط هذا التعليق شارك More sharing options...
عبدالرحمن ابو الحسن قام بنشر نوفمبر 6, 2021 الكاتب مشاركة قام بنشر نوفمبر 6, 2021 جداً ممتن استاذ محمد صالح جزاك الله عنا كل خير الكود عمل بشكل المطلوب 1 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر نوفمبر 6, 2021 مشاركة قام بنشر نوفمبر 6, 2021 الشكر لله الذي وفقنا لهذا 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان