Mấy huynh ơi giúp em với ạ lỗi chạy run 424 ạ (1 người xem)

[thanhysong]

Private Sub NUT1_Click()
Dim dong_cuoi As Long
dong_cuoi = SheetGIOTINH.Range("J16").End(xlUp).Row + 1
With SheetGIOTINH
.Range("J" & dong_cuoi) = txtNL.Value
.Range("K" & dong_cuoi) = txtNH.Value
.Range("L" & dong_cuoi) = txtNWX.Value
.Range("M" & dong_cuoi) = txtNWY.Value
End With

End Sub

Bài đã được tự động gộp: 20/4/20

dong_cuoi = SheetGIOTINH.Range("J16").End(xlUp).Row + 1

báo sai tại hàm này ạ

 

[Phuocam]

dong_cuoi = SheetGIOTINH.Range("J16").End(xlUp).Row + 1

1.SheetGIOTINH hay Sheets("GIOITINH") ?

2. Thử thay:

.Range("J16").End(xlUp).Row + 1

bằng:

.Range("J" & Rows.Count).End(xlUp).Row + 1

 

[thanhysong]

1.SheetGIOTINH hay Sheets("GIOITINH") ?

2. Thử thay:

.Range("J16").End(xlUp).Row + 1

bằng:

.Range("J" & Rows.Count).End(xlUp).Row + 1

ví dụ như em muốn bắt đầu tại dòng J7 thì sao ạ? nếu viết theo câu lệnh dưới của a

 

[BuiQuangThuan]

ví dụ như em muốn bắt đầu tại dòng J7 thì sao ạ? nếu viết theo câu lệnh dưới của a

vậy bạn xóa hết dữ liệu từ dòng 7 trở xuống thì khi nhập liệu nó sẽ vào dòng 7