Nhờ xem giúp code macro sort dữ liệu (1 người xem)

[khoavd@]

Chào các bác,
Nhờ mọi người xem giúp em tạo code macro để tự động sort dữ liệu nhưng chưa được. Macro được tạo = cách record macro ra được đoạn code như sau, nhưng lúc chạy thì lại ko sort được như ý muốn (lỗi hàng thứ 2)

Sub Macro1()
'
' Macro1 Macro
'


'
    ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Add Key:=Range _
        ("H2:H25"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[khoavd@]

nhờ mọi người xem giúp chỗ này với

 

[doveandrose]

Sub Macro1()
 Sheet1.Range("A3:H" & Sheet1.[H1000000].End(xlUp).Row).Sort Sheet1.[H3], xlAscending
 End Sub

 

[khoavd@]

Ơ thế bạn muốn sort theo tiêu chí gì? lớn tới bé? bé tới lớn?
P/s: mà vùng sort của bạn có cả dữ liệu bị lỗi nữa..........

sort cột H từ bé tới lớn bro ơi, nhưng chạy code thì dữ liệu ko sort được

 

[ndu96081631]

sort cột H từ bé tới lớn bro ơi, nhưng chạy code thì dữ liệu ko sort được

Vầy thử xem:

Sub Test()
  With Sheet1.Range("A2:H1000")
    .Sort .Cells(1, 8), xlAscending, Header:=xlYes
  End With
End Sub

 

[khoavd@]

Vầy thử xem:

Sub Test()
  With Sheet1.Range("A2:H1000")
    .Sort .Cells(1, 8), xlAscending, Header:=xlYes
  End With
End Sub

thanks bro nhiều code chạy okie rồi. Nhưng có bro nào giải thích giúp em tại sao em sử dụng record macro tạo ra đoạn code ở #1 mà lúc chạy thì ra kq không đúng vậy?

 

[huuthang_bd]

đã làm được theo ct =-A1, do ko theo dõi thường xuyên được nên ko để ý. Hỏi chút xíu mà mấy bác nhiều sao chém kinh quá thôi mai mốt tự mò cho chắc

Thế bạn tự mò chưa được à

 

[khoavd@]

Thế bạn tự mò chưa được à

cảm ơn bác đã quan tâm & tìm kiếm bài của mình

 

[huuthang_bd]

cảm ơn bác đã quan tâm & tìm kiếm bài của mình

Tôi đâu có tìm kiếm bài của bạn, tôi là người tham gia trong topic đó.