Pase dữ liệu vào sheet ẩn không được. (1 người xem)

[chua123]

Các Pác giúp em với. Em có 1 userform, khi click nút nhập thì giá trị trong các text bõ sẽ được paste vào các cell trong sheet dât, nhưng khi em ẩn sheet dât này đi thì không paste được. Code ở nút nhập như sau:

Sheets("data").Select
Range("A4").Select
ActiveCell.Offset(Range("demso1").Value, 0).Select
ActiveCell.Offset(0, 0).Select:ActiveCell.Value = Me.ngaythang.Text
......

Em ẩn sheet data đi là vì không để mọi người vào chỉnh sửa các dữ liệu đã nhập. Các Pác giúp với.
Cho em cảm ơn trước.

 

[quocphuoc88]

Câu lệnh của bạn là

ActiveCell.Value = Me.ngaythang.Text

Mà Activecell là cell trên sheet bạn đang "đứng", nếu thế thì làm sao mà nó Paste dữ liệu vào sheet Data đang ẩn cho bạn được !

 

[chua123]

Câu lệnh của bạn là
Mà Activecell là cell trên sheet bạn đang "đứng", nếu thế thì làm sao mà nó Paste dữ liệu vào sheet Data đang ẩn cho bạn được !

Pác có cách nào giúp em không? em chỉ đi copy các vba hay của các Pác trên diễn đàn rồi sửa lại xài, em không biết VBA.

 

[quocphuoc88]

Pác có cách nào giúp em không? em chỉ đi copy các vba hay của các Pác trên diễn đàn rồi sửa lại xài, em không biết VBA.

thì bạn chỉ việc Sheet("Data").Range("chỗ bạn muốn Paste xuống ").value = Me.ngaythang.Text