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

[pham ha 94]

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

 

[Maika8008]

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

 

[pham ha 94]

Đ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

Cam on bac nhieu. Trong cong thuc minh muon nhet sang o cuoi cung cua file nhan

 

[Maika8008]

Cam on bac nhieu. Trong cong thuc minh muon nhet sang o cuoi cung cua file nhan

Ô cuối là ô nào? Của cùng cột D à? Mà tôi thấy cái biểu của file đích chẳng ăn nhập gì với file nguồn.