Hopefully simple If Then

[fender357]

I'm so close to getting this to work, but I'm not quite sure how to get this written out correctly.



Pretty much what I want this to do is...

If <not a date> or <not containing "Partner*" or "Tech*"> Then

So far I've got

If IsDate(inpStr) = False  Then

and that works to tell me what is not a date.
I'm stuck on finding where (inpStr) is not a date and does not start with "Partner" or "Tech".

[spkoest]

Maybe something along these lines...

If IsDate(inpStr) = False Then
If Not (InpStr Like "Partner*") then
If Not (InpStr Like "Tech*") then
do something
End if
End if
End IF

[jaykio77]

try
if not isdate(inpStr) then
if left(inpStr,7) = "Partner" then
msgbox inpStr & " starts with partner"
end if
if left(inpStr,4) = "Tech" then
msgbox inpStar & "starts with Tech"
end if
else
msgbox inpStr & " is a date"
end if

[fender357]

The only thing I'm worried about is that there is already a lot more code after what was in there originally. Originally this line was just looking for space that wasn't blank but now it's trying to do what I've explained.

Here's a bit more of the code in this section.

  ' is this a data line?
      If IsDate(inpStr) = False Then
         ' split the lind using comma as the delimiter
         TestArray = Split(inpStr, DelimitChar)
         'check if a name line
         If InStr(1, TestArray(2), "(x") Or InStr(1, TestArray(1), "(x") Then
            WorkerName = Trim(TestArray(1)) & ", " & Trim(TestArray(2))
            WorkerName = Replace(WorkerName, """", "")

[fender357]

Thanks spkoest!
That did it!