Không tự xuống dòng trong VBA

[fso56]

Các bác cho em hỏi chút là. Em có làm cái Form này nhưng khi nhập liệu nó lại không tự xuống dòng
Private Sub Entryorder_Click()
Dim dong_cuoi As Long
dong_cuoi = Sheet1.Range("A1000").End(xlUp).Row + 1
With Sheet1
.Range("B" & dong_cuoi) = TxtPos.Text
.Range("C" & dong_cuoi) = TxtSymbol.Text
.Range("D" & dong_cuoi) = TxtLot.Text
.Range("E" & dong_cuoi) = txtPrice.Text
End With
End Sub

 

[ptm0412]

Thứ nhất: ô A3 merge với A4 nên dongcuoi+1 là 4, dữ liệu ghi vào dòng 4
Thứ hai: Không điền số thứ tự ở cột A, nên ghi lần sau, vẫn cứ ghi vào dòng 4 vì dongcuoi + 1 không đổi

 

[fso56]

Thứ nhất: ô A3 merge với A4 nên dongcuoi+1 là 4, dữ liệu ghi vào dòng 4
Thứ hai: Không điền số thứ tự ở cột A, nên ghi lần sau, vẫn cứ ghi vào dòng 4 vì dongcuoi + 1 không đổi

Cám ơn bạn nhiều. Mình sủa được rồi.
Bạn cho mình thêm chút là. Bây giờ mình muốn khóa các dữ liệu bên dưới lại không cho chỉnh sửa. Chi để cho ô Nhập Liệu là có thể ghi dữ liệu vào thic có cách nào làm được như vậy không bạn.

 

[ptm0412]

Bạn tìm hiểu về lock cell và protect sheet