الحل من شات جي بي تي
Sub PrintSheets1To11()
Dim i As Integer
For i = 1 To 11
On Error Resume Next ' لو فيه شيت مش موجود برقم معين يتخطاه
Sheets(CStr(i)).PrintOut
On Error GoTo 0
Next i
End Sub
بارك الله فيكم اخى الحبيب
كل ما احتاجه فقط هو تصفية الجدول بمجر الكتابة في الخلايا الموجوده اعلى الجدول دون اى امامر اخرى تصفية الجدول فقط لكى يتم ادخال البينات فى الصفووف التى تمت فترتها
السلام عليكم
فى الملف المرفق شيت بيانات باسم DATA 2
وشيت اخر باسم حصر محصول
ارغب فى استعداء البينات من الشيت الرئيسي الى الشيت الثانى حسب اسم الحصول
ويكون الصحر يكون على الاسماء التى لها حصر فى نفيس المحصول فقط --
بارك الله فيكم
للرفع.xlsx