Code VBA ghi đè dữ liệu cũ

[queluatb]

Em xin nhờ các thầy, anh chị giúp đỡ em code vba thay thế vào dữ liệu cũ
em có Sheet1 là bảng chấm công (BCC) sau khi tạo BCC xong e sẽ copy sang Sheet2(Data_BCC), nhưng trong quá trình lập BCC có tháng sẽ phát sinh phải sửa lại BCC của từng người của từng bộ phận, sau khi sửa lại có thể thêm người mới hoặc có người ở bộ phận này chuyển bộ phận khác hoặc nghỉ việc, và ngày công có thể tăng hoặc giảm, sau khi sửa xong em muốn chuyển dữ liệu vừa sửa sang lại sheet2 thay thế vào dữ liệu cũ đã có. Ở đây có thể em phải sửa lại tháng bất kỳ chứ không phải cố định tháng nào cả
Em gửi file mong các thầy và anh chị xem giúp đỡ cho em
Em xin cám ơn

 

[quanluu]

Cái này bạn dùng ngày-tháng và tên làm bộ key để dò tìm và cập nhật thôi. Của bạn không có mã nên sẽ có lỗi nếu tên trùng nhau.

 

[queluatb]

Cái này bạn dùng ngày-tháng và tên làm bộ key để dò tìm và cập nhật thôi. Của bạn không có mã nên sẽ có lỗi nếu tên trùng nhau.

em chưa nghĩ ra phải làm như nào bác giúp em với

 

[queluatb]

mọi người xem giúp e với

 

[CHAOQUAY]

Em xin nhờ các thầy, anh chị giúp đỡ em code vba thay thế vào dữ liệu cũ
em có Sheet1 là bảng chấm công (BCC) sau khi tạo BCC xong e sẽ copy sang Sheet2(Data_BCC), nhưng trong quá trình lập BCC có tháng sẽ phát sinh phải sửa lại BCC của từng người của từng bộ phận, sau khi sửa lại có thể thêm người mới hoặc có người ở bộ phận này chuyển bộ phận khác hoặc nghỉ việc, và ngày công có thể tăng hoặc giảm, sau khi sửa xong em muốn chuyển dữ liệu vừa sửa sang lại sheet2 thay thế vào dữ liệu cũ đã có. Ở đây có thể em phải sửa lại tháng bất kỳ chứ không phải cố định tháng nào cả
Em gửi file mong các thầy và anh chị xem giúp đỡ cho em
Em xin cám ơn

..............................................

Option Explicit

Sub abcd()
Dim bangCC
Dim bangDC
Dim rws, cls
Dim kq
Dim i, j, k, x, z, t
bangCC = Sheet1.Range("A8", Sheet1.Range("AL" & Rows.Count).End(xlUp))
t = bangCC(1, 1)
bangDC = Sheet2.Range("A8", Sheet2.Range("AL" & Rows.Count).End(xlUp))
rws = UBound(bangDC)
cls = UBound(bangDC, 2)
ReDim kq(1 To rws * 3, 1 To cls)
For i = 1 To rws
    If bangDC(i, 1) = t Then
        If z = 0 Then
            For x = 1 To UBound(bangCC)
                k = k + 1
                For j = 1 To cls
                    kq(k, j) = bangCC(x, j)
                Next j
            Next x
            z = 1
        End If
    Else
        k = k + 1
        For j = 1 To cls
            kq(k, j) = bangDC(i, j)
        Next j
    End If
Next i
With Sheet3
    .UsedRange.Clear
    .Range("A8").Resize(k, cls) = kq
End With
End Sub

 

[HUONGHCKT]

Em xin nhờ các thầy, anh chị giúp đỡ em code vba thay thế vào dữ liệu cũ
em có Sheet1 là bảng chấm công (BCC) sau khi tạo BCC xong e sẽ copy sang Sheet2(Data_BCC), nhưng trong quá trình lập BCC có tháng sẽ phát sinh phải sửa lại BCC của từng người của từng bộ phận, sau khi sửa lại có thể thêm người mới hoặc có người ở bộ phận này chuyển bộ phận khác hoặc nghỉ việc, và ngày công có thể tăng hoặc giảm, sau khi sửa xong em muốn chuyển dữ liệu vừa sửa sang lại sheet2 thay thế vào dữ liệu cũ đã có. Ở đây có thể em phải sửa lại tháng bất kỳ chứ không phải cố định tháng nào cả
Em gửi file mong các thầy và anh chị xem giúp đỡ cho em
Em xin cám ơn

Thêm một cách cho bạn rộng đường lựa chọn'
Khi bạn nhấn nút nhập dữ liệu:
Nếu : + dữ liệu mới thì sẽ được nhập xuống các dòng cuối cùng của sh Data_BCC (theo Sub Copy_T2 bạn đã viết code)
+ nếu là dữ liệu đã có ngày trong Sh Data (trường hợp bạn sửa lại dữ liệu- và cập nhập dữ liệu sửa ấy vào Sh Data) thì code sẽ hỏi là có muốn sửa không? nếu có thì sửa-nếu No thì bỏ qua (Dữ liễu bạn sửa có thể ít hoặc nhiều dòng hơn dữ liệu cũ thì khi cập nhật cũng sẽ đầy đủ như dữ liệu đã sửa.
Bài này bạn có thể nhập dữ liệu của 1 vài năm (nếu trường ngày tháng năm được bố trí chuẩn- Phù hợp với hàm tìm kiếm) - có thể phát triển để xem lại- sửa-xóa- làm mới....

 

[queluatb]

Thêm một cách cho bạn rộng đường lựa chọn'
Khi bạn nhấn nút nhập dữ liệu:
Nếu : + dữ liệu mới thì sẽ được nhập xuống các dòng cuối cùng của sh Data_BCC (theo Sub Copy_T2 bạn đã viết code)
+ nếu là dữ liệu đã có ngày trong Sh Data (trường hợp bạn sửa lại dữ liệu- và cập nhập dữ liệu sửa ấy vào Sh Data) thì code sẽ hỏi là có muốn sửa không? nếu có thì sửa-nếu No thì bỏ qua (Dữ liễu bạn sửa có thể ít hoặc nhiều dòng hơn dữ liệu cũ thì khi cập nhật cũng sẽ đầy đủ như dữ liệu đã sửa.
Bài này bạn có thể nhập dữ liệu của 1 vài năm (nếu trường ngày tháng năm được bố trí chuẩn- Phù hợp với hàm tìm kiếm) - có thể phát triển để xem lại- sửa-xóa- làm mới....

nhờ bạn xem lại giúp khi ấn chọn nhập giữ liệu chuyển từ BCC sang Data_BCC luôn bị mất đi dòng đầu tiên trong danh sách, như file ở đây bạn code giúp mình của tháng 2 khi chuyển sang Data_BCC bị mất người Nguyễn Văn 1

Bài đã được tự động gộp: 5/8/21

..............................................

Option Explicit

Sub abcd()
Dim bangCC
Dim bangDC
Dim rws, cls
Dim kq
Dim i, j, k, x, z, t
bangCC = Sheet1.Range("A8", Sheet1.Range("AL" & Rows.Count).End(xlUp))
t = bangCC(1, 1)
bangDC = Sheet2.Range("A8", Sheet2.Range("AL" & Rows.Count).End(xlUp))
rws = UBound(bangDC)
cls = UBound(bangDC, 2)
ReDim kq(1 To rws * 3, 1 To cls)
For i = 1 To rws
    If bangDC(i, 1) = t Then
        If z = 0 Then
            For x = 1 To UBound(bangCC)
                k = k + 1
                For j = 1 To cls
                    kq(k, j) = bangCC(x, j)
                Next j
            Next x
            z = 1
        End If
    Else
        k = k + 1
        For j = 1 To cls
            kq(k, j) = bangDC(i, j)
        Next j
    End If
Next i
With Sheet3
    .UsedRange.Clear
    .Range("A8").Resize(k, cls) = kq
End With
End Sub

cám ơn bạn có lẽ mình nêu chưa hết ý, sheet 2 của mình sẽ update giữ liệu mới khi sửa lại tháng nào đó trên BCC, ở file mình thêm sheet ketquamongmuon, là muốn nói mình đang sửa lại tháng 2, sẽ update lại vào Data_BCC như ketquamongmuon

 

[CHAOQUAY]

nhờ bạn xem lại giúp khi ấn chọn nhập giữ liệu chuyển từ BCC sang Data_BCC luôn bị mất đi dòng đầu tiên trong danh sách, như file ở đây bạn code giúp mình của tháng 2 khi chuyển sang Data_BCC bị mất người Nguyễn Văn 1

Bài đã được tự động gộp: 5/8/21

cám ơn bạn có lẽ mình nêu chưa hết ý, sheet 2 của mình sẽ update giữ liệu mới khi sửa lại tháng nào đó trên BCC, ở file mình thêm sheet ketquamongmuon, là muốn nói mình đang sửa lại tháng 2, sẽ update lại vào Data_BCC như ketquamongmuon

code bài trên không cập nhật à bạn?

 

[HUONGHCKT]

nhờ bạn xem lại giúp khi ấn chọn nhập giữ liệu chuyển từ BCC sang Data_BCC luôn bị mất đi dòng đầu tiên trong danh sách, như file ở đây bạn code giúp mình của tháng 2 khi chuyển sang Data_BCC bị mất người Nguyễn Văn 1

Bài đã được tự động gộp: 5/8/21

Do code Copy_T2 của bạn lấy không đủ dòng bạn dùng CurentRegion và sau đó For i = 3 ....sau đó nữa là KQ(i-2,j)...
mình đã sửa lại code ở Sub Copy_T2 rồi và chạy êm. nhác quá bạn thêm Application. gì gì đó cho không chớp màn hình nhé

 

[queluatb]

Do code Copy_T2 của bạn lấy không đủ dòng bạn dùng CurentRegion và sau đó For i = 3 ....sau đó nữa là KQ(i-2,j)...
mình đã sửa lại code ở Sub Copy_T2 rồi và chạy êm. nhác quá bạn thêm Application. gì gì đó cho không chớp màn hình nhé

Cám ơn bạn nhiều mình xem có chỗ nào chưa hiểu rất mong bạn giúp đỡ