Code VBA tự động lưu File Excel theo số IE cho trước (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

vutunam010583

Thành viên mới
Tham gia
21/3/08
Bài viết
28
Được thích
0
Nghề nghiệp
Kế toán
Chào các bạn !
Mình có File Excel kèm theo , Bây giờ mình muốn Lưu File Excel tự động theo số IE trên cột J, Khi Stt trên cột I thay đổi. ( trong Folder cho trước ) , sauđó Copysheet này qua File Excel mới rồi mới Lưulại
Ví dụ : Stt 1 thì số IE là : IE00001111, và Lưu File Excel tênlà : IE00001111 …
Mong các bạn viết giúp mình code VBA này với,
Xin chân thành Cảm ơn !
 
Lần chỉnh sửa cuối:
Chào các bạn
Sau một lúc mày mò và ghi code thì mình đã làm được code nhu sau.
Mình cũng rất vui vị tự mò được,

Sub Auto_Save()
Dim i As Long, SoIE
For i = 1 To Sheet1.Range("J1000").End(3).Row - 1
Range("B1").Value = i
SoIE = Sheet1.Range("I" & i + 1).Offset(, 1).Value
Sheets("Sheet1").Copy
ChDir "C:\Users\giang\Desktop\IE"
ActiveWorkbook.SaveAs Filename:="C:\Users\giang\Desktop\IE\" & SoIE & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook
ActiveWindow.Close
Next i
End Sub

Có gì mong các bạn chỉ giáo ! cảm ơn
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom