أخى الفاضل /zoom10
جزاك الله كل خير على كلماتك الطيبة
بالنسبة لكود الفرز تم تعديله ليكون كالآتى :
Sub Macro1()
Range("rng").Sort Key1:=Cells(5, 3), Order1:=xlAscending
End Sub
مع تسمية مدى ديناميكى يسمى ( rng ) الموجود داخل الكود
وتعديل بسيط فى معادلة الإرتباط لمنع ظهور الأصفار
tt.rar