Copy công thức từ file A sang file B đang đóng

Như tiêu đề, mình muốn copy công thức =IF(K4="";"";LEFT(A4;FIND(".";A4))&RIGHT(TEXT(YEAR(TODAY());"00");2)&COUNTIFS(K:K;">="&DATE(YEAR(TODAY());1;1);K:K;"<="&DATE(YEAR(TODAY());12;31)))
Công thức trên dòng 4 là dòng cuối cùng của file lưu nội dung
Nhờ các bạn giúp mình

Đoạn mã sau sẽ chép công thức từ D4 file mở sang D4 file đóng (tên sheet như trong code):

Sub CopyFormula()
    Dim sWb As Workbook
    Dim dWb As Workbook
    Dim sPath$

Application.ScreenUpdating = False
    sPath = "D:GPE_Download"  'Thay duong dan dung tai day
    Set sWb = ThisWorkbook
    Set dWb = Workbooks.Open(sPath & "file ghi.xlsm")
    dWb.Worksheets("Ke hoach 2023").Range("D4").formula = sWb.Worksheets("Bai con su dung").Range("D4").formula

dWb.Close True
End Sub

www.giaiphapexcel.com/diendan/threads/copy-c%C3%B4ng-th%E1%BB%A9c-t%E1%BB%AB-file-a-sang-file-b-%C4%91ang-%C4%91%C3%B3ng.164020/

Khóa học SprinGO phù hợp

Khóa học Power PI – Ứng dung trong Nhân sự

TỔNG QUAN KHÓA HỌC: POWER BI CHO NGÀNH NHÂN SỰ Khóa học Power BI cho Nhân sự được thiết kế dành riêng cho các...

Xem khóa học