trích dữ liệu tự động

[mgiao]

Các bạn ơi
Có chiêu nào rút dử liệu tự động theo tháng và cộng dồn từ sheet "dulieu" sang sheet"Trích" khi nhập tên tháng vào ô $A$1 của Sheet 'Trích"?
Cảm ơn nhiều

 

[SA_DQ]

Xài macro sự kiện sau

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [A1]) Is Nothing Then
   Dim Sh As Worksheet, Rng As Range, sRng As Range, Cls As Range, Rng0 As Range
   Dim WF, SoDg As Long, Cot As Byte
      
   Set WF = Application.WorksheetFunction:               Set Sh = Worksheets("DuLieu")
   Set Rng = Sh.Range(Sh.[A4], Sh.[iV4].End(xlToLeft))
   Set sRng = Rng.Find([A1].Value, , xlFormulas, xlWhole)
   If Not sRng Is Nothing Then
      Set Rng0 = Range([A5], [A65500].End(xlUp)):        Cot = sRng.Column
      SoDg = Rng0.Rows.Count + 2
      For Each Cls In Rng0
         Cls.Offset(, 1).Value = WF.VLookup(Cls.Value, Sh.[A4].Resize(SoDg, Cot), Cot, 0)
         Cls.Offset(, 2).Value = WF.Sum(Sh.[A4].Resize(SoDg).Find(Cls.Value).Resize(, Cot))
      Next Cls
   End If
 End If
End Sub

 

[mgiao]

Cảm ơn bạn HYen17
Có thể nào dùng các hàm để thực hiện không? Vì mình nuốn chèn vài cột ở sheet " dulieu" và sheet " Trích" nhưng lại không biết sửa Code mà bạn đã cho như thế nào.Giúp mình với
Cảm ơn nhiều

 

[Lê Duy Thương]

Cảm ơn bạn HYen17
Có thể nào dùng các hàm để thực hiện không? Vì mình nuốn chèn vài cột ở sheet " dulieu" và sheet " Trích" nhưng lại không biết sửa Code mà bạn đã cho như thế nào.Giúp mình với
Cảm ơn nhiều

không muốn dùng code thì dùng đỡ cái ct mảng này xem sao

 

[chucuoi92]

không muốn dùng code thì dùng đỡ cái ct mảng này xem sao

Không cần phải dùng mảng đâu.
ở B5=VLOOKUP(A5,Dulieu!$A$5:$G$7,MATCH(trich!$A$1,Thang,0)+1,0)
ở C5=SUM(OFFSET(Dulieu!$B$4,MATCH(trich!$A5,Dulieu!$A$5:$A$7,0),,,MATCH(trich!$A$1,Thang,0)))
rồi fill xuống!
Thân!

 

[Lê Duy Thương]

không cần phải dùng mảng đâu.
ở b5=vlookup(a5,dulieu!$a$5:$g$7,match(trich!$a$1,thang,0)+1,0)
ở c5=sum(offset(dulieu!$b$4,match(trich!$a5,dulieu!$a$5:$a$7,0),,,match(trich!$a$1,thang,0)))
rồi fill xuống!
Thân!

cảm ơn bạn đã gơp ý
nhưng câu a cua bạn thì chỉ ổn đối với dữ liệu mẫu mà thôi
giả sủa tác giả thêm dữ liệu trùng nhau vào bên dưới thì e răngd vlook up cua bạn phải thay đổi đấy