VIP
Dim hang_cuoi As Long ''(kiểu số)
danh_sach.Range("B" & "hang_cuoi").Value = form.Range("C4").Value
danh_sach.Range("B" & hang_cuoi).Value = form.Range("C4").Value
@minhhb
Lỗi là do bạn khai báo: Dim hang_cuoi As Long (kiểu số)
Nhưng khi bạn gán vào câu lệnh thì "hang_cuoi" lại để trong 2 dấu "" đó là kiểu String (chuỗi).
Do đó câu lệnh:
danh_sach.Range("B" & "hang_cuoi").Value = form.Range("C4").Value
Phải sửa thành là:
danh_sach.Range("B" & hang_cuoi).Value = form.Range("C4").Value
Nghĩa là bỏ 2 dấu ngoăc kép ở: hang_cuoi
Trân trọng.
Cảm ơn bạn nhiều
Cảm ơn bạnminhhb
Sửa cái câu
hang_cuoi = danh_sach.Range("A1").Value + 9
Thành
hang_cuoi=danh_sach.Range("A" rows.Count).End(xlUp).Row +9