tự động cập nhật vào sheet đang mở hoặc đóng

[minhbinhdinh]

Chào mọi người. Mong mọi người giúp cho ý này.
Tôi có sheet 1("thông tin khách hàng") có nội dung như sau :
tên số ĐT
A 123
B 456
... ....
và đang được lưu tại C:\....
Tôi muốn tạo ra một sheet 1 như trên nhưng nằm ở D:\luu\... quan trọng là khi cập nhật ở sheet 1 nào đi nữa thì sheet 1 còn lại thay đổi theo dù sheet 1 này đang mở hoặc đóng.
Cảm ơn mọi người trước...sau này có dịp đãi mọi người r. Bầu Đá...hi hi
(mục đích là tạo file backup nếu quên tạo file backup là tiêu ..)

 

[Hai Lúa Miền Tây]

Chào mọi người. Mong mọi người giúp cho ý này.
Tôi có sheet 1("thông tin khách hàng") có nội dung như sau :
tên số ĐT
A 123
B 456
... ....
và đang được lưu tại C:\....
Tôi muốn tạo ra một sheet 1 như trên nhưng nằm ở D:\luu\... quan trọng là khi cập nhật ở sheet 1 nào đi nữa thì sheet 1 còn lại thay đổi theo dù sheet 1 này đang mở hoặc đóng.
Cảm ơn mọi người trước...sau này có dịp đãi mọi người r. Bầu Đá...hi hi
(mục đích là tạo file backup nếu quên tạo file backup là tiêu ..)

Nếu mục đích chỉ là Backup file thì tôi khuyên bạn không nên dùng cách này mà là dùng cách khi nhập liệu, lưu hoặc thoát khỏi file thì nó sẽ tự động backup thành 1 file mới vào 1 nơi nào đó trong ổ đĩa máy tính của bạn.
Bạn có đồng ý không, nếu đồng ý ta đi tiếp.

 

[minhbinhdinh]

cảm ơn anh domfootwear.
vậy thì cứ mỗi lần làm như vậy ta phải tạo ra một file mới hay sao anh.
Minh làm cách này với mục đích là bảng tính này không phải mình sử dụng thường xuyên mà người khác sử dụng nó.có ngày họ làm sai hoặc mất dữ liệu là réo mình, mình hết đường đỡ.
Anh cố gắng giúp mình với nhé.

 

[Hai Lúa Miền Tây]

cảm ơn anh domfootwear.
vậy thì cứ mỗi lần làm như vậy ta phải tạo ra một file mới hay sao anh.
Minh làm cách này với mục đích là bảng tính này không phải mình sử dụng thường xuyên mà người khác sử dụng nó.có ngày họ làm sai hoặc mất dữ liệu là réo mình, mình hết đường đỡ.
Anh cố gắng giúp mình với nhé.

Backup vào 1 đường dẫn nào đó khi đóng file, file backup mới sẽ đè lên cũ.
Bạn dùng code sau nhé

Private Sub Workbook_Deactivate()
    Fname = ActiveWorkbook.Name
    ActiveWorkbook.SaveCopyAs "D:\Backup\ " & "Backup of " & Fname [B][COLOR=Green]'Chinh lai duong dan cua ban cho hop ly[/COLOR][/B]
    ActiveWorkbook.Save
End Sub

 

[nguyennb]

Bạn thử sài cài shortcut xem.

 

[anhtotbung35]

Backup vào 1 đường dẫn nào đó khi đóng file, file backup mới sẽ đè lên cũ.
Bạn dùng code sau nhé

Private Sub Workbook_Deactivate()
Fname = ActiveWorkbook.Name
ActiveWorkbook.SaveCopyAs "D:\Backup\ " & "Backup of " & Fname [B][COLOR=Green]'Chinh lai duong dan cua ban cho hop ly[/COLOR][/B]
ActiveWorkbook.Save
End Sub

Cho mình hỏi thêm, nếu file này chép sang một máy khác, máy đó không có đường dẫn để lưu file backup (VD: D:\Backup\ hoặc máy đó không có ổ đĩa D), chẳng lẻ mở cái VBA này ra chỉnh lại hay sao. Có cách nào khi lưu file code sẽ tự tạo ra thư mục (Backup chẳng hạn, mà không cần hỏi gì hết).

 

[Hai Lúa Miền Tây]

Cho mình hỏi thêm, nếu file này chép sang một máy khác, máy đó không có đường dẫn để lưu file backup (VD: D:\Backup\ hoặc máy đó không có ổ đĩa D), chẳng lẻ mở cái VBA này ra chỉnh lại hay sao. Có cách nào khi lưu file code sẽ tự tạo ra thư mục (Backup chẳng hạn, mà không cần hỏi gì hết).

Thì bạn Backup nó vào chung với Folder của file gốc. (Thisworkbook.Path &"\" & "Backup of " & Fname)

 

[anhtotbung35]

Thì bạn Backup nó vào chung với Folder của file gốc. (Thisworkbook.Path &"\" & "Backup of " & Fname)

Đã dùng backup rồi mà sao còn backup chung với folder của file gốc. Backup mục đích trách trường hợp ổ đĩa đó bị hư đột ngột mà bạn.

 

[Hai Lúa Miền Tây]

Đã dùng backup rồi mà sao còn backup chung với folder của file gốc. Backup mục đích trách trường hợp ổ đĩa đó bị hư đột ngột mà bạn.

Bạn nên đọc lại đề tài coi người ta cần gì rồi hãy hỏi vặn lại mình nhé.
Theo bạn backup như mình làm vô nghĩa hay sao? Nếu 1 ngày đẹp trời nào đó bạn thao tác trên file của bạn, Xóa, điều chỉnh trên đó, xong lưu file.... Đến lúc bạn nhớ ra là mình nhằm, muốn mở lại cái cũ xem... Lúc đó bạn tính sao? Mục đích Backup này không hẳn là dự phòng ổ đĩa bị hư đột ngột đâu bạn.