asad1391

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

السلام عليكم ورحمة الله وبركاته الاخ / محمد هشام احتاج الكود الذي يعمل بجمع الشتات كما تفضلت والمعذرة على الازعاج

نسخها مع التنسيقات

الله يحفظكم ويبارك فيكم نسخها مع التنسيقات والله ولي التوفيق

السلام عليكم ورحمة الله وبركاته جمع الشيتات في شيت واحد ولكن روس الشيتات تختلف من شيت الى شيت ولك وافر الشكر والتقدير لك جميعا المصنف3.xlsx

اشكر الجميع علي حسن التعامل وجميل التعاون

احسن الله اليكم وبارك الله فيك يابو ايمان وهذا هو المطلب تماما وجزاكم الله خيرا

جزاكم الله خيرا ونفع بكم الاسلام والمسلمين وحفظكم الله جميعا

pdf حفظكم الله

حفظ كل ما في القائمة المنسدلة كما في كود الطباعة بيات توزيع المواد الغذائية.xlsm

اشكرك ابو ايمان على جهدك ولكن لم يعمل الكود معي كما ارغب في حفظ كل ما في القائمة المنسدلة

السلام عليكم ورحمة الله وبركاته وبها نبدأ Sub PrintOut() For i = 1 To [INDIRECT(B3)].Rows.Count [d3] = Application.Index([INDIRECT(B3)], i) ActiveWindow.SelectedSheets.PrintOut Copies:=1 Next [d3] = Application.Index([INDIRECT(B3)], 1) End Sub هل من الممكن تحويل هذا الكود الذي في الاعلا من طباعة الملفات في القائمة المنسدلة الى حفظها كلها ثم طباعتها ولكم الشكر والتقدير

السلام علكم ورحمة الله وبركاته عند الطباعة او المعاينة من اليوزر فوم مباشرة يختفي اليوزر ولا تظهر المعاينة فما حل هذه المشكة علما أنه عند التجربة والاكسل مفتوح يعمل تمام والله يحفظكم ويرعاكم