Tạo 1 sheet có tác dụng như form nhập liệu

[congnhat94]

em đã có 1 sheet nhập liệu nhưng muốn chuyển vị trí nhập liệu ờ sheet tổng hợp sang cột khác và khi nhập bằng hàm số em muốn khi lưu sang sheet tổng hợp không còn là hàm nữa mà là kết quả.
em gửi file kèm theo nhờ các anh chi giúp đỡ em cảm ơn nhiều lắm.




Cảm ơn Anh Lê Duy Thương
Anh giúp em nhập số liệu cột A,B,C,D sang sheet tổng hợp còn cột A,B,E,F sang sheet chi tiết
Em cảm ơn nhiều



Các tài khoản loại không lại không đúng ví dụ TK 0081 thì chỉ nhập sang 81

 

[TrungChinhs]

Bạn sửa lại code như sau:

Private Sub CommandButton1_Click()
   Application.ScreenUpdating = 0
   Sheet1.[a9].CurrentRegion.Offset(1).Copy
   Sheet2.[a65536].End(3)(2).PasteSpecial (3)
   Application.CutCopyMode = 0
End Sub

 

[Lê Duy Thương]

em đã có 1 sheet nhập liệu nhưng muốn chuyển vị trí nhập liệu ờ sheet tổng hợp sang cột khác và khi nhập bằng hàm số em muốn khi lưu sang sheet tổng hợp không còn là hàm nữa mà là kết quả.
em gửi file kèm theo nhờ các anh chi giúp đỡ em cảm ơn nhiều lắm.

DÙNG THỬ CODE NÀY XEM CÓ ĐÚNG Ý BẠN KHÔNG NHÉ

Private Sub CommandButton1_Click()
On Error Resume Next
    With Sheet2
    er2 = .[A65500].End(xlUp).Row + 1
    er1 = [A10].End(xlDown).Row - 9
        .Cells(er2, 1).Resize(er1, 7) = [A10].Resize(er1, 7).Value
    End With
End Sub