كود ترتيب الارقام من الاكبر الى الاصغر

[محمد عبد الناصر]

 احتاج الى كود او طريقة لترتيب الارقام من الاكبر الى الاصغر حسب العمود 

F

اريد تطبيق الكود على الملف المرفق 
مثال 
8100
8100
7000
6000
5000
4000
 

dm.xlsx

[احمدزمان]

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

 

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

 

[نزار سليمان عيد]

dm (1).xls

[محمد عبد الناصر]

 لما بفتح الملف بتاعك بيجبلي كده ومش بقدر اعمل اي امر

تم تعديل يونيو 20, 2021 بواسطه محمد عبد الناصر

[عبدالفتاح في بي اكسيل]

جرب  هذا  الكود  بمجرد  كتابة  الرقم   سيتم  الفرز تلقائيا 

Private Sub Worksheet_Change(ByVal Target As Range)

Dim SR As Long
If Intersect(Target, Range("F:F")) Is Nothing Then Exit Sub
With Worksheets("Sheet1")
SR = .Cells(.Rows.Count, "F").End(xlUp).Row
.Range("B4:F" & SR).Sort Key1:=.Range("F4"), Order1:=xlDescending, Header:=xlYes
End With
End Sub

 

SORT.xlsm

[محمد عبد الناصر]

ماشاء الله رائع يا استاذ عبد الفتاح جزاك الله كل خير