khamha
Không có việc gì khó...
- Tham gia
- 4/6/10
- Bài viết
- 662
- Được thích
- 846
- Nghề nghiệp
- CNVC Laos
Mình có một cái Code dùng để sao chép dữ liệu từ Sheet1 Sang Sheet2 và 3,
mình muốn nếu có ai xóa dữ liệu ở Sheet2 và 3,thì sau khi mở lại Sheet đó thì
dữ liệu sẽ tự động cập nhật lại.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A8:AO65500]) Is Nothing Then _
Sheet1.Range("A8:AO" & Sheet1.[AO65500].End(xlUp).Row).Copy Sheet2.[A1]
Sheet1.Range("A8:AO" & Sheet1.[AO65500].End(xlUp).Row).Copy Sheet3.[A1]
End Sub
Cảm ơn các bạn.
mình muốn nếu có ai xóa dữ liệu ở Sheet2 và 3,thì sau khi mở lại Sheet đó thì
dữ liệu sẽ tự động cập nhật lại.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A8:AO65500]) Is Nothing Then _
Sheet1.Range("A8:AO" & Sheet1.[AO65500].End(xlUp).Row).Copy Sheet2.[A1]
Sheet1.Range("A8:AO" & Sheet1.[AO65500].End(xlUp).Row).Copy Sheet3.[A1]
End Sub
Cảm ơn các bạn.
