(تمت الاجابة) تعديل كود طباعة الكل

[الذيب 2015]

استاذ عبدالله المجرب

الله يعينك انت والاساتذة الكرام

طبعا هذا العمل

هذا العمل من عملك وانجازك

وضعت امر طباعة للكل لكن لايتناسب مع الكود اللي عملته يظهر لي تظليل اصفر

لا أعرف السبب

لاني ضعيف بعمل الكود

وانا أستفدت كثير من الدورة اللي عاملينها وأنا من أقوى المتابعين

وشكرا

المهم شرح المطلوب بالمرفق

PRINT ALL.zip

[الـعيدروس]

السلام عليكم

ماهو المدى المراد طباعتة في كل الاوراق

[الذيب 2015]

شكرا أخوي aidroos

على مرورك

المدى هو في ورقة التحضير اليومي من b9 الى b600

الخلية b7 في ورقة كرت التحضير هي عبارة عن قائمة منسدلة عن المدى المذكور أعلاه

المطلوب طباعة جميع الارقام الموجودة مرة واحدة في ورقة التحضير اليومي أي في القائمة المنسدلة في الخلية b7 في ورقة كرت التحضير

على أن يتم تحديث البيانات تلقائيا

لان كرت التحضير يأخذ البيانات من التحضير اليومي

إن شاء الله يكون وصل المطلوب

وشكرا

تم تعديل ديسمبر 8, 2011 بواسطه ذيب اليمن

[الذيب 2015]

للرفع

[الذيب 2015]

السلام عليكم ورحمة الله وبركاته

[الذيب 2015]

للرفع

[الذيب 2015]

أنا آسف لوضعي الموضوع مره ثانية ولكن لم أجد ردا

استاذ عبدالله المجرب

طبعا هذا الكود من عملك

ولكن أطمع بإضافة أمر طباعة للكل

وشكرا

[عبدالله المجرب]

اخي ذيب اليمن

سيم دمج الموضوعين

===

لا تفكر اني لم احاول

امر الطباعة سهل ولكن المشكلة في التوزيع (التحديث قبل الطباعة)

بالاضافة اني منشغل هذه الايام (تعرف نهاية العام)

[الذيب 2015]

ليس لدي أي شك

جزاك الله خيرا والله يعينك

[الـعيدروس]

===== >>> لم يستوعب المطلوب ماهو التحديث

والقائمة المنسدلة الذي فيها أرقام صفحات أم ماذا

العذر والسموحه فهمي بطيئ

[الذيب 2015]

عزيزي aidroos

القائمة المنسدلة هي الارقام الموجودة في ورقة التحضير اليومي في العمود B

فعند اختيار الرقم في الخلية B7 في ورقة كرت التحضير

تؤخذ البيانات من ورقة التحضير اليومي

فلو تتكرم لو تنظر الى الملف المرفق في المشاركة السابقة

واي استفسار أنا موجود

وشكرا على مرورك

[الذيب 2015]

للرفع

[الذيب 2015]

للرفع

[احمد فضيله]

السلام عليكم و رحمة الله و بركاته

بعد اذن كل الاخوة الاحباب

الاستاذ الفاضل / ذيب اليمن

عذراً يا اخي الفاضل

ارجو من حضرتك تحديد الورقة و المدى المطلوب طباعتهم و توضيح المطلوب بصورة اكبر

والله المستعان

و السلام عليكم و رحمة الله و بركاته

[الذيب 2015]

السلام عليكم ورحمة الله وبركاته

أنا شرحت الموضوع ثالث مره وفكرة المطلوب بسيطة جدا

الطباعة هي ورقة (كرت التحضير) فقط

ولكن

بشرط تحديث البيانات تلقائيا

أي بيانات

وهي كالاتي

1 - يتم جلب البيانات من ورقة التحضير اليومي وهي (دالة vlookup ولكن عن طريق الكود وهي من عمل الاستاذ الكبير ابو احمد )الى كرت التحضير

2- التحديث التلقائي عن طريق الخلية ( b7 )ورقة كرت التحضير عد اختيار رقم يتم جلب البيانات من ورقة التحضير اليومي

3-الارقام الموجودة في الخلية (b7) هي الارقام الموجودة في المدى في ورقة التحضير اليومي في العمود B

فأرجو ايجاد حل من الاساتذة الكرام

وشكرا لــــ الاخوة الكرام على المرور

وعلى سعة الصدر

وآسف على الاطالة

PRINT111.zip

[الـعيدروس]

السلام عليكم

اضن هكذا طلبك

ولاكن بشرط أن تكون الأرقام متسلسله لايقطعها اي تسلسل

بمعنى ( 1-2-3-4-5) وهكذا

اطلع على المرفق غيرت التسلسل حق الرقم المالي الذي في ورقة البيانات

والتحضير اليومي الذي اضنه بهذا الوضع يتماشى مع طلبك

اتمنى أن يكون المطلوب

جرب واخبرني النتيجه

PRINT222.rar

[الذيب 2015]

مشكور اخوي على الرد السريع

فكرة الموضوع صحيحة هي

ولكن 1- اريد البيانات تكون نفسها

لان الارقام المالية هي ارقام موظفين لا يمكن تغييرها

2-البيانات لا تتحدث تلقائيا مجرد الرقم اللي في الخلية C4

وأي استفسار أنا موجود

[الـعيدروس]

طلبك زر للكل هل هذا صحيح

هل جربت وماهي النتائج

إن كان ولابد تريد استخدام الرقم المالي

ضيف عمود مساعد في التحضير اليومي

واعمله كـ مسلسل

مثلا B العمود المساعد

C الرقم المالي

[الـعيدروس]

عفواً الكود بيكون هكذا

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

[الذيب 2015]

عفوا يااستاذ alidroos

الرقم المالي في ورقة التحضير اليومي يوجد بيانات في الخلايا ( F9:AJ600 )

فعند اختيارالرقم في ورقة كرت التحضير تجلب البيانات الى ورقة كرت التحضير بدالة VLOOKUPعن طريق الكود

كلا حسب التاريخ

هذه البيانات لا تتحدث تلقائيا جرب

[الذيب 2015]

استاذ عبدالله المجرب

نعرف عن انشغالك الكبير الله يعينك

فنحن اشتقنا لـــ لمساتك

[الذيب 2015]

للرفع

[بن علية حاجي]

السلام عليكم ورحمة الله

أخي الكريم، قم تم إضافة معادلة في العمود الأول (العمود 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

[الـعيدروس]

السلام عليكم

كلك أفكار أستاذ بن عليه

بارك الله فيك وزادك من علمة وفضله

تقبل مروري

[عبدالله المجرب]

السلام عليكم

بعد اذن المعلم الصامت ذو المكانة العالية بن عليه

جرب هذا الكود

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