Tôi có 2 sheet, 2 sheet này đều có cột tên họ giống nhau, danh sach nhập vào cũng giông nhau, xin chì dùm có cách nào khi nhập danh sách vào sheet1, thì danh sách ở sheet2 cũng tự động cập nhật, mà không phải copy sang.
Cám ơn nhiều.
Nếu muốn thay đổi ở Sheet1 thì cập nhật ở Sheet2 và ngược lại thì bạn có thể dán Code sau vào Sheet1
Mã:
Private Sub Worksheet_Change(ByVal Target As Range)
Sheet[B]2[/B].Cells(Target.Row, Target.Column) = Target
End Sub
và dán code sau vào Sheet2
Mã:
Private Sub Worksheet_Change(ByVal Target As Range)
Sheet[B]1[/B].Cells(Target.Row, Target.Column) = Target
End Sub
Đây chỉ là gợi ý. Tuy nhiên, với bảng tính phức tạp, có nhiều công thức thì dùng cách này sẽ làm chậm bảng tính.
Vậy bạn có thể gởi File lên sẽ cụ thể hơn.
Nếu muốn thay đổi ở Sheet1 thì cập nhật ở Sheet2 và ngược lại thì bạn có thể dán Code sau vào Sheet1
Mã:
Private Sub Worksheet_Change(ByVal Target As Range)
Sheet[B]2[/B].Cells(Target.Row, Target.Column) = Target
End Sub
và dán code sau vào Sheet2
Mã:
Private Sub Worksheet_Change(ByVal Target As Range)
Sheet[B]1[/B].Cells(Target.Row, Target.Column) = Target
End Sub
Đây chỉ là gợi ý. Tuy nhiên, với bảng tính phức tạp, có nhiều công thức thì dùng cách này sẽ làm chậm bảng tính.
Vậy bạn có thể gởi File lên sẽ cụ thể hơn.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = Sheet1.Name Then
Sheet2.Cells(Target.Row, Target.Column) = Target
ElseIf Sh.Name = Sheet2.Name Then
Sheet1.Cells(Target.Row, Target.Column) = Target
End If
End Sub
Bạn ThuNghi, Tôi đã làm theo cách bạn, song có bị hiện tương :Khi sheet2 được cập nhật, thì những ô nào bên sheet1 là ô không có dữ liệu (trống) thì khi sheet2 ở ô tương ứng thay vì cũng trống, nó lại xuất hiện số o, bây giờ tôi cũng muốn nó cũng trống, như ô ở sheet1 nhờ bạn.
Thanks