Partial String Recognition 1

[Bass71]

Hi:

I need to evaluate only part of a text string. Is there a function that evaluates only part of a string and if that condition is met, then it triggers the "then" of my if-then statement?

Ex:

Dim Jan As Date
Jan = DateValue("1/1&quot
If ActiveCell.Value = "January" Then
ActiveCell(2, 8).Value = Jan

<<In the cell that's being evaluated, there are numbers after the &quot;January&quot;, so I need the condition to be satisfied when the word January, alone, is evaluated.

Thanks for your help...................

 

[JoeMiller]

You can use the Like operator to check your string.

If MyString Like &quot;*January*&quot; Then
'Execute code
End If

HTH
Joe Miller
joe.miller@flotech.net

 

[michiko]

How about using the mid function. Mid(expression, start, length). So you would put your expression, the character you want to start with, and how far over you want to go. The following assumes that you are starting at character 1, but you could start anywhere in the string.

Example:


if mid(activecell.value, 1, 7) = &quot;january&quot; then
activecell(2,8).value = jan
else
activecell(2, 8).value = &quot;&quot;
end if