Code cập nhật chân trang

[NH_DK]

A/C xem va sửa cho em code cập nhật chân trang. Em đã làm nhưng nó cập nhật được nhưng dữ liệu cũ vẫn chưa xoá được.
(Sửa ở sổ Nhật ký chung)

 

[NH_DK]

Code chân trang:

Sheet22.[a17:i21].Copy [a12].Offset(i - 12)
    With [a12].Offset(i - 12, 7)
        .FormulaR1C1 = "=Sum(R12C:R[-1]C)": .Value = .Value
    End With
    With [a12].Offset(i - 12, 8)
        .FormulaR1C1 = "=Sum(R12C:R[-1]C)": .Value = .Value
    End With

Phải thêm code xoá thế nào nữa để khi lọc dù dữ liệu nhiều hay ít thì nó chỉ hiện 1 vùng chân trang thôi ah!

 

[ThuNghi]

Code chân trang:

Sheet22.[a17:i21].Copy [a12].Offset(i - 12)
    With [a12].Offset(i - 12, 7)
        .FormulaR1C1 = "=Sum(R12C:R[-1]C)": .Value = .Value
    End With
    With [a12].Offset(i - 12, 8)
        .FormulaR1C1 = "=Sum(R12C:R[-1]C)": .Value = .Value
    End With

Phải thêm code xoá thế nào nữa để khi lọc dù dữ liệu nhiều hay ít thì nó chỉ hiện 1 vùng chân trang thôi ah!

1/ File muốn hỏi thì bạn chỉ cần đưa sh cần làm và sh nguồn => nhẹ file down.
2/

Sub LocSo205()
...
    n = SDich.Range("I65000").End(xlUp).Row
    SDich.Range("A12:I" & n).Clear 'Contents

Bạn nên thay

SDich.Range("A12:I" & n).Clear

Thành

SDich.Range("A12:I65000").Clear

Mình dự trù dòng max.
3/

    With [a12].Offset(i + 1, 7)
        .FormulaR1C1 = "=Sum(R12C:R[-1]C)" ': .Value = .Value
    End With

thành

With [a12].Offset(i - 12, 7)
        .FormulaR1C1 = "=Sum(R12C:R[-1]C)" ': .Value = .Value
    End With

Bạn sai ở chỗ là tại dòng 12 (A12) offset i +1
Có thể dồn chung cộng Nợ và Có 1 dòng code.
Code viết dài quá. Dù sao cũng ghi nhận bạn vận dụng rất tốt từ GPE.
Ráng lên.

 

[NH_DK]

Anh ThuNghi ơi, em đã làm theo cách của anh rồi và đã thanh công. Nhưng sao chi có thêm:

SDich.Range("A12:I65000").Clear

mà sao dung lượng lại tăng lên nhiều vậy? Từ 3Mb lên 5Mb đây anh ah!

 

[ThuNghi]

Anh ThuNghi ơi, em đã làm theo cách của anh rồi và đã thanh công. Nhưng sao chi có thêm:

SDich.Range("A12:I65000").Clear

mà sao dung lượng lại tăng lên nhiều vậy? Từ 3Mb lên 5Mb đây anh ah!

Vậy xoá luôn cho khoẻ. thay dòng trên thành

Const dongcuoi As Long = 10000
     Set SNguon = Sheets("DATA")
    Set sdich = Sheets("NKC")
    On Error Resume Next
    Application.ScreenUpdating = False
    With Sheets("NKC")
      .Row("12:" & dongcuoi).Delete Shift:=xlUp
    End With
    m = SNguon.Range("I65000").End(xlUp).Row

Bạn có thể thay dongcuoi=xxx

 

[NH_DK]

Vậy tất cả là thế này hả anh:

Sub LocSo205()
    Set SNguon = Sheets("DATA")
    Set SDich = Sheets("NKC")
    On Error Resume Next
    Application.ScreenUpdating = False
    n = SDich.Range("I50000").End(xlUp).Row
    Const dongcuoi As Long = 650000
     Set SNguon = Sheets("DATA")
    Set SDich = Sheets("NKC")
    On Error Resume Next
    Application.ScreenUpdating = False
    With Sheets("NKC")
      .Row("12:" & dongcuoi).Delete Shift:=xlUp
    End With
    SDich.Range("A12:I50000").Clear
    'SDich.Range("A12:I" & n).Clear
    m = SNguon.Range("I65000").End(xlUp).Row
    SNguon.Range("A12:I" & m).Copy Destination:=SDich.Range("A12")
    With SDich
        n = .Range("I65000").End(xlUp).Row
        For i = 12 To n
            If .Range("B" & i) = .Range("B" & i - 1) Then
                .Range("A" & i & ":C" & i) = ""
            End If
         Next
    End With
         Sheet22.[a17:i21].Copy [a12].Offset(i - 12)
    With [a12].Offset(i - 12, 7)
        .FormulaR1C1 = "=Sum(R12C:R[-1]C)": .Value = .Value
    End With
    With [a12].Offset(i - 12, 8)
        .FormulaR1C1 = "=Sum(R12C:R[-1]C)": .Value = .Value
    End With
    Application.ScreenUpdating = True
End Sub

Anh xem lại tổng thể dùm em nhé!!