Tạo list lưu lại lịch sử

[minhhuy96]

Nhờ các anh chị trên diễn đàn hỗ trợ giúp mình!
Tạo list lưu lại lịch sử xuất kho giống format với sheet xuất, nhưng nội dung dán không đè lên mà tạo thành list dài sắp xếp theo thứ tự ngày mới nhất được càng tốt.
Ở Sheet nhập mỗi lần nhập Cleaner dữ liệu nhưng không mất ở sheet List.
File kèm bên dưới, mong nhận được sự hỗ trợ!
Em cảm ơn!!

 

[SA_DQ]

Bạn goàn toàn nên gộp 2 nút ý làm 1; Nếu không có ngày đẹp trời nào đó bấm nhầm thì lưu không đủ hàng hóa đã xuất/nhập kho!
Nút lệnh duy nhất đó thực hiện các bước như sau:
0: Hỏi lại bạn có cần chép lưu hay không (Nếu 'No' thì xuống bước 3)
1: Nếu Ừ thì tìm dòng cuối có dữ liệu ở trang cần chép đến
2 Tiến hành chép nối DL vô trang vừa tìm ra dòng cuối này
3: Xóa dữ liệu sau khi chép

Chúc bạn thành công!

 

[minhhuy96]

Bạn goàn toàn nên gộp 2 nút ý làm 1; Nếu không có ngày đẹp trời nào đó bấm nhầm thì lưu không đủ hàng hóa đã xuất/nhập kho!
Nút lệnh duy nhất đó thực hiện các bước như sau:
0: Hỏi lại bạn có cần chép lưu hay không (Nếu 'No' thì xuống bước 3)
1: Nếu Ừ thì tìm dòng cuối có dữ liệu ở trang cần chép đến
2 Tiến hành chép nối DL vô trang vừa tìm ra dòng cuối này
3: Xóa dữ liệu sau khi chép

Chúc bạn thành công!

Chân thành cảm ơn góp ý từ anh chị.
Ý tưởng rất hay và tuyệt vời, chỉ mong có cao nhân giúp đỡ cho xin code vba như ý tưởng anh gợi ý.
Thân!!

 

[SA_DQ]

Sub Cleaner()
 Dim Num As Integer, lRw As Long, J As Integer

 Num = MsgBox("Ban Cân Luu Du Liêu?", vbOKCancel, "GPE.COM Xin Tham Khao")
 If Num = 2 Then
    [C2].CurrentRegion.Offset(1).Clear:             MsgBox "Xin Chào!", , "GPE.COM"
 Else
    With Sheets("List")
        lRw = .[C65500].End(xlUp).Row + 1
        [C5].CurrentRegion.Offset(1, 1).Copy Destination:=.Cells(lRw, "C")
        For J = lRw To 99 + lRw
            If .Cells(J, "B").Value = "" Then Exit For
            .Cells(J, "A").Value = .Cells(J - 1, "A").Value + 1
        Next J
    End With
    MsgBox "Chép Xong!", , "GPE.COM Xin Chào!"
 End If
End Sub

 

[minhhuy96]

Sub Cleaner()
Dim Num As Integer, lRw As Long, J As Integer

Num = MsgBox("Ban Cân Luu Du Liêu?", vbOKCancel, "GPE.COM Xin Tham Khao")
If Num = 2 Then
    [C2].CurrentRegion.Offset(1).Clear:             MsgBox "Xin Chào!", , "GPE.COM"
Else
    With Sheets("List")
        lRw = .[C65500].End(xlUp).Row + 1
        [C5].CurrentRegion.Offset(1, 1).Copy Destination:=.Cells(lRw, "C")
        For J = lRw To 99 + lRw
            If .Cells(J, "B").Value = "" Then Exit For
            .Cells(J, "A").Value = .Cells(J - 1, "A").Value + 1
        Next J
    End With
    MsgBox "Chép Xong!", , "GPE.COM Xin Chào!"
End If
End Sub

Cảm ơn anh chị đã hỗ trợ.
Tuy nhiên có báo lỗi dòng này ạ!
"
[C5].CurrentRegion.Offset(1, 1).Copy Destination:=.Cells(lRw, "C")
"
Nhờ trợ giúp!

 

[SA_DQ]

Bạn có dịch câu lệnh báo lỗi chưa vậy?

 

[minhhuy96]

Bạn có dịch câu lệnh báo lỗi chưa vậy?

Em không chuyên về mảng này nên không rành ạ, nó bôi vàng

 

[SA_DQ]

Bạn thử mở khóa hết 2 trang tính & chạy lại macro xem sao?

 

[minhhuy96]

Bạn thử mở khóa hết 2 trang tính & chạy lại macro xem sao?

Mở khóa ra không báo lỗi nữa,.
Đã thành công!
Cảm ơn anh chị nhiều ạ.
Chúc anh chị luôn thành công trong công việc và cuộc sống!!

 

[minhhuy96]

Bạn thử mở khóa hết 2 trang tính & chạy lại macro xem sao?

Cột ngày tháng vẫn lỗi, nhờ hỗ trợ giúp value dữ liệu dán qua.
Em cảm ơn!

 

[le_vis]

Nhờ các anh chị trên diễn đàn hỗ trợ giúp mình!
Tạo list lưu lại lịch sử xuất kho giống format với sheet xuất, nhưng nội dung dán không đè lên mà tạo thành list dài sắp xếp theo thứ tự ngày mới nhất được càng tốt.
Ở Sheet nhập mỗi lần nhập Cleaner dữ liệu nhưng không mất ở sheet List.
File kèm bên dưới, mong nhận được sự hỗ trợ!
Em cảm ơn!!

Chắc thầy SA_DQ đang bận .
Nhưng lẽ ra bạn phải đưa cái file lỗi đó lên để Thầy SA_DQ soi xem lỗi do đâu chứ
Thêm cách này để bạn thử xem

 

[minhhuy96]

Cột ngày tháng vẫn lỗi, nhờ hỗ trợ giúp value dữ liệu dán qua.
Em cảm ơn!

Em đã chỉnh sửa được rồi ạ.
Cảm ơn thầy đã hỗ trợ!!

Bài đã được tự động gộp: 20/12/19

Chắc thầy SA_DQ đang bận .
Nhưng lẽ ra bạn phải đưa cái file lỗi đó lên để Thầy SA_DQ soi xem lỗi do đâu chứ
Thêm cách này để bạn thử xem

Cảm ơn bạn! File bạn gửi rất OK, cảm ơn nhiều nhé!
Chúc bạn may mắn, thành công trong cuộc sống!!