اخي الحسامي اين تكمن المشكله عندما نقلت الكود لورقة عملي والموكونه من ورقة بإسم (الرئيسية) 13 ورقة بأسماء 100 و200 .... 1200 عندما ادخلت الكود الذي ارفقته حفظك الله بملف الاكسل عندمااضيف ورقة مثلا 1300 وادخل الامر لا يمسح وعند التعديل هذا
Sub delete1()
Application.ScreenUpdating = False
Dim c As Range
For i = 1 To 14
For Each c In Sheets(i).[e4:e43]
If c.Text >= Sheet4.[f2].Value And c.Text <= Sheet4.[f4].Value Then c.Offset(0, 1) = Empty
Next c
Next i
End Sub
Sub delete2()
Application.ScreenUpdating = False
Dim c As Range
For i = 1 To 14
For Each c In Sheets(i).[e4:e43]
If c = Sheet4.[f2].Value Then c.Offset(0, 1) = Empty
Next c
Next i
End Sub
قبل الورقة 1300 في الحذف اما لما ازيد العدد لمثلا 25 لايقبل ويظهر لي ارر في الامر مهي المشكله وكيف الحل ليقبل اي ورقة اضيفها مستقبلا
تقبل تحياتي ودمت بخير