VBA Find Function Question

[alexduy]

Hi, I have the following codes, just an example, that I use to find a word "Hello World" in an active worksheet. If it finds "Hello World", it will update cell A1 to "1000". Else, if it doesn't find "Hello World", it updates cell A2 to 2000. However, the codes breaks when it doesn't find "Hello World". How do I modify the code, so that the FIND function returns true or false or something similar, so that I can use the IF function to update the worksheet correctly.

I want a FIND function to work like this. If the worksheet has a world "Hello World", it updates cells A1 to 1000, and if it doesn't find the word "Hello World", it updates cells A2 to 2000.

I really appreciate the help. Thank you.

[protonLeah]

Please Login or Register  to view this content.

---

1. You declared Counter as an integer but you assigned a string to it when you put quotes around "1" making VBA convert it to an integer.
2. Notice the space: If IsJournal Entry = "Hello World"
3. Your If is missing a THEN
If IsJournalEntry = "Hello World" Then
It should look like:

Please Login or Register  to view this content.

[alexduy]

Thank you very much!

[alexduy]

I just double check the code and it doesn't work. I think it's because of this line of code, IsJournalEntry = ActiveCell.Value, this code will set it back to a blank string. So when the IF function check, it always update cell A2 with 2000 regarless if it find the words "Hello World" or not. The reason I'm doing this is because I want to check if a sheet has a data or it's a support for the data. If it has certain words in the sheet, it's a data sheet, and if it doesn't have certain words, it's a support sheet. Is there a better way to write it? I know mine is not an efficient way to do it.

[alexduy]

I found a way to get it to work. Thank you.