Lỗi Sort Code

[Tường_Vi]

With ActiveSheet.Range("A2:I" & [A65000].End(xlUp).Row)
 .sort [D2], 1, Header:=xlNo
End With

Muội đang học sort code nhưng luôn bị báo lỗi Run time error '1004'
Các Huynh sửa lại giúp muội với, muội không biết sai ở đâu cả

 

[Hai Lúa Miền Tây]

With ActiveSheet.Range("A2:I" & [A65000].End(xlUp).Row)
 .sort [D2], 1, Header:=xlNo
End With

Muội đang học sort code nhưng luôn bị báo lỗi Run time error '1004'
Các Huynh sửa lại giúp muội với, muội không biết sai ở đâu cả

Bạn xem lại vùng chứa dữ liệu coi có cell nào trộn không nhé

 

[Tường_Vi]

ý của Huynh là merge cell, nếu vậy thì không có Huynh à.

 

[TrungChinhs]

With ActiveSheet.Range("A2:I" & [A65000].End(xlUp).Row)
 .sort [D2], 1, Header:=xlNo
End With

Muội đang học sort code nhưng luôn bị báo lỗi Run time error '1004'
Các Huynh sửa lại giúp muội với, muội không biết sai ở đâu cả

Đã test code vẫn đúng, vì vậy rất có thể lỗi tại bảng tính. Bạn đưa file lên để kiểm tra nhé !

 

[phamduylong]

Muội đang học sort code nhưng luôn bị báo lỗi Run time error '1004'
Các Huynh sửa lại giúp muội với, muội không biết sai ở đâu cả

Lỗi 1004 có thể là megrecells hoặc protect sheet

 

[Hai Lúa Miền Tây]

Nhân tiện đây mình gửi bạn đoạn code khi click vào tiêu đề của từng cột sẽ tự động sắp xếp tăng dần.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Row <> 1 Then Exit Sub
    Rows("2:65536").Sort Key1:=Cells(2, Target.Column), Order1:=xlAscending, Header:=xlNo
End Sub

 

[Tường_Vi]

Đã test code vẫn đúng, vì vậy rất có thể lỗi tại bảng tính. Bạn đưa file lên để kiểm tra nhé !

Hôm nay muội sửa lại thành như này thì chạy không thấy báo lỗi, hi hi...sướng quá đi mất

With ActiveSheet.Range("A2:I" & [A65000].End(xlUp).Row)
 .sort [D2], 1, , , , , , xlNo
End With