مطلوب تكملة البرنامج(اريد مساعدة خبراء اكسيل بالمنتدى)

[منير برهم]

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

اخواني الكرام ارجو من اصحاب الخبرة اكمال .......

 

 

 

 

وجزاكم الله خيرا
 

mnn.rar

[الـعيدروس]

السلام عليكم

 

أولاً عدل إسم الصف في القائمة في ورقة "cc" حسب ماهو في عمود "B" ورقة "aaa"

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

 

لا اعلم كم هيا درجة الرسوب 

ولاكن حط معطياتك في السطر التالي من الكود

على اساس ماهو اصغر من القيمة يعتبر راسب

'***********
' درجة الرسوب
Drg = 10
'***********

وهذا الكود 

Dim Ar() As Variant
Public Sub Prn_a()
Dim Lnc
Dim Mh, Sn, Drg
With ورقة1
'***********
' درجة الرسوب
Drg = 10
'***********
Mh = [IV4]
Sn = [IV7]
On Error Resume Next
Lnc = Application.Match(Mh, .[F1:O1], 0)
Cl = Lnc + 5
Lr = .Cells(.Rows.Count, 5).End(xlUp).Row
For r = 2 To Lr
If .Cells(r, 2) = Sn Then
 If .Cells(r, Cl) < Drg Then
  Rr = Rr + 1
  ReDim Preserve Ar(1 To Rr)
  Ar(Rr) = .Cells(r, 2).Row
 End If
End If
Next
On Error GoTo 0
If Rr Then Prn
End With
End Sub
Private Function Prn()
For ii = LBound(Ar) To UBound(Ar)
 With ورقة1.Range("B" & Ar(ii))
    
    [D8] = .Offset(0, 0)
    [D7] = .Offset(0, 3)
    [F8] = .Offset(0, 1)
    ActiveSheet.PageSetup.PrintArea = [Print_Area].Address
    ActiveSheet.PrintPreview
    
 End With
Next
Erase Ar
End Function

حسب فهمي للطلب تريد جلب الاسماء التي توافي الشروط للطباعه 

 

تحياتي

[منير برهم]

اخي الكريم  الـعيدروس

درجة الرسوب اقل من 10

انا اريدعند انتقاءالصف من القائمة يظهر شهادات جميع رسوب ثامن1

ثم بالمثل ثامن2.................الخ

حسب الشهر الذي يتم اختياره 

معذرة لم استطع وضع الكود

ارجو ان يكون واضح

تم تعديل أكتوبر 10, 2013 بواسطه منير برهم

[الـعيدروس]

السلام عليكم

 

المرفق الاول شرح 

المرفق الاخر الملف وبه الكود

 

تحياتي

شرح.rar

mnn_A.rar

[منير برهم]

                                           أخي الكريم

هل يمكن عمل ذلك بالمعادلات بدل  الكود بحيث عند اختيار الشهر من قائمة

مثل سبتمبر يكون هناك قائمة أخري يوجد فيها الفصول مثل  ثامن1عند اختياره يأتي أسماء رسوب الفصل  ثامن1 حتى ترحل بياناته في النموذج

[منير برهم]

بسم الله الرَّحْمَنِ الرَّحِيمِ‎

[منير برهم]

هل يمكن عمل ذلك بالمعادلات بدل  الكود بحيث عند اختيار الشهر من قائمة

مثل سبتمبر يكون هناك قائمة أخري يوجد فيها الفصول مثل  ثامن1عند اختياره يأتي أسماء رسوب الفصل  ثامن1 حتى ترحل بياناته في النموذج