Tìm kiếm và sửa dữ liệu nhập

[hoc341992]

Bạn tham khảo File bài viết ở Link sau để hiểu rõ và ứng dụng vào công việc của bạn:
http://www.giaiphapexcel.com/diendan/threads/theo-dõi-và-truy-vấn-đơn-thuốc-nơi-phòng-khám-bệnh.126073/#post-802703

em làm được rôì hihi,

 

[hoc341992]

Bạn xem tạm file này, tìm kiếm mỗi điều kiện là 1 ô, đâu thể nhập loạn lên rồi tìm như Google.

Private Sub Cmd1_Click()
If Cmd1.Caption = "SEACH" Then
Range("G81000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("j5:m6"), Unique:=False
Cmd1.Caption = "CLEAR"
Else
If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
Cmd1.Caption = "SEACH"
End If
End Sub

Anh ơi, lại làm phiền anh.
Với câu lệnh này e muốn thêm một ô tìm kiếm nữa có được không ( Tìm theo sđt)

 

[be_09]

Em muốn thêm một ô tìm kiếm nữa có được không ( Tìm theo sđt)

Muốn tìm trên sheet hay trên Form thì cũng phải cụ thể.

 

[hoc341992]

ở sheet2 anh be09. như file dưới e muốn thêm ô tìm kiếm bằng số điện thoại

 

[hoc341992]

em làm đc rồi tks mấy anh