giúp mình tạo vòng lặp ạ . (1 người xem)

[tuikhongten]

em có code này và nhờ mọi người tạo giúp em vòng lặp cho file ngày lùi lại 147,146,145 v.v , ER4 lùi về đến B4 rồi save và close ah .
em cảm ơn mọi người .

Workbooks.Open Filename:= _
"E:\BBLG\thay doi 4\2017\ngay gan nhat\147 ngay.xlsx", _
UpdateLinks:=3
Sheets("Sheet1").Select
Range("ER4").FormulaR1C1 = "='[150 ngay.xlsx]Sheet1'!R4C151"
Range("ER4").FormulaR1C1 = "='[150 ngay.xlsx]Sheet1'!RC[2]"
Range("ER4").AutoFill Destination:=Range("B4:ER4"), Type:=xlFillDefault

 

[tuikhongten]

em có code này và nhờ mọi người tạo giúp em vòng lặp cho ngày lùi lại , ER4 lùi về đến B4 rồi save và close ah .
em cảm ơn mọi người .

Workbooks.Open Filename:= _
"E:\BBLG\thay doi 4\2017\ngay gan nhat\147 ngay.xlsx", _
UpdateLinks:=3
Sheets("Sheet1").Select
Range("ER4").FormulaR1C1 = "='[150 ngay.xlsx]Sheet1'!R4C151"
Range("ER4").FormulaR1C1 = "='[150 ngay.xlsx]Sheet1'!RC[2]"
Range("ER4").AutoFill Destination:=Range("B4:ER4"), Type:=xlFillDefault