اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by محمد هشام.,

الردود الموصى بها

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

اعرض مشكلتى فى هذا الشيت يوجد كود للخبير الاستاذ عبدالله بقشير للانشاء عدد من الجداول بناء على الخلية 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

  • Like 3
رابط هذا التعليق
شارك

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

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information