طلب كود حذف بيانات الجدول

[فريدة العصر]

السلام عليكم 

لدى جدول بيانات به عدد كبير من الصفوف وهو عدد متغير قابل للحذف والإضافة وبه معادلات ونطاقه A1 :T  وأريد كود يقوم بتصفير جميع بيانات الجدول وحذف الصفوف مع الاحتفاظ بالمعادلات  بحيث يسمح عند الادخال من جديد عن طريق الفورم بالتسجيل فى أول صف وهو الخليةA2  حيث اننى عند تجربة تسجيل كود الحذف يبدأ عند التسجيل يتخطى الصف الاول وكأنه ممتلئ بالبيانات وشكرا لحضراتكم على استجابتكم المتوقعة

كود تصفير الجدول.xlsb

[ابراهيم الحداد]

السلام عليكم ورحمة الله

استخدم هذا الكود

Sub ClearData()
Dim ws As Worksheet, Lr As Long
Set ws = Sheets("ورقة2")
Lr = ws.Range("B" & Rows.Count).End(3).Row
ws.Range("B2:C" & Lr, "E2:E" & Lr).ClearContents
ws.Range("J2:K" & Lr, "N2:T" & Lr).ClearContents
End Sub

 

تم تعديل يناير 21, 2021 بواسطه ابراهيم الحداد

[فريدة العصر]

استاذى الفاضل 

أعتذر عن تأخرى فى الاطلاع على رد حضرتك بسبب تواجد بالعمل 

بس حضرتك الكود يمسح محتويات خلايا الادخال فى الجدول ولا يحذف الصفوف وعند الادخال من جديد يتم التسجيل بالصف 102 معتبرالصفوف السابقة بها بيانات ربما لوجود معادلات بها وأنا اريد حذف الصفوف والبدء من الصف الأول واكرر اعتذار مرة أخرى وربنا يبارك فى حضرتك 

 

[ابراهيم الحداد]

السلام عليكم ورحمة الله

سبب المشكلة لديك بالملف هو ان تسطير الجدول بخاصية الجداول الجاهزة 

و لابد من التخلص منها و اذا اردت ذلك فعليك بالخطوات الاتية :

1 - تحديد اى خلية بالجدول و لتكن الخلية "A2"

سيظهر لك تبويب جديد يسمى "Design"

2 - اضغط على العبارة الاتية "Convert To Range" ستظهر لك رسالة اضغط "Yes" و سينتهى الامر

3 - يمكنك جعل التنسيق من خلال التسيق الشرطى او بأى شكل آخر ان شئت

[فريدة العصر]

ربنا يبارك فى حضرتك 

وزادك علما وعملا وجميل الشكر وخالص التقدير لحضرتك