ممكن شرح كود

[محمد الورفلي1]

السلام عيكم

 

ممكن شرح مفصل لهذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Column = 1 Or Target.Column > 4 Then GoTo 1
lr = Cells(Rows.Count, 2).End(xlUp).Row
If Range("B" & lr) = "" Or Range("C" & lr) = "" _
Or Range("D" & lr) = "" Then GoTo 1

    Range("b18:d" & lr).Select
    Selection.Sort Key1:=Range("b18"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
'''''''''''''''''''''''''''''''''''''''''''''''
       With Range("b20:b" & lr + 3)
      .HorizontalAlignment = xlCenter
      .VerticalAlignment = xlCenter
      .Font.Size = 18
      .Font.Bold = True
      End With
     
''''''''''''''''''''''''''''''''''''''''''''
      With Range("b20:b" & lr + 3)
      .HorizontalAlignment = xlCenter
      .VerticalAlignment = xlCenter
      .Font.Size = 18
      .Font.Bold = True
      End With
      Range("b" & lr + 5).Select
1:
Application.ScreenUpdating = True
End Sub

[الصـقر]

الاخ محمد الخازمى

الافضل ارسال ملف حتى يتثنى شرح الكود

[محمد الورفلي1]

استاذ حسام شئكرا علي الاهتمام

الكود للاستاذ سليم

 

ولكثر مشاغل الاستاذ سليم ولااريد ان اتعبه معي كثيراً الشكر موصوله

 

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

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

 

 

قوائم.rar

تم تعديل سبتمبر 21, 2014 بواسطه محمد الخازمي