Hàm Offset bị lỗi

[pjk4t3]

[TABLE="width: 144"]
[TR]
[TD="colspan: 2"]đây là file mình sưu tầm.download từ lâu nhưng cũng không để ý nguồn(xin phép tác giả chỉnh sửa cho phù hợp với nhu cầu của mình nhé)[/TD]
[/TR]
[TR]
[TD="colspan: 2"]hiện tại việc ghi dữ liệu sang sheet 201 vào các cột tương ứng thì ok.[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 2"]nhưng mình muốn tạo thêm nút "cap nhat" để cập nhập thông tin khi khách dùng thêm dịch vụ hoặc chỉnh sửa các thông tin khác vào chính dòng đã ghi dữ liệu trước đó mà không bị nhảy xuống dòng tiếp theo.[/TD]
[/TR]
[TR]
[TD="colspan: 2"]đây là code : mình cũng không biết chỉnh sửa ntn các bạn giúp mình nhé![/TD]
[/TR]
[TR]
[TD="colspan: 2"]Worksheets(ten_phong).Range("B7").Offset(Worksheets(ten_phong).Range("A6").Value + 1, 0).Value = Worksheets("CHECK IN").Range("F8").Value[/TD]
[/TR]
[/TABLE]

 

[pjk4t3]

bế tắc là đây....

 

[Cá ngừ F1]

Bạn đưa file và 1 tràng code, đọc thấy choáng váng quá.
Bạn mô tả là bạn cần kết quả thế nào? thì mng mới hiểu và hỗ trợ được.

 

[phihndhsp]

[TABLE="width: 144"]
[TR]
[TD="colspan: 2"]đây là file mình sưu tầm.download từ lâu nhưng cũng không để ý nguồn(xin phép tác giả chỉnh sửa cho phù hợp với nhu cầu của mình nhé)
[/TD]
[/TR]
[TR]
[TD="colspan: 2"]hiện tại việc ghi dữ liệu sang sheet 201 vào các cột tương ứng thì ok.[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 2"]nhưng mình muốn tạo thêm nút "cap nhat" để cập nhập thông tin khi khách dùng thêm dịch vụ hoặc chỉnh sửa các thông tin khác vào chính dòng đã ghi dữ liệu trước đó mà không bị nhảy xuống dòng tiếp theo.[/TD]
[/TR]
[TR]
[TD="colspan: 2"]đây là code : mình cũng không biết chỉnh sửa ntn các bạn giúp mình nhé!
[/TD]
[/TR]
[TR]
[TD="colspan: 2"]Worksheets(ten_phong).Range("B7").Offset(Worksheets(ten_phong).Range("A6").Value + 1, 0).Value = Worksheets("CHECK IN").Range("F8").Value[/TD]
[/TR]
[/TABLE]

chưa xem code nhưng bảo đảm với bạn là OFFSET không sai
nếu có sai thì sai các tham số đậm đậm đó
Offset(Worksheets(ten_phong).Range("A6").Value + 1, 0).Value

 

[phuyen89]

chưa xem code nhưng bảo đảm với bạn là OFFSET không sai
nếu có sai thì sai các tham số đậm đậm đó
Offset(Worksheets(ten_phong).Range("A6").Value + 1, 0).Value

Em nghĩ tên Sheet có thể là text, nên cần phải đặt dấu "" chăng?

 

[pjk4t3]

thank cá bác đã giúp đỡ.bài toán đã được giải,thay +1=+0 là ok luôn chỉnh sửa thêm vài dòng code.mod close topic dùm.