Lỗi tìm dòng cuối trong VBA

[TuyetNguyen02]

Chào mọi người, Cho mình hỏi mình đang tạo 1 bảng nhập thông tin bằng VBA excel như sau:
Private Sub CommandButton1_Click()
'Tim dong cuoi cua sheet QLNV
Dim Endr As Long
With Sheets("QLNV")
Endr = .Range("B500").End(xlUp).Row
'Gan du lieu vao dong cuoi cua sheet DSNV
.Range("B" & Endr + 1) = MaNV.Text
.Range("C" & Endr + 1) = HoTen.Text
.Range("F" & Endr + 1) = ChucVu.Text
.............

Công thức vẩn nhập bình thường như đến khi mình tạo bảng (Ctrl + T) cho vùng dữ liệu trong Sheet QLNV thì nhập dữ liệu không vô dòng trống cuối cùng mà nhảy ra khỏi bảng mình mới tạo.
Vậy mình phải xử lý sao ạ. Mình không muốn xóa bảng dữ liệu

 

[hoanganhvo2612]

Theo mình thì với bảng thì nó xác định dòng cuối của bảng, còn ý bạn là dòng cuối có dữ liệu đúng không, theo mình cách đơn giản nhất là từ code xác định dòng cuối của bạn, thì mình thêm 1 bước kiểm tra xem dòng trên nó có dữ liệu không. Tức là xét từ dòng đó - 1 đến 1, khi nào gặp dòng có dữ liệu thì thoát vòng lặp. Dòng cuối có dữ liệu là dòng đó thôi.

For i = endr to 1 step -1
if cells(i,x) <> "" then
dongcuoi = i
exit for
end if
next

 

[Maika8008]

Tôi thấy nếu chỉ đơn giản mấy dòng code đó thì vẫn nhập đúng dòng dưới của dòng cuối bảng

 

[Phuocam]

Chào mọi người, Cho mình hỏi mình đang tạo 1 bảng nhập thông tin bằng VBA excel như sau:
Private Sub CommandButton1_Click()
'Tim dong cuoi cua sheet QLNV
Dim Endr As Long
With Sheets("QLNV")
Endr = .Range("B500").End(xlUp).Row
'Gan du lieu vao dong cuoi cua sheet DSNV
.Range("B" & Endr + 1) = MaNV.Text
.Range("C" & Endr + 1) = HoTen.Text
.Range("F" & Endr + 1) = ChucVu.Text
.............

Công thức vẩn nhập bình thường như đến khi mình tạo bảng (Ctrl + T) cho vùng dữ liệu trong Sheet QLNV thì nhập dữ liệu không vô dòng trống cuối cùng mà nhảy ra khỏi bảng mình mới tạo.
Vậy mình phải xử lý sao ạ. Mình không muốn xóa bảng dữ liệu

Tạo bảng vừa đủ xài, đừng tạo có dòng trống phía dưới.