code Advance filter (1 người xem)

[DMQ]

em có file dùng code Advance Filter bị sai chổ nào mà không chạy được. Mong các AC giúp đỡ!!!!

 

[SA_DQ]

Bạn làm theo mình chỉ dẫn, nha:

Lọc duy nhất vùng dữ liệu của cột bắt đầu từ [B5] sang cột [N] bắt đầu từ N1;
Nếu thao tác đúnh bạn sẽ có 9 người; Gán cho 9 ô này cái tên, như 'NNh'

Tại [I2] bạn tạo 1 Validation cho cái tên vừa có này

Tại [j2] bạn nhập vô ngày nào đó như 4/24/2014; Ô bên fải liền kề, bạn nhập ngày 5/5/2014, ví dụ

Tại [G2] bạn thiết lập công thức =">=" & J2 & ô bên cạnh là ="<=" & K2

Bạn chưa cần sửa macro, thử chọn chàng cu Tí, sẽ 2 dòng của chàng này hiện lên;

Bạn nghiên cứu & tự sửa tiếp 2 địa chỉ trong macro nha.

Chúc thành công.

 

[DMQ]

Ý của mình là muốn biết trong một khoảng thời gian, chi tiết nhận hàng của một nơi nào đó. Sao mình làm theo cách của bạn HYen17 chỉ nhận được chi tiết của nơi nhận chứ không theo khoảng thời gian. Mà sao mình lọc duy nhất thì có tất cả 11 người lựn. Mong bạn giúp đỡ.

 

[ChanhTQ@]

Bạn xem theo file

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 Dim Rng As Range
 
 Set Rng = [a5].CurrentRegion
 If Not Intersect(Target, [I2].Resize(, 3)) Is Nothing Then
   Rng.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "g1:i2"), CopyToRange:=Range("G4:K4"), unique:=True
 End If
End Sub

 

[DMQ]

Các AC cho em hỏi nếu muốn lọc qua sheet khác thì chỉnh code làm sao. có phải là Sheet1.[A5] và Sheet2.[G1:I2] phải không ah!!!

 

[Ngoai Thanh]

Các AC cho em hỏi nếu muốn lọc qua sheet khác thì chỉnh code làm sao. có phải là Sheet1.[A5] và Sheet2.[G1:I2] phải không ah!!!

Bạn thử sửa CopyToRange:=Range("G4:K4"), unique:=True Thành CopyToRange:=sheet2.Range("G4:K4"), unique:=True xem sao . Xin lỗi Thày Chanh, nhà em hóng hớt tý .

 

[DMQ]

Cho em hỏi tí: Code này đặt ở Sheet2 phải không các AC???

 

[Ngoai Thanh]

Cho em hỏi tí: Code này đặt ở Sheet2 phải không các AC???

Vẫn để nguyên ở sheet1, chỉ sửa code ( 2 chỗ nhé ) . mà bạn cứ "vọc" đi mà .