DMQ
Thành viên dốt
- Tham gia
- 21/3/12
- Bài viết
- 703
- Được thích
- 53
- Giới tính
- Nam
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?)
Mã:
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