VBA Sửa code theo tên file (1 người xem)

[destinythanhphuong]

chào các anh chị
Em có câu lệnh tuy nhiên khi lưu tên file khác thì câu lệnh không đổi theo.

Nhờ anh chị sửa giúp em vì hằng tuần em đều thay đổi tên file/
em cảm ơn rất nhiều.

Private Sub CommandButton3_Click()
Application.Run "'KE HOACH SAN XUAT THANG 11 - TUAN 1.xlsm'!Macro2"
ActiveSheet.Range("$A$7:$OZ$1000").AutoFilter Field:=4, Criteria1:="<>"
'AHT
Range("CW3:CX3").Select
Selection.Copy
Range("CW8").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Range("CW8").Resize(Range("B2").Value, 2).Select
ActiveSheet.Paste
Selection.SpecialCells(xlCellTypeVisible).Select
Application.Run "'KE HOACH SAN XUAT THANG 11 - TUAN 1.xlsm'!PastValues"
'BHT
Range("AM3:AN3").Select
Selection.Copy
Range("AM8").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Range("AM8").Resize(Range("B2").Value, 2).Select
ActiveSheet.Paste
Selection.SpecialCells(xlCellTypeVisible).Select
Application.Run "'KE HOACH SAN XUAT THANG 11 - TUAN 1.xlsm'!PastValues"

'xóa so 0
Cells.Select
Selection.Replace What:="0", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

ActiveSheet.ShowAllData
Range("AM8").Select

End Sub

 

[be_09]

chào các anh chị
Em có câu lệnh tuy nhiên khi lưu tên file khác thì câu lệnh không đổi theo.

Nhờ anh chị sửa giúp em vì hằng tuần em đều thay đổi tên file/
em cảm ơn rất nhiều.

Góp ý cho bạn:
1/ Không nên bắt người giúp phải theo code của mình (vì mỗi người có 1 cách làm riêng).
2/ Vì vậy, bạn nên đính kèm File với sheet cần lưu (là sheet nào) và tên File mới xuất ra cần đặt tại Cell nào (cụ thể Cell)