lỗi vàng ở dòng code sắp xếp

[NguyenthiH]

Em có đoạn code để nhập nhà cung cấp vào sheet!8 và sắp xếp tăng dần (bằng form), nhưng khi nhấn lưu thì lỗi "1004" và debug thì bôi vàng ngay dòng
"Sheet8.Range("T1", Range("T1").End(xlDown)).Sort Key1:=Range("T1"), Order1:=xlAscending, Header:=xlYes"
code của nút lưu đây ạ:
"Private Sub CommandButton1_Click()
Dim LastRow As Long
LastRow = Sheet8.Range("T65536").End(xlUp).Row
Sheet8.Range("T" & LastRow + 1).value = tb_TNCC.value
' sap xep
Sheet8.Range("T1", Range("T1").End(xlDown)).Sort Key1:=Range("T1"), Order1:=xlAscending, Header:=xlYes
tb_TNCC = ""
tb_TNCC.SetFocus
MsgBox ("da luu xong"), , "A.Quang"
End Sub"
mong các anh chị xem giúp.

 

[huonglien1901]

Em có đoạn code để nhập nhà cung cấp vào sheet!8 và sắp xếp tăng dần (bằng form), nhưng khi nhấn lưu thì lỗi "1004" và debug thì bôi vàng ngay dòng
"Sheet8.Range("T1", Range("T1").End(xlDown)).Sort Key1:=Range("T1"), Order1:=xlAscending, Header:=xlYes"
code của nút lưu đây ạ:
"Private Sub CommandButton1_Click()
Dim LastRow As Long
LastRow = Sheet8.Range("T65536").End(xlUp).Row
Sheet8.Range("T" & LastRow + 1).value = tb_TNCC.value
' sap xep
Sheet8.Range("T1", Range("T1").End(xlDown)).Sort Key1:=Range("T1"), Order1:=xlAscending, Header:=xlYes
tb_TNCC = ""
tb_TNCC.SetFocus
MsgBox ("da luu xong"), , "A.Quang"
End Sub"
mong các anh chị xem giúp.

Dòng nào đâu bạn. Sao không đưa vào thẻ code rồi chụp hình lỗi đó. Chứ nhìn vậy rối lắm.

 

[NguyenthiH]

sao các nút mình nó mờ hết không cho chọn, nên mình mới copy và paste

Bài đã được tự động gộp: 30/5/19

lỗi vàng ngay dòng:
Sheet8.Range("T1", Range("T1").End(xlDown)).Sort Key1:=Range("T1"), Order1:=xlAscending, Header:=xlYes

 

[huuthang_bd]

Bạn thử sửa như sau xem có hết lỗi không.

Sheet8.Range("T1", Sheet8.Range("T1").End(xlDown)).Sort Key1:=Range("T1"), Order1:=xlAscending, Header:=xlYes

 

[VetMini]

Tìm tất cả những chỗ Range và thêm Sheet8. vào trước chúng.

 

[befaint]

Key1:= Sheet8.range("T1").value

 

[NguyenthiH]

ồ !!!! được rồi, cám ơn các anh!!!!!