insert dòng và fill công thức dòng mới insert (1 người xem)

[destinythanhphuong]

Chào các anh chị
Em đang làm thủ công copy dòng trên và insert thêm dòng xong rồi lại thao tác fill công thức từ dòng trên xuống rất mất thời gian, không hiểu sao cột W và từ cột AD tới AO công thức dòng dưới dòng insert ko đúng. Em muốn hỏi có cách nào insert dòng và fill công thức + định dạng
Thanks các anh chị, xem dùm em file

http://www.mediafire.com/download/g5jjjmd2391acx9/Copy_of_Danh_sach_TC_san_xuat_tuan_1-10(macro)(2).xlsx

 

[destinythanhphuong]

Em tìm được code này nhưng dòng dưới dòng mới insert thì bị copy data luôn mặc dù công thức vẫn đúng
Anh chị nào có thể sửa lại code này giúp em
thanks

Sub Insert_Rows()
'
' Macro8 Macro
' Macro recorded 04/08/2003 by Stephen Hoadley
'

'
Selection.EntireRow.Insert
ActiveCell.Offset(-1, 0).Rows("1:1").EntireRow.Select
Selection.Copy
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Copy
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveCell.Offset(-1, 0).Range("A1").Select
Application.CutCopyMode = False


End Sub

 

[destinythanhphuong]

anh chị nào giúp em với

 

[app]

Thêm cái code này vào dòng cuối cùng:

ActiveCell.Range("a1, b1, f1").ClearContents

Ở đây a1 tương ứng với cell 1, b1 tương ứng với cell 2, f1 tương ứng với cell 5... Muốn xóa nội dụng cell nào thì đánh đỉa chỉ vô.

 

[destinythanhphuong]

Thêm cái code này vào dòng cuối cùng:

Ở đây a1 tương ứng với cell 1, b1 tương ứng với cell 2, f1 tương ứng với cell 5... Muốn xóa nội dụng cell nào thì đánh đỉa chỉ vô.

Dòng dưới TC091300181 mình apply code thì thấy rằng insert TC091300189 đồng thời TC081300424 thì bị mất đi và bị thay = TC091300189 luôn, mình muốn bạn sửa code lại dùm mình giữ nguyên TC081300424
Cám ơn bạn rất nhiều