الذيب 2015 قام بنشر ديسمبر 7, 2011 مشاركة قام بنشر ديسمبر 7, 2011 استاذ عبدالله المجرب الله يعينك انت والاساتذة الكرام طبعا هذا العمل هذا العمل من عملك وانجازك وضعت امر طباعة للكل لكن لايتناسب مع الكود اللي عملته يظهر لي تظليل اصفر لا أعرف السبب لاني ضعيف بعمل الكود وانا أستفدت كثير من الدورة اللي عاملينها وأنا من أقوى المتابعين وشكرا المهم شرح المطلوب بالمرفق PRINT ALL.zip رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر ديسمبر 7, 2011 مشاركة قام بنشر ديسمبر 7, 2011 السلام عليكم ماهو المدى المراد طباعتة في كل الاوراق رابط هذا التعليق شارك More sharing options...
الذيب 2015 قام بنشر ديسمبر 8, 2011 الكاتب مشاركة قام بنشر ديسمبر 8, 2011 (معدل) شكرا أخوي aidroos على مرورك المدى هو في ورقة التحضير اليومي من b9 الى b600 الخلية b7 في ورقة كرت التحضير هي عبارة عن قائمة منسدلة عن المدى المذكور أعلاه المطلوب طباعة جميع الارقام الموجودة مرة واحدة في ورقة التحضير اليومي أي في القائمة المنسدلة في الخلية b7 في ورقة كرت التحضير على أن يتم تحديث البيانات تلقائيا لان كرت التحضير يأخذ البيانات من التحضير اليومي إن شاء الله يكون وصل المطلوب وشكرا تم تعديل ديسمبر 8, 2011 بواسطه ذيب اليمن رابط هذا التعليق شارك More sharing options...
الذيب 2015 قام بنشر ديسمبر 8, 2011 الكاتب مشاركة قام بنشر ديسمبر 8, 2011 للرفع رابط هذا التعليق شارك More sharing options...
الذيب 2015 قام بنشر ديسمبر 9, 2011 الكاتب مشاركة قام بنشر ديسمبر 9, 2011 السلام عليكم ورحمة الله وبركاته رابط هذا التعليق شارك More sharing options...
الذيب 2015 قام بنشر ديسمبر 10, 2011 الكاتب مشاركة قام بنشر ديسمبر 10, 2011 للرفع رابط هذا التعليق شارك More sharing options...
الذيب 2015 قام بنشر ديسمبر 10, 2011 الكاتب مشاركة قام بنشر ديسمبر 10, 2011 أنا آسف لوضعي الموضوع مره ثانية ولكن لم أجد ردا استاذ عبدالله المجرب طبعا هذا الكود من عملك ولكن أطمع بإضافة أمر طباعة للكل وشكرا رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر ديسمبر 10, 2011 مشاركة قام بنشر ديسمبر 10, 2011 اخي ذيب اليمن سيم دمج الموضوعين === لا تفكر اني لم احاول امر الطباعة سهل ولكن المشكلة في التوزيع (التحديث قبل الطباعة) بالاضافة اني منشغل هذه الايام (تعرف نهاية العام) رابط هذا التعليق شارك More sharing options...
الذيب 2015 قام بنشر ديسمبر 10, 2011 الكاتب مشاركة قام بنشر ديسمبر 10, 2011 ليس لدي أي شك جزاك الله خيرا والله يعينك رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر ديسمبر 10, 2011 مشاركة قام بنشر ديسمبر 10, 2011 ===== >>> لم يستوعب المطلوب ماهو التحديث والقائمة المنسدلة الذي فيها أرقام صفحات أم ماذا العذر والسموحه فهمي بطيئ رابط هذا التعليق شارك More sharing options...
الذيب 2015 قام بنشر ديسمبر 10, 2011 الكاتب مشاركة قام بنشر ديسمبر 10, 2011 عزيزي aidroos القائمة المنسدلة هي الارقام الموجودة في ورقة التحضير اليومي في العمود B فعند اختيار الرقم في الخلية B7 في ورقة كرت التحضير تؤخذ البيانات من ورقة التحضير اليومي فلو تتكرم لو تنظر الى الملف المرفق في المشاركة السابقة واي استفسار أنا موجود وشكرا على مرورك رابط هذا التعليق شارك More sharing options...
الذيب 2015 قام بنشر ديسمبر 11, 2011 الكاتب مشاركة قام بنشر ديسمبر 11, 2011 للرفع رابط هذا التعليق شارك More sharing options...
الذيب 2015 قام بنشر ديسمبر 11, 2011 الكاتب مشاركة قام بنشر ديسمبر 11, 2011 للرفع رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر ديسمبر 11, 2011 مشاركة قام بنشر ديسمبر 11, 2011 السلام عليكم و رحمة الله و بركاته بعد اذن كل الاخوة الاحباب الاستاذ الفاضل / ذيب اليمن عذراً يا اخي الفاضل ارجو من حضرتك تحديد الورقة و المدى المطلوب طباعتهم و توضيح المطلوب بصورة اكبر والله المستعان و السلام عليكم و رحمة الله و بركاته رابط هذا التعليق شارك More sharing options...
الذيب 2015 قام بنشر ديسمبر 12, 2011 الكاتب مشاركة قام بنشر ديسمبر 12, 2011 السلام عليكم ورحمة الله وبركاته أنا شرحت الموضوع ثالث مره وفكرة المطلوب بسيطة جدا الطباعة هي ورقة (كرت التحضير) فقط ولكن بشرط تحديث البيانات تلقائيا أي بيانات وهي كالاتي 1 - يتم جلب البيانات من ورقة التحضير اليومي وهي (دالة vlookup ولكن عن طريق الكود وهي من عمل الاستاذ الكبير ابو احمد )الى كرت التحضير 2- التحديث التلقائي عن طريق الخلية ( b7 )ورقة كرت التحضير عد اختيار رقم يتم جلب البيانات من ورقة التحضير اليومي 3-الارقام الموجودة في الخلية (b7) هي الارقام الموجودة في المدى في ورقة التحضير اليومي في العمود B فأرجو ايجاد حل من الاساتذة الكرام وشكرا لــــ الاخوة الكرام على المرور وعلى سعة الصدر وآسف على الاطالة PRINT111.zip رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر ديسمبر 12, 2011 مشاركة قام بنشر ديسمبر 12, 2011 السلام عليكم اضن هكذا طلبك ولاكن بشرط أن تكون الأرقام متسلسله لايقطعها اي تسلسل بمعنى ( 1-2-3-4-5) وهكذا اطلع على المرفق غيرت التسلسل حق الرقم المالي الذي في ورقة البيانات والتحضير اليومي الذي اضنه بهذا الوضع يتماشى مع طلبك اتمنى أن يكون المطلوب جرب واخبرني النتيجه PRINT222.rar رابط هذا التعليق شارك More sharing options...
الذيب 2015 قام بنشر ديسمبر 12, 2011 الكاتب مشاركة قام بنشر ديسمبر 12, 2011 مشكور اخوي على الرد السريع فكرة الموضوع صحيحة هي ولكن 1- اريد البيانات تكون نفسها لان الارقام المالية هي ارقام موظفين لا يمكن تغييرها 2-البيانات لا تتحدث تلقائيا مجرد الرقم اللي في الخلية C4 وأي استفسار أنا موجود رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر ديسمبر 12, 2011 مشاركة قام بنشر ديسمبر 12, 2011 طلبك زر للكل هل هذا صحيح هل جربت وماهي النتائج إن كان ولابد تريد استخدام الرقم المالي ضيف عمود مساعد في التحضير اليومي واعمله كـ مسلسل مثلا B العمود المساعد C الرقم المالي رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر ديسمبر 12, 2011 مشاركة قام بنشر ديسمبر 12, 2011 عفواً الكود بيكون هكذا Private Sub CommandButton1_Click() A = ورقة2.Range("B9").Value B = ورقة2.Range("B15000").End(xlUp).Value [A4].Value = B: [B4].Value = ورقة2.Range("B" & B).Value For C = Range("B4").Value To Range("A4").Value ComboBox1.Value = C Range("Print_Area").PrintOut Copies:=1 Next C End Sub رابط هذا التعليق شارك More sharing options...
الذيب 2015 قام بنشر ديسمبر 12, 2011 الكاتب مشاركة قام بنشر ديسمبر 12, 2011 عفوا يااستاذ alidroos الرقم المالي في ورقة التحضير اليومي يوجد بيانات في الخلايا ( F9:AJ600 ) فعند اختيارالرقم في ورقة كرت التحضير تجلب البيانات الى ورقة كرت التحضير بدالة VLOOKUPعن طريق الكود كلا حسب التاريخ هذه البيانات لا تتحدث تلقائيا جرب رابط هذا التعليق شارك More sharing options...
الذيب 2015 قام بنشر ديسمبر 12, 2011 الكاتب مشاركة قام بنشر ديسمبر 12, 2011 استاذ عبدالله المجرب نعرف عن انشغالك الكبير الله يعينك فنحن اشتقنا لـــ لمساتك رابط هذا التعليق شارك More sharing options...
الذيب 2015 قام بنشر ديسمبر 15, 2011 الكاتب مشاركة قام بنشر ديسمبر 15, 2011 للرفع رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر ديسمبر 15, 2011 مشاركة قام بنشر ديسمبر 15, 2011 السلام عليكم ورحمة الله أخي الكريم، قم تم إضافة معادلة في العمود الأول (العمود A) من الورقة "التحضير اليومي" للترقيم التسلسلي التلقائي (ضروري لمعرفة عدد البيانات الفعلية) وباستعمال الكود التالي الذي يقوم بتغيير الأرقام في القائمة المنسدلة بالخلية B7 مع التحديث ثم الطباعة: Sub PRINT_ALL() Dim I As Integer Set xx = Application.WorksheetFunction mm = xx.Max(Sheets("التحضير اليومي").Range("A:A")) For I = 1 To mm If I <= mm Then [B7] = xx.Index(Sheets("التحضير اليومي").Range("B:B"), xx.Match(I, Sheets("التحضير اليومي").Range("A:A"), 0)) ActiveWindow.SelectedSheets.PrintOut Copies:=1 End If Next I End Sub أتمنى أن يكون في الملف المرفق كل المطلوب... أخوك بن علية PRINT111.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر ديسمبر 15, 2011 مشاركة قام بنشر ديسمبر 15, 2011 السلام عليكم كلك أفكار أستاذ بن عليه بارك الله فيك وزادك من علمة وفضله تقبل مروري رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر ديسمبر 15, 2011 مشاركة قام بنشر ديسمبر 15, 2011 السلام عليكم بعد اذن المعلم الصامت ذو المكانة العالية بن عليه جرب هذا الكود Sub PRINT_ALL() Dim I As Integer For I = 9 To Sheets("التحضير اليومي").Range("b" & Rows.Count).End(xlUp).Row w = Sheets("التحضير اليومي").Cells(I, 2).Value [B7] = w ActiveWindow.SelectedSheets.PrintOut Copies:=1 Next I End Sub رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان