دو تا فیلد A , b تعریف کن
از تب developer گزینه view Code رو باز کن
دوستانی که تب Developer ر و ندارن باید ابتدا اون رو فعال کنن
هر چی داخل کد هست رو پاک کن و کدهای زیر رو توش کپی پیست کن
کد:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Or Target.Cells.count > 1 Then Exit Sub
Dim SortRange As Range
Set SortRange = Range(("A1"), Cells(Rows.count, 2).End(xlUp))
SortRange.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlYes
End Sub
کلید Alt+Q رو بزن تا به شیت اکسل برگردی.
تمام
