Nhập dữ liệu từ Sheet này, tự động chạy qua Sheet kia (1 người xem)

[haigames]

Em thu tiền ăn học sinh, nguyên cùi phiếu, trước nay phải nhập vô từng Sheet cực quá, giờ muốn nhập vô Sheet tổng hợp, chương trình sẽ tự dò tìm lớp và tự động dữ liệu sẽ chuyển qua Sheet có lớp tương ứng.
Có file kèm theo, anh chị giúp em với

 

[thanh_tks]

Em thu tiền ăn học sinh, nguyên cùi phiếu, trước nay phải nhập vô từng Sheet cực quá, giờ muốn nhập vô Sheet tổng hợp, chương trình sẽ tự dò tìm lớp và tự động dữ liệu sẽ chuyển qua Sheet có lớp tương ứng.
Có file kèm theo, anh chị giúp em với

Bạn xem đã được chưa ?

 

[khoavu87]

cai này dung VBA thì ngon.mình làm thử một dòng cho bạn.
Sub gpe()
Sheets("9").Range("G5").FormulaR1C1 = "=Tonghop!RC"
Sheets("8").Range("G10").FormulaR1C1 = "=Tonghop!RC"
End Sub

 

[SA_DQ]

Bạn dùng macro sau:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Columns("F:F")) Is Nothing Then
   Dim MySh As String
   MySh = Target.Offset(, -3).Value
   Sheets(MySh).[B65500].End(xlUp).Offset(1).Resize(, 6).Value = _
      Target.Offset(, -4).Resize(, 6).Value
 End If
End Sub

Cách dùng:
Phải chuột vô thanh SheetName đang có tên 'TongHop' & chọn dòng cuối View Code

Cửa sổ VBE hiện ra;
Bạn Copy toàn bộ macro & dàn vô đó;


Cách vận hành: Khi bạn nhập dữ liệu đến cột F thì macro sẽ đem dòng dữ liệu đó sang trang tính có tên tương ứng để chép vô

Chúc khỏe!

 

[ndu96081631]

Em thu tiền ăn học sinh, nguyên cùi phiếu, trước nay phải nhập vô từng Sheet cực quá, giờ muốn nhập vô Sheet tổng hợp, chương trình sẽ tự dò tìm lớp và tự động dữ liệu sẽ chuyển qua Sheet có lớp tương ứng.
Có file kèm theo, anh chị giúp em với

Bài này dủ dùng code hay công thức đều sẽ không bằng PivotTable đâu ---> 1 nhát là ra kết quả (trong 10 giây)
giống vầy nè:

Tuy nhiên, nhập liệu kiểu này vẫn có cảm giác thiếu thiếu cái gì đó (hình như là MÃ) ---> Nhở trùng tên, trùng lớp thì làm sao?
Về lậu dài nên lưu ý điều này (dù là trích lọc bằng phương pháp gì)

 

[Tran Mui]

Cám ơn

cảm ơn SA_DQ đã viết đoạn code nhập dữ liệu chuyển qua sheet khác
tôi muốn nhờ bạn bỏ giúp phần dữ liệu khi chuyển qua nó có mặt tại hai dòng
( bỏ dòng ở dưới bảng )
đính kèm file