Code chèn công thức vlookup từ file khác có tên file va sheet thay đổi (1 người xem)

[dmtk41]

Nhờ các bạn giúp mình code chèn công thức dưới đây

Range("G3").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC5,'[Current Block STock Dec14.xlsx]3Dec14'!R2C9:R5000C14,R1C,0)"

Trong đó tên file thay đổi theo tháng và tên sheet theo ngày hiện tai.

 

[VetMini]

ActiveCell.FormulaR1C1 = Replace(Replace(
"=VLOOKUP(RC5,'[Current Block STock <thang>.xlsx]<ngay>'!R2C9:R5000C14,R1C,0)",
"<thang>", Công thức tính tháng), "<ngay>", Công thức tính ngày)

Công thức tính tháng =Format(Date(), "MMMyy")
Công thức tính ngày = Format(Date(), "ddMMMyy")

Đại khái là vậy. Debug thử, chỗ nào không hài lòng lắm thì chỉnh sửa.

 

[dmtk41]

cảm ơn bạn. mình đang thử.