Cập nhật dữ liệu từ Form trên sheet sang Data trong Excel

Trong bài viết này mình chia sẻ cho các bạn code cập nhật dữ liệu từ Sheet Form sang sheet Data chỉ bằng click chuột. Khi cập nhật dữ liệu sang sheet Data, toàn bộ dữ liệu trong sheet form sẽ tự động xóa trắng. Hằng ngày nhân viên chỉ việc nhập liệu lên Form và bấm vào cập nhật để dữ liệu vào trong Data. Để làm được như vậy, các bạn chỉ cần làm theo các bước sau:

Bước 1: Thiết lập sheet nhập liệu Form

 

 

Bước 2: Thiết lập sheet Lưu trữ dữ liệu Data (note: Cấu trúc 2 sheet thiết lập phải giống nhau)

 

 

Các bạn vào môi trường lập trình vào copy code dưới đây vào trong module, sau đó tạo nút bấm ở Sheet From và gán macro CapNhat vào trong nút bấm.

Option Explicit

 

Sub CapNhat()

    Dim shForm As Worksheet

    Dim shData As Worksheet

    Dim dFrom As Long

    Dim dData As Long

    

    Set shForm = ThisWorkbook.Worksheets("DATA")

    Set shData = ThisWorkbook.Worksheets("FORM")

    

    dData = shData.Range("B" & Rows.Count).End(xlUp).Row

    dFrom = shForm.Range("B" & Rows.Count).End(xlUp).Row

    

    shData.Range("A4:F" & dData).Copy shForm.Range("A" & dFrom + 1)

    shData.Range("A4:F" & dData).ClearContents

End Sub

Sau khi hoàn thành việc copy code vào module các bạn sẽ được như sau:

 

Đào tạo lập trình VBA trong Excel cơ bản

 

Cuối cùng, việc của các bạn là tạo nút bấm và gán thủ tục "CapNhat" vào nút bấm trong sheet Form, sau đó bấm vào nút bấm rồi trở về Sheet Data để nhận kết quả.

 

 

Để tìm hiểu thêm nhiều kiến thức bổ ích, các bạn tìm hiểu thêm tại khóa học Đào tạo lập trình VBA trong excel cơ bản của Bluesofts. Sau khóa học các bạn có thể tự thiết kế các mẫu file, các phần mềm nho nhỏ đáp ứng nhu cầu của các bạn.

Link khóa học: http://bluesofts.net/daotaothuchanh/daotaovbacoban.html