حذف الجداول بناء على شرط فى الخلية H1

[فوزى فوزى]

السلام عليكم ورحمة الله وبركاته استاذة المنتدى وخبراءه الكرام دعونى اشيد بمجهود الاستاذ محمد هشام حفظه الله ورعاه فى مساعدة اعضاء المنتدى من حلول جزاه الله خيرا على مشاركته الفعاله ومجهوده الرائع وهو بمثابة دينمو المنتدى

اعرض مشكلتى فى هذا الشيت يوجد كود للخبير الاستاذ عبدالله بقشير للانشاء عدد من الجداول بناء على الخلية H1 اريد كود ثانى يحذف الجداول على حسب العدد المدخل فى الخلية H1 حاليا فى الشيت خمس جداول اسفل بعضهم البعض عندما اكتب 2 فى الخلية H1  يحذف ثلاثة جداول ويبقى على اثنين فقط جعلكم الله عونا لنا وللامثالنا وشكرا

حذف الجداول.xlsm

[محمد هشام.]

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

 اولا اشكرك استاد فوزي على هده الكلمات الطيبة هدا شرف وفخر انوله منك  ووفقنا الله واياكم لما يحب ويرضى 

تفضل اخي جرب هدا 

Option Explicit
Sub Delete_tables()
Dim ws As Worksheet
Dim i As Long, lr As Long, r As Range, j As Long
Set ws = Worksheets("كشف الطباعة")
Application.ScreenUpdating = False
Set r = [H1]

With ws
lr = .Cells(.Rows.Count, "a").End(xlUp).Row
 j = r * 35
  For i = j To lr
    If Range("a" & i) > j Then
     .Range(ws.Cells(j, "A"), .Cells(lr, "E")).Clear
     End If
   Next i
End With

Application.ScreenUpdating = True
End Sub

 

حذف الجداول v2.xlsm

[فوزى فوزى]

السلام عليكم ورحمة الله استاذ محمد انت تستحق الاشادة باعمالك واخلاقك واكثر ، وانزلوا الناس منازلهم فمكانك فوق رؤسنا استاذنا الفاضل الحمد لله هذا هو المطلوب ادامكم الله فى طاعته ووفقك لما يحب ويرضى فانتا فخر لنا وللعرب اجمعين