[HỎI]-SỬA CODE SẮP XẾP THEO THỨ TỰ CHỮ CÁI A ĐẾN Z (1 người xem)

[khoa289]

Chào mọi người.
Mình đang học VBA nên đang chạy code thì bị lỗi. Chi tiết như sau:
CODE ĐANG SỬ DỤNG LÀ SẮP XẾP CỘT B THEO THỨ TỰ CHỮ CÁI A ĐẾN Z. TRƯỜNG HỢP 2 CODE BỊ LỖI

TH1.KHI Ở HÀNG 5 KHÔNG CÓ FILTER THÌ CODE KHÔNG BỊ LỖI (VÍ DỤ NHƯ TH1)

TH2.KHI Ở HÀNG 5 CÓ FILTER THÌ CODE BỊ LỖI (VÍ DỤ NHƯ TH2)

[HỎI]: SỬA LẠI CODE NHƯ THẾ NÀO ĐỂ KHÔNG BỊ LỖI (DÙ HÀNG 5 CÓ FILTER HAY KHÔNG CÓ FILTER THÌ CODE VẪN CHẠY BÌNH THƯỜNG)
Đính kèm file.
Cám ơn

 

[phulien1902]

Chào mọi người.
Mình đang học VBA nên đang chạy code thì bị lỗi. Chi tiết như sau:
CODE ĐANG SỬ DỤNG LÀ SẮP XẾP CỘT B THEO THỨ TỰ CHỮ CÁI A ĐẾN Z. TRƯỜNG HỢP 2 CODE BỊ LỖI

TH1.KHI Ở HÀNG 5 KHÔNG CÓ FILTER THÌ CODE KHÔNG BỊ LỖI (VÍ DỤ NHƯ TH1)

TH2.KHI Ở HÀNG 5 CÓ FILTER THÌ CODE BỊ LỖI (VÍ DỤ NHƯ TH2)

[HỎI]: SỬA LẠI CODE NHƯ THẾ NÀO ĐỂ KHÔNG BỊ LỖI (DÙ HÀNG 5 CÓ FILTER HAY KHÔNG CÓ FILTER THÌ CODE VẪN CHẠY BÌNH THƯỜNG)
Đính kèm file.
Cám ơn

+ Trường hợp 1 thêm dòng:

 Sheets("TH 1").AutoFilterMode = False

+ Trường hợp 2 thêm dòng:

 Sheets("TH 2").AutoFilterMode = False

+ Chú ý: Các dòng trên đứng trước dòng:

Rows("5:5").AutoFilter

 

[chiendich]

Bạn xem thử nhanh hơn không nhé!
Sub Sort()
On Error GoTo Sort_Error
Application.ScreenUpdating = False
returnto = ActiveSheet.Name
Sheet20.Activate
With Sheet20
Sheet20.Range("B6:H10000").Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlGuess
End With
ThisWorkbook.Sheets(returnto).Select
On Error GoTo 0
Exit Sub
Sort_Error:

MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Sortit of Module Assorted"

End Sub

Sub Sort1()
On Error GoTo Sort1_Error
Application.ScreenUpdating = False
returnto = ActiveSheet.Name
Sheet21.Activate
With Sheet21
Sheet21.Range("B6:H10000").Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlGuess
End With
ThisWorkbook.Sheets(returnto).Select
On Error GoTo 0
Exit Sub
Sort1_Error:

MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Sortit of Module Assorted"

End Sub