Advance Filter với trường có siêu liên kết Hyperlink (3 người xem)

[huy vu]

Xin chào các anh/chị GPE,
Em có câu hỏi sau, mong các anh/chị giúp.

Trong dữ liệu của em, 1 trường dữ liệu có Hyperlink (mỗi bản ghi đều có Hyperlink).

Em có sử dụng advanced filter (copy another location). Như thông lệ, các định dạng từ dữ liệu gốc sang hết dữ liệu kết quả. Nhưng các Hyperlink thì không thấy được.

Vậy Hyperlink không được với advanced filter.

Em cảm ơn các anh/chị.

 

[huy vu]

Có file mới nói chiện được!

Em xin gửi File đính kèm. File này có lấy ở đâu đó trên GPE, ví dụ lọc những người có chức vụ TP.
Tại trường họ tên có Hyperlink, tuy nhiên sang đến dữ liệu kết quả thì Hyperlink không còn tác dụng nữa.
em cảm ơn.

 

[huy vu]

Chuyển sang copy đi.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim I As Long
Application.ScreenUpdating = False
If Not Intersect(Target, Range("I3:N3")) Is Nothing Then
    Rows("17:1000").Clear
    I = Application.Match(Target.Offset(-1).Value, Range("A2:G2"), 0)
        Range("A2", Range("A2").End(4)).Resize(, 7).AutoFilter I, Target.Value
        Range("A2", Range("A2").End(4)).Resize(, 7).Copy
        Range("A16").PasteSpecial xlPasteAll
        ActiveSheet.AutoFilterMode = False
        [A16].CurrentRegion.Borders.Value = 1
    If [B17] <> "" Then Range([B17], [B65536].End(3)).Offset(, -1) = [row(a:a)]
End If
Application.ScreenUpdating = True
End Sub

Rất hay, nhưng lọc bị sai anh ạh.
Ví dụ, lọc người có chức vụ TP và Mã KT là C -> Sai -> Không cơ động như Advanced Filter.

 

[huy vu]

Các a/c có giải pháp nào giúp e ko ạ?
e cảm ơn!

 

[Quang_Hải]

Các a/c có giải pháp nào giúp e ko ạ?
e cảm ơn!

Bài này đơn giản quá mà. Bạn cố nghĩ thêm tí sẽ ra. Mình gợi ý cho nhé. Dùng AdvancedFilter lọc tại chỗ, sau đó mới dùng SpecialCells(12) để copy sang chỗ khác. Đơn giản thế thôi.

 

[huy vu]

Thời gian vừa rồi e quên pass nên không vào được.
Bài toán của em đã được giải quyết,
cảm ơn 2 anh đã tư vấn và cho giải pháp.