طباعه الفصول للمحترم احمد كامل

[ناصر سعيد]

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

هذا ملف لعمل الفصول المدرسيه بالمصفوفات

وبه تحفه الطباعه للمحترم احمد كامل

جزى الله كل من كانت له بصمه في هذا الملف

 

فصول محمود الشريف2.rar

=================

Sub طباعة_القوائم()
  Range("L1").Select
ActiveCell.FormulaR1C1 = "1"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Do
ActiveCell = ActiveCell + 1
Listts
ActiveWindow.SelectedSheets.PrintOut
Loop While ActiveCell.Value <= Range("U2").Value
Range("b1").Select
End Sub

 

***************

طريقه العمل

اضغط على زر القيم الفريده

ثم اختر رقم الفصل المراد استخراج قائمته

ثم اضغط طباعه

ستجد ان الكود يطبع جميع قوائم الفصول  .. وهي ميزه

[ناصر سعيد]

 

[ناصر سعيد]

    Dim lr As Long

    lr = Range("E" & Rows.Count).End(xlUp).Row

    For Each Cell In ActiveSheet.Range("E7:E" & lr)

        Cell.Value = Application.WorksheetFunction.Trim(Cell.Value)

    Next

    Range("B7:S" & lr).Sort Key1:=Range("F7:F" & lr), Order1:=2, Key2:=Range("E7:E" & lr), Order2:=1, Header:=xlNo

End Sub

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

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

وهي ازاله المسافات من بين الاسماء

مما تعطي فرزا دقيقا

للمحترم الغالي ياسر العربي