sao code VBA sort không đúng. (1 người xem)

[Rùa Con 1080]

Chào mọi người!
Em có file này, có code tính "Ton", và Sort dữ liu sau khi tính.
Nhưng sao em thấy code "Sort", sort chưa đúng.
Ví dụ code sort theo "B3" của sheet"Ton" thế mà "Nhãn Mã Vạch-8793" lại xêp trên "Bao Nylon 38 x 42+5"
code Sort:

With Sheets("Ton")
    .Range("A3:G1000").ClearContents
    .Range("A3:G3").Resize(k) = Darr
    .Range("A3:G3").Resize(k).Borders.LineStyle = 1
    .Range("E3:G3").Resize(k, 3).NumberFormat = "#,##0.00_);[Red](#,##0.00)"
    .Range("B3:G3").Resize(k).Sort [B3], Header:=xlYes <-----sort
End With

 

[chucuoi92]

Chào mọi người!
Em có file này, có code tính "Ton", và Sort dữ liu sau khi tính.
Nhưng sao em thấy code "Sort", sort chưa đúng.
Ví dụ code sort theo "B3" của sheet"Ton" thế mà "Nhãn Mã Vạch-8793" lại xêp trên "Bao Nylon 38 x 42+5"
code Sort:

With Sheets("Ton")
    .Range("A3:G1000").ClearContents
    .Range("A3:G3").Resize(k) = Darr
    .Range("A3:G3").Resize(k).Borders.LineStyle = 1
    .Range("E3:G3").Resize(k, 3).NumberFormat = "#,##0.00_);[Red](#,##0.00)"
    .Range("B3:G3").Resize(k).Sort [B3], Header:=xlYes <-----sort
End With

Thì bạn sửa "yes" thành "no" là ok
.Range("B3:G3").Resize(k).Sort [B3], Header:=xlNo <-----sort

 

[Rùa Con 1080]

Cám ơn bạn nhe.
Bạn giái thích mình chổ "Yes" và "No" với.

 

[chucuoi92]

Cám ơn bạn nhe.
Bạn giái thích mình chổ "Yes" và "No" với.

Rằng thì là mà chọn Header "có" hay "không"
Nếu có thì vùng thì sort từ b4 còn không thì từ B3

 

[Rùa Con 1080]

Cám ơn bạn nhe!
Mình cứ nghĩ là mình đã gán Sort[B3] thì nó sort từ [B3] xuống chứ..