Giúp mình xử lý lỗi "Type mismatch" khi dùng hàm Find trong VBA (1 người xem)

[johan]

Hello all,

Mình có chương trình macro xác định kí tự "/" xuất hiện cuối cùng trong string như sau:

Do
LastSlash = tmp
test = tmp + 1
tmp = Application.Find("/", UrlStr, test)
Loop While tmp <> 0

Khi debug thì chương trình báo lỗi Type mismatch khi không tìm được "/" tuy nhiên đây là điều kiện kết thúc việc tìm kiếm.
Nhờ mọi người tu vấn giúp cách giải quyết.
Minh xin cám ơn

 

[ChanhTQ@]

/(/ếu là mình, sẽ xài hàm InStr("GPE.COM" ,"GPE") trong VBA sướng hơn!

 

[johan]

Thanks you very much. Em dùng hàm của bác OK rồi