Lấy dữ liệu từ sheet này sang sheet khác theo điều kiện (1 người xem)

[namoac]

[TABLE="width: 1131"]
[TR]
[TD="colspan: 16"]Vui lòng giúp mình viết một đoạn code Bỏ vào " Run" để trích dữ liệu từ "Sheet data" sang bên sheet kết quả.
Với điều kiện là mình có thể tùy biến Ô C1 để cho ra kết quả khác nhau cho từng loại hàng khác nhau.
Vì mỗi mặt hàng có số hàng xuất nhập khác nhau nên dù mình đã dùng macro nhưng không thể quay được Atofill.
Rất mong nhận được sự giúp đỡ. Chân thành cảm ơn[/TD]
[/TR]
[/TABLE]
Vui lòng xem file đính kèm.

 

[Quang_Hải]

Bạn xem file xem đúng yêu cầu chưa nghen

 

[ChanhTQ@]

Thêm 1 tham khảo cho bạn, bằng AutoFiter

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C1")) Is Nothing Then   
   Dim Sh As Worksheet
 
   Set Sh = ThisWorkbook.Worksheets("DATA")
   [b2].CurrentRegion.Offset(2).ClearContents
   Sh.[b1].CurrentRegion.AutoFilter Field:=13, Criteria1:=Target.Value
   Sh.[b1].CurrentRegion.Offset(1).Copy Destination:=[A3]
   Sh.[b1].CurrentRegion.AutoFilter
 End If
End Sub

Ta có thể lập danh sách chọn mã tại [C1] sẽ tiện dụng hơn.

 

[Tran Dinh Thinh]

Dear all,

E đang sử dụng VBA như trên. Tuy nhiên khi e Update dữ liệu Cell C1 (được link từ 1 sheet khác sang) thì VBA k tự động chạy cho tới khi e kích đúp vào Cell C1. Mọi người có thể giúp đỡ e về vấn đề này được k?

Trân trọng