dangtuyen.nafi6
Thành viên mới

- Tham gia
- 19/3/09
- Bài viết
- 2
- Được thích
- 0
Anh em giúp mình xem đoạn code sau:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 13 Then
Range("C8:J777").Sort _
Key1:=Range("C8"), Order1:=xlAscending, _
Key2:=Range("D8"), Order2:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub
Dùng sắp xếp một bảng dữ liệu từ Cột C-J.
Nhưng có một vấn đề là đoạn code trên chỉ chạy trên 01 sheet thôi.
Muốn chạy trên sheet 2 thì không thực hiện được.
Có gửi file đính kèm để anh em giúp đỡ.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 13 Then
Range("C8:J777").Sort _
Key1:=Range("C8"), Order1:=xlAscending, _
Key2:=Range("D8"), Order2:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub
Dùng sắp xếp một bảng dữ liệu từ Cột C-J.
Nhưng có một vấn đề là đoạn code trên chỉ chạy trên 01 sheet thôi.
Muốn chạy trên sheet 2 thì không thực hiện được.
Có gửi file đính kèm để anh em giúp đỡ.
File đính kèm
Lần chỉnh sửa cuối: