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

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اللاخوة الكرام والاساتذه العظام

ارجو المساعده فى عمل كود يقوم بالترتيب من B5 TO F280

على اساس

1-     Contractor     العمود D   المفاح الاول

2-     JOP                العمود C   المفتاح الثانى

3-                   Name العمود E   المفتاح الثالث

 

ثم يمكن العوده الى ما قبل الترتيب على اساس NO.     العمود B

 

ولاكن من خلال زر واحد فقط  ترنيب – ما قبل الترتيب

كما فى كود اخفتاء الصفوف الفارغة واظهار الصفوف الفارغة ..... للاخ الفاضل الكبير بن علبه حاجى

 

 

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

TIST.rar

[احمدزمان]

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

 

اضغط زر فرز

Sub ماكرو1()
'
If Range("M1") = "1" Then
    Range("B6:F280").SORT Key1:=Range("C6"), Order1:=xlAscending, Key2:=Range("D6") _
        , Order2:=xlAscending, Key3:=Range("E6"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal
    Range("M1") = "2"
Else
Range("B6:F280").SORT Key1:=Range("B6"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("M1") = "1"
End If

End Sub

tist.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الحبيب احمد زمان جزاك الله كل الخير

سلمت يداك بكل خير

الامر تم بصوره ممتازه