Tổng hợp dữ liệu

[nguyenmanhhao]

Tôi có vấn đề này nhờ các anh chị trên diễn đàn giúp đỡ. File đính kèm...
Tôi có 3 sheet thể hiện danh sách lao động của từng phòng. Bây giờ tôi muốn khi nhập dữ liệu vào 1 trong 3 sheet thì dữ liệu đó sẽ tự động chuyển vào sheet tổng hợp. Rất mong nhận được sự giúp đỡ. Chân thành cảm ơn

 

[salam]

File có virut cẩn thận nhé.

 

[phamchicong]

Nghe có virut hốt hoảng quá, tải thử xuống quét thì có 2 con lận. File bị lỗi rùi, không giám tải nữa, nhưng cũng xin đóng góp ý kiến với bạn nguyenmanhhao chỉ cần dùng một bảng thôi và có thêm cột phòng ban nữa, khi nào lấy dữ liệu có thể dùng AutoFilter là được mà, không biết như thế có đúng ý đồ của bạn khi tách làm 3 sheet hay không hay là việc tách làm 3 sheet có nhiều nguyên nhân khác

 

[ndu96081631]

Up lên file không có virus đây

 

[nguyenmanhhao]

Cảm ơn PhamChiCong. Tôi hiểu ý của bạn, tuy nhiên vấn đề là làm sao để sheet tổng hợp cập nhật được dữ liệu ở sheet danh sách. Nhờ các bạn trên diễn đàn giải quyết giúp.

 

[SA_DQ]

Bạn phải chuột vô lần lượt 3 SheetNames & chọn dòng cuối để mở CS VBE & chép đoạn Code này vô:

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim Rng As Range
 If Not Intersect(Target, Range("H5:H55")) Is Nothing Then
   Set Rng = Range("A" & Target.Row & ":I" & Target.Row)
   CopyTo Rng
 End If
End Sub

Còn tại module1 ta copy Code này vô:

[B]Sub CopyTo(Rng As Range)[/B]
 Rng.Copy Destination:=Sheets("TgHop").Range("A" & _
   Sheets("TgHop").[a65432].End(xlUp).Row + 1) 
[B]End Sub[/B]

Cần lưu ý một số vấn đề sau:
* Bạn nên đổi lại tên các sheet, không nên có khoảng trắng, không nên dùng tiếng việt có dấu (Vì sẽ khó cho VBA khi cần gọi tên sheet) & cuối cùng là nên gợi nhớ & không nên quá dài (chiếm dụng lòng lề đường là bạn tự phạt bạn đò)
VD: [TCHC], [TaiVu] & [KyThuat]
* Cột ghi chú chắc lúc có lúc không; nhưng khi có thì chú ý phẩi nhập trước

 

[nguyenmanhhao]

Cảm ơn SA_DQ rất nhiều. Tuy nhiên,trên diễn đàn tôi thấy có rất nhiều người sử dụng công thức chứ không viết code như bạn. Với lại kiến thức lập trình của tôi bằng 0 nên không hiểu lắm. Tuy nhiên đọc hướng dẫn của SA-DQ thì tôi cũng làm được.Lần nữa cảm ơn bạn nhiều.