các anh chị xem giùm đoạn code (2 người xem)

[komono]

Private Sub CommandButton1_Click()
Dim Search As String, Where
Dim timkiem As Range
Search = TextBox1.Text
Where = InStr(TextBox1.Text, Search)
If Where = 0 Then
MsgBox "XIN VUI LONG NHAP SO QUYET DINH CAN TIM", , " MESSAGE"
Else
Set timkiem = [A11:A10010].Find(Search, , , xlWhole)
If Not timkiem Is Nothing Then
timkiem.Select
Else
MsgBox " XIN LOI VI KHONG TIM THAY QUYET DINH, CAM ON BAN", , "MESSAGE"
End If
End If
End Sub

nếu cột a nhập vô thì tìm được
còn cột a = công thức thì không tìm được
rất mong sự giúp đỡ

 

[Quang_Hải]

Private Sub CommandButton1_Click()
Dim Search As String, Where
Dim timkiem As Range
Search = TextBox1.Text
Where = InStr(TextBox1.Text, Search)
If Where = 0 Then
MsgBox "XIN VUI LONG NHAP SO QUYET DINH CAN TIM", , " MESSAGE"
Else
Set timkiem = [A11:A10010].Find(Search, , , xlWhole)
If Not timkiem Is Nothing Then
timkiem.Select
Else
MsgBox " XIN LOI VI KHONG TIM THAY QUYET DINH, CAM ON BAN", , "MESSAGE"
End If
End If
End Sub

nếu cột a nhập vô thì tìm được
còn cột a = công thức thì không tìm được
rất mong sự giúp đỡ

Không xem file nhưng đọc diễn giải là biết không thể dùng Find được rồi. Chắc là phải vòng For Next thôi.