Sheet1 dùng để cập nhật dữ liệu cho tất cả 63 tỉnh. Làm sao để link dữ liệu được nhập vào từ sheet này sang các sheet khác chỉ bao gồm 1 số tỉnh được chia theo từng vùng, ví dụ sheet6.
Để link toàn bộ dữ liệu, tôi đã làm được rồi bằng đoạn code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("AA7:AP69")) Is Nothing Then
Dim lRow As Long
Range("A7:B70").Copy Destination:=Sheets("sheet6").Range("A" & 7 & ":B" & 70)
Range("AA7:AP70").Copy Destination:=Sheets("sheet6").Range("C" & 7 & ":R" & 70)
End If
End Sub
Để link toàn bộ dữ liệu, tôi đã làm được rồi bằng đoạn code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("AA7:AP69")) Is Nothing Then
Dim lRow As Long
Range("A7:B70").Copy Destination:=Sheets("sheet6").Range("A" & 7 & ":B" & 70)
Range("AA7:AP70").Copy Destination:=Sheets("sheet6").Range("C" & 7 & ":R" & 70)
End If
End Sub