فوزى فوزى قام بنشر يوليو 7 مشاركة قام بنشر يوليو 7 السلام عليكم ورحمة الله وبركاته استاذة المنتدى وخبراءه الكرام دعونى اشيد بمجهود الاستاذ محمد هشام حفظه الله ورعاه فى مساعدة اعضاء المنتدى من حلول جزاه الله خيرا على مشاركته الفعاله ومجهوده الرائع وهو بمثابة دينمو المنتدى اعرض مشكلتى فى هذا الشيت يوجد كود للخبير الاستاذ عبدالله بقشير للانشاء عدد من الجداول بناء على الخلية H1 اريد كود ثانى يحذف الجداول على حسب العدد المدخل فى الخلية H1 حاليا فى الشيت خمس جداول اسفل بعضهم البعض عندما اكتب 2 فى الخلية H1 يحذف ثلاثة جداول ويبقى على اثنين فقط جعلكم الله عونا لنا وللامثالنا وشكرا حذف الجداول.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر يوليو 8 أفضل إجابة مشاركة قام بنشر يوليو 8 وعليكم السلام ورحمة الله تعالى وبركاته اولا اشكرك استاد فوزي على هده الكلمات الطيبة هدا شرف وفخر انوله منك ووفقنا الله واياكم لما يحب ويرضى تفضل اخي جرب هدا 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 3 رابط هذا التعليق شارك More sharing options...
فوزى فوزى قام بنشر يوليو 8 الكاتب مشاركة قام بنشر يوليو 8 السلام عليكم ورحمة الله استاذ محمد انت تستحق الاشادة باعمالك واخلاقك واكثر ، وانزلوا الناس منازلهم فمكانك فوق رؤسنا استاذنا الفاضل الحمد لله هذا هو المطلوب ادامكم الله فى طاعته ووفقك لما يحب ويرضى فانتا فخر لنا وللعرب اجمعين 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.