Cần giúp đỡ tạo form nhập dữ liệu

[Mai Đức Việt]

Lời nói đầu xin gửi lời chúc sức khỏe tới các thành viên trong diễn đàn.

Do nhu cầu công việc e cần tạo bảng nhập dữ liệu dạng From VBA mà tìm hiểu và thực hiện cũng không thành công

Mô Tả:
Sheet 1 ( Nhập Dữ liệu)
Gồm:
Họ tên
Số điện thoại
Ngày Đặt
Ngày kết thúc
Loại Xe: ( Lựa chọn: 4 -7 -16)
Ghi Chú

Sheet 2
Danh sách dữ liệu được nhập từ Sheet 1
Danh sách sắp xếp theo thứ tự Theo Ngày Đặt

Mong mọi người giúp đỡ để hoàn thành công việc
Xin Cảm ơn!

 

[phulien1902]

Lời nói đầu xin gửi lời chúc sức khỏe tới các thành viên trong diễn đàn.

Do nhu cầu công việc e cần tạo bảng nhập dữ liệu dạng From VBA mà tìm hiểu và thực hiện cũng không thành công

Mô Tả:
Sheet 1 ( Nhập Dữ liệu)
Gồm:
Họ tên
Số điện thoại
Ngày Đặt
Ngày kết thúc
Loại Xe: ( Lựa chọn: 4 -7 -16)
Ghi Chú

Sheet 2
Danh sách dữ liệu được nhập từ Sheet 1
Danh sách sắp xếp theo thứ tự Theo Ngày Đặt

Mong mọi người giúp đỡ để hoàn thành công việc
Xin Cảm ơn!

Bạn muốn có 1 Form dạng File đưới đây phải không

 

[Mai Đức Việt]

Bạn muốn có 1 Form dạng File đưới đây phải không

Đúng yêu cầu của mình.
Phiền bạn giúpđỡ

 

[phulien1902]

Đúng yêu cầu của mình.
Phiền bạn giúpđỡ

Bạn chép đoạn Code dưới đây vào Module rồi gán vào Button để chạy nhé.

Sub CapnhatDL()
    Dim LR As Long
    Application.ScreenUpdating = False
    With Sheets("Sheet2")
        LR = .Cells(Rows.Count, "D").End(xlUp).Row + 1
         Sheet1.Range("C2:C7").Copy
        .Range("D" & LR).PasteSpecial xlPasteValues, Transpose:=True
    End With
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    Sheet1.Range("C2:C7").ClearContents
    MsgBox " DL da duoc cap nhat!"
End Sub

 

[Mai Đức Việt]

Bạn chép đoạn Code dưới đây vào Module rồi gán vào Button để chạy nhé.

Sub CapnhatDL()
    Dim LR As Long
    Application.ScreenUpdating = False
    With Sheets("Sheet2")
        LR = .Cells(Rows.Count, "D").End(xlUp).Row + 1
         Sheet1.Range("C2:C7").Copy
        .Range("D" & LR).PasteSpecial xlPasteValues, Transpose:=True
    End With
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    Sheet1.Range("C2:C7").ClearContents
    MsgBox " DL da duoc cap nhat!"
End Sub

Cho mình hỏi ô thứ tự và ngày tháng ko đc cập nhật à bạn?

 

[SA_DQ]

Cho mình hỏi ô thứ tự và ngày tháng ko đc cập nhật à bạn?

Thí thêm 1 macro nữa, lúc nào muốn sắp xếp thì cho macro này nó chạy; Chú í là loại cột [STT] khi tiến hành sắp xếp nha!

 

[phulien1902]

Cho mình hỏi ô thứ tự và ngày tháng ko đc cập nhật à bạn?

Tôi thêm giúp bạn phần số thứ tự, còn phần ngày tháng kia tôi chưa biết bạn muốn gán dữ liệu nào vào.
Bạn xem File

 

[DMQ]

Xin phép bạn @phulien1902, mình thêm tý vào code của bạn.
Chắc ý của chủ thớt đây.