Vba copy dòng cuối và dữ liệu+thêm stt ok (ai giúp mình undo được mỗi khi thêm dòng không)

alpha1810

Thành viên mới
Tham gia
12/4/09
Bài viết
2
Điểm thành tích
1
Tuổi
39
Vba copy dòng cuối và dữ liệu+thêm stt ok (ai giúp mình undo được mỗi khi thêm dòng không)
file kèm theo.
 

File đính kèm

  • VBA STT them dong KO UNDO.xls
    36 KB · Đọc: 192

Sa DQ

Thành viên năng động
Tham gia
17/6/14
Bài viết
76
Điểm thành tích
8
Bạn thêm câu lệnh (có đánh dấu) để hiểu rõ hơn vấn đề cái đã!
PHP:
Sub THEMDONGCUOI()
On Error Resume Next
  ActiveSheet.AutoFilterMode = 0
  With [A65536].End(3)
  .Resize(, 175).Copy
  .Offset(1).Resize(1, 175).Insert xlDown, 0
  .Offset(1).Resize(1, 175).SpecialCells(1).Value = ""
  .Offset(1).Resize(1, 5).Interior.ColorIndex = 34 + .Row Mod 9  '<=|'
  End With
  Application.CutCopyMode = 0
End Sub
 

Tải bộ cài phần mềm Dự toán GXD, Đấu thầu GXD, Thanh Quyết toán GXD, Quản lý chất lượng GXD. Dành cho người mua bản quyền
Kích để xem khóa học Dự toán công trình
Kích để xem khóa học Dự toán công trình
Phần mềm quản lý chất lượng công trình QLCL GXD
Tìm hiểu khóa học Thanh Quyết toán GXD

Các bài viết mới

Top