Rút gọn code sắp xếp (1 người xem)

[DMQ]

Em có đoạn code để nhập dữ liệu từ tb_TNCC của Form vào Sheet8!T2, và sau đó sắp xép theo tăng dần, em nhờ các anh chị rút gọn code dùm em ạ.(chổ range("T1") có thể thay bằng LastRow được không?)

Private Sub CommandButton1_Click()
  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   
End Sub

 

[tam888]

Em có đoạn code để nhập dữ liệu từ tb_TNCC của Form vào Sheet8!T2, và sau đó sắp xép theo tăng dần, em nhờ các anh chị rút gọn code dùm em ạ.(chổ range("T1") có thể thay bằng LastRow được không?)

Private Sub CommandButton1_Click()
  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  
End Sub

Code có 3 4 dòng còn rút gọn gì nữa, rút gọn về 1 hay 0 dòng?

 

[DMQ]

Ý em là có thể thay :

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

bằng :

LastRow.Sort Key1:=Range("T1"), Order1:=xlAscending, Header:=xlYes

nhưng không được.

 

[VetMini]

...
nhưng không được.

Bắt đầu bằng thói quen tự hỏi mình "không được" là cái quái gì? Chịu khó nhớ nó báo lỗi gì; nếu nhớ không nổi thì lấy giấy bút ghi ra.

Nếu biết nó báo lỗi gì thì có thể tìm hiểu thêm một chút lý thuyết về kiểu dữ liệu.

Muốn như vầy:
LastRow.Sort Key1:=Range("T1"), Order1:=xlAscending, Header:=xlYes
Thì cái chỗ tô đỏ phải là một đối tượng (object) có khai báo phương thức Sort (chỗ tô xanh)

Trong khi đó, theo code ở bài #1 thì:
lastRow = Sheet8.Range("T65536").End(xlUp).Row
Cái chỗ tô tím lấy kiểu theo cái chỗ tô xanh lá, tức là kiểu Long.