Xin hướng dẫn lọc ký tự trong excel

[thaomoc7379]

Chào các anh chị,
em muốn lọc kí tự đầu tiên của chuỗi họ tên, với code như dưới nhưng ko ra kết quả.
mong anh chị tư vấn giúp. em đính kèm file mẫu ạ
Sub loc()
Dim rg As Range
Dim criterial_rg As Range
Dim copy_rg As Range

Sheets("Data").Range("H:I").Delete

Set rg = Sheets("Data").Range("B4").CurrentRegion
Set criterial_rg = Sheets("Data").Range("E4").CurrentRegion
Set copy_rg = Sheets("Data").Range("H4")

rg.AdvancedFilter xlFilterCopy, criterial_rg, copy_rg

End Sub

 

[CHAOQUAY]

Chào các anh chị,
em muốn lọc kí tự đầu tiên của chuỗi họ tên, với code như dưới nhưng ko ra kết quả.
mong anh chị tư vấn giúp. em đính kèm file mẫu ạ
Sub loc()
Dim rg As Range
Dim criterial_rg As Range
Dim copy_rg As Range

Sheets("Data").Range("H:I").Delete

Set rg = Sheets("Data").Range("B4").CurrentRegion
Set criterial_rg = Sheets("Data").Range("E4").CurrentRegion
Set copy_rg = Sheets("Data").Range("H4")

rg.AdvancedFilter xlFilterCopy, criterial_rg, copy_rg

End Sub

Kết quả yêu cầu là như thế nào

 

[thaomoc7379]

yêu cầu là: ví dụ chọn Đ trong drop down list thì sẽ list ra những người có họ ký tự đầu là Đ: như Đỗ, Đoàn,...
em có gửi theo file mẫu ạ.

cảm ơn bác.

 

[CHAOQUAY]

yêu cầu là: ví dụ chọn Đ trong drop down list thì sẽ list ra những người có họ ký tự đầu là Đ: như Đỗ, Đoàn,...
em có gửi theo file mẫu ạ.

cảm ơn bác.

Thấy code trả kết quả đúng yêu cầu rồi mà bạn

 

[thaomoc7379]

Dạ
cảm ơn bác nhiều
em gửi lộn file ạ, file này mới đúng

 

[TongDe]

Tạo 1 TextBox rồi gán đoạn code này vào

Private Sub TextBox1_Change()
        ActiveSheet.ListObjects("TongHop").Range.AutoFilter Field:=2, Criteria1:=[C2] & "*"
End Sub

...

 

[thaomoc7379]

cảm ơn bác ạ, em đã làm được rồi