Hoàn thiện code cộng tổng nhiều trang in

[Robinhod]

A/C xem và hoàn thiện dùm em code sao cho trang in cuối cùng chỉ hiện Tổng cộng và giả trị tổng.

 

[ndu96081631]

A/C xem và hoàn thiện dùm em code sao cho trang in cuối cùng chỉ hiện Tổng cộng và giả trị tổng.

Code của bạn có đoạn:

Sheet2.Range("abc").Copy Sheet5.Range("A" & Sheet5.Range("a65000").End(xlUp).Row + 1)

Sửa lại thành vầy xem thế nào nhé:

Sheet2.Range("abc").Resize(1).Copy Sheet5.Range("A" & Sheet5.Range("a65000").End(xlUp).Row + 1)

 

[Hai Lúa Miền Tây]

Hoặc nếu muốn đổi thành tổng cộng thì bạn tạo 1 dòng tổng cộng nữa, copy rồi đưa vào.

 

[quochung2005]

Hoặc nếu muốn đổi thành tổng cộng thì bạn tạo 1 dòng tổng cộng nữa, copy rồi đưa vào.

Tạo cột phụ bên range("I3 :I5000")
dùng vòng lặp thêm cau lệnh này trước sub goi() nữa
Sub del()
Sheet5.Range("I3:I5000").End(xlDown).EntireRow.Delete 'dùng xóa dòng 'các Cộng chuyển sang trang sau", "Trang trước chuyển sang"
End Sub
thì sẽ đựơc một trang cộng hoàn chỉnh do ở đây mình không làm dược vòng lặp nhờ các bác hoàn chỉnh thêm

 

[Hai Lúa Miền Tây]

Tạo cột phụ bên range("I3 :I5000")
dùng vòng lặp thêm cau lệnh này trước sub goi() nữa
Sub del()
Sheet5.Range("I3:I5000").End(xlDown).EntireRow.Delete 'dùng xóa dòng 'các Cộng chuyển sang trang sau", "Trang trước chuyển sang"
End Sub
thì sẽ đựơc một trang cộng hoàn chỉnh do ở đây mình không làm dược vòng lặp nhờ các bác hoàn chỉnh thêm

Có phải bạn muốn xóa những dòng tổng ?
Thử dùng code sau:

Sub Xoa()
Dim rng As Range
Dim dong As Long
dong = Sheet5.Range("d65000").End(xlUp).Row
For Each rng In Range("a3:a" & dong)
  If Len(rng) = 0 Then
    rng.Resize(2).EntireRow.Delete
  End If
Next

End Sub

 

[quochung2005]

Có phải bạn muốn xóa những dòng tổng ?
Thử dùng code sau:

Sub Xoa()
Dim rng As Range
Dim dong As Long
dong = Sheet5.Range("d65000").End(xlUp).Row
For Each rng In Range("a3:a" & dong)
  If Len(rng) = 0 Then
    rng.Resize(2).EntireRow.Delete
  End If
Next

End Sub

đúng là như vậy muốn tạo trang in tổng cộng thì thêm macro xoa nua
minh xin ghép 2 macro lại
Sub goi()
Application.ScreenUpdating = False
ActiveWindow.View = xlPageBreakPreview
Dim dong As Long
Dim myPage As HPageBreak
Dim lngPageCount As Long
Call Xoa' cài này mằm trong macro xoa
With Sheet5
For Each myPage In Sheet5.HPageBreaks
Sheet2.Range("abc").Copy
Rows(myPage.Location.Row - 1).Insert xlShiftDown, True
Next
End With
Sheet2.Range("abc").Resize(1).Copy Sheet5.Range("A" & Sheet5.Range("a65000").End(xlUp).Row + 1)

Application.CutCopyMode = False
ActiveWindow.View = xlNormalView
Application.ScreenUpdating = True
End Sub
là trang in được hoàn chỉnh