عند إضافة الفصول هل يمكن إضافة كل فصل ابجديا

[نورانور]

السلام عليكم

وكل عام وانتم بخير

من فضلكم  عند إضافة الفصول هل يمكن إضافة كل فصل ابجديا فى الملف المرفق

توزيع على الفصول م1.rar

[عبدالله باقشير]

السلام عليكم

غير كود الزر CommandButton1 بالكود ادناه

Private Sub CommandButton1_Click()
Dim MyPath As String
MyPath = MyNamebook
'================================================
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

Set MyDate = Application.Evaluate(My_Date)
With MyDate
    .Sort .Columns(2), xlAscending
End With
kh_Copy_Class
Kh_Start
FormulaToValue wsh
kh_PageSetup

With MyDate
    .Sort .Columns(1), xlAscending
End With
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
'================================================
If Dir(MyPath, vbDirectory) = vbNullString Then
    MyBook.SaveAs MyPath
    MsgBox " : تم اضافة الملف بالاسم التالي" _
    & vbCr & vbCr & MyPath, 524288, "الحمد لله"
End If
'================================================
wsh.PrintPreview
Set wsh = Nothing
Set MyBook = Nothing
Set MyDate = Nothing
End Sub

تم فيه فرز البيانات حسب عمود الاسم قبل تنفيذ الكود

ثم اعادة فرزها حسب التسلسل

قم اولا باضافة تسلسل للبيانات في العمود A قبل تشغيل الكود

 

المرفق 2003

توزيع على الفصول م1.rar

[نورانور]

 شكرا استاذنا عبد الله وجارى التطبيق وجزاك الله خيرا

الملف يعمل تماما بعد تحميل المرفق من سيادتكم

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

[منياوى]