Nhờ các bạn hỗ trợ chỉnh sửa đoạn code với phương thức Find

[Phong Tran]

Chào các bạn, mình có đoạn code về tìm kiếm sử dụng phương thức Find như trong link đính kèm bên dưới.
Nếu giá trị tìm kiếm mình nhập trực tiếp vào bảng tính thì kết quả tìm kiếm bình thường, nhưng nếu giá trị đó là kết quả trả về của một công thức thì không tìm được.
Nhờ các bạn hỗ trợ giúp ạ.
Xin cảm ơn!

Bạn cần đăng nhập để thấy link

 

[Deleted member 1392]

Thử đoạn code này xem sao bạn

Sub Oval1_Click()
Dim rng As Range
Dim Row As Long

Worksheets("chamcong").Activate
For Each rng In Range("B2:J21")
    If rng.HasFormula = False And rng.Value <> "" Then Row = rng.Row
Next

MsgBox "Dòng là: " & Row

End Sub

 

[Phong Tran]

Thử đoạn code này xem sao bạn

Sub Oval1_Click()
Dim rng As Range
Dim Row As Long

Worksheets("chamcong").Activate
For Each rng In Range("B2:J21")
    If rng.HasFormula = False And rng.Value <> "" Then Row = rng.Row
Next

MsgBox "Dòng là: " & Row

End Sub

Cảm ơn bạn nhiều ạ, mình thử đoạn code của bạn được rồi.