المساعدة فى ضبط شيت الشهادات

[محمد الحسينى]

ارجو من خبراء المنتدى المساعدة فى وضع رقم الجلوس فى شيت الشهادات حسب التسلسل لاننى اقوم بوضعه يدويا 

حديد مشغول.rar

[ابراهيم الحداد]

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

انسخ هذا الكود و الصقه فى موديول وخصص له زر

Sub NumeicData()
Application.ScreenUpdating = False
For i = 4 To Range("N" & Rows.Count).End(xlUp).Row
If Cells(i, "B") = "الإســـــــــم /" Then
p = p + 1
Cells(i, "Q") = 1000 + p
Else
Cells(i, "Q") = ""
End If
Next
Application.ScreenUpdating = True
End Sub

 

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

السلام عليكم

تم ترك 3 شهادات فقط في صفحة واحدة وإضافة كودين أحدهما يعمل بخاصية (من ... إلى ....) للطباعة الجزئية والآخر للطباعة الكلية (كل الشهاداة)... أرجو أن تفي الغرض المطلوب...

بن علية حاجي

حديد مشغول.rar

[ناصر سعيد]

ربنا يحفظكما ويرعاكما يارب

استاذ زيزو والاستاذ بن عليه

حلول ولا اروع

Sub PRINT_FromTo()
  For I = Cells(3, "U") To Cells(3, "V") Step 3
    Cells(4, "Q") = I
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
  Next
End Sub

==========

Sub PRINT_ALL()
  For I = [MinV] To [MaxV] Step 3
    Cells(4, "Q") = I
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
  Next
End Sub

=========

=SMALL(شيت!$A:$A;1+COUNTIF(شيت!$A:$A;0))

كرما منك شرح هذا السطر 

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

السلام عليكم

تقصد شرح معادلة التسمية MinV والتي هي:

=SMALL(شيت!$A:$A;1+COUNTIF(شيت!$A:$A;0))

هذه المعادلة تحدد أصغر قيمة في العمود A من شيت "شيت" غير المعدومة (بمعنى آخر القيمة الأكبر مباشرة من قيمة الصفر المتكررة في هذا العمود)...

بن علية حاجي

[ناصر سعيد]

22 ساعات مضت, ناصر سعيد said:

Sub PRINT_FromTo()   For I = Cells(3, "U") To Cells(3, "V") Step 3     Cells(4, "Q") = I     ActiveWindow.SelectedSheets.PrintOut Copies:=1   Next End Sub

اخي المحترم بن عليه

يحفظك الله ويرعاك

هل يمكن ان تقف عمليه الطبع الى الرقم الاخير

والشهادات الباقيه في الصفحه تظهر فارغه

===

بمعنى لو اعطينا ارقام الجلوس من 5 الى 8

في هذه الحاله ستظهر 4 شهادات

والصفحه بها 3 شهادات

اذن :

المطلوب في الصفحه التانيه تظهر شهاده واحده مملوءه ( تكمله امر الطبع )

والشهادتين الاخيرتين يظهرا فارغتان

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

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

لاحظت أن "أرقام الجلوس" ليست بالتسلسل بالأسفل لذا قمت بتغيير عمل الأكواد وعوض أن تكون مرتبطة بأرقام الجلوس جعلتها مرتبطة بـ "الرقم التسلسلي للطلبة" من خلال العمود A المضاف في شيت "شيت" مع التعديل على المعادلات والأكواد مع إضافة الشرط (الطلب) الأخير لأخي أبو أحمد حتى تتوقف الطباعة عند آخر رقم والشهادات الباقية في الصفحة تظهر فارغة... أرجو أن تفي هذه التعديلات حق المطلوب...

بن علية حاجي

حديد مشغول.rar

[ناصر سعيد]

يحفظك الله ويرعاك استاذ بن عليه

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

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

تم التعديل على الأكواد وإضافة أكواد أخرى خاصة بالكائنات Shapes (لإخفائها أو لإظهارها) وإضافة تنسيقات شرطية أخرى على الشهادات... والهدف من كل هذا هو طباعة الشهادات المعنية بالطباعة فقط والموجودة في شيت البيانات بمعنى أنه: في الطباعة الجزئية لو أردت أن تطبع عدد الشهادات يختلف عن مضاعفات 3 (1 أو 2 أو 4 أو 5 أو غيرها) فتقوم الأكواد بطباعة ما تريد طباعته فقط مثلا : لو أردت طباعة 4 شهادات فتُطبع صفحتان الأولى فيها 3 شهادات والصفحة الثانية فيها شهادة واحدة فقط وباقي الصفحة بيضاء... والشيء نفسه بالنسبة للطباعة الكلية يمكن أن تحوي الصفحة الأخيرة إما شهادة واحدة فقط وإما شهادتين فقط وإما ثلاث شهادات... أرجو أن تفيدكم هذه التعديلات...

بن علية حاجي 

حديد مشغول.rar