Is my syntax wrong here?
Code:Trim(Range(sRange).Text) Like Not "Page" Then
Printable View
Is my syntax wrong here?
Code:Trim(Range(sRange).Text) Like Not "Page" Then
sorry, heres my whole code. what am i missing?
Code:If Trim(Range(sLeftRange).Text) <> UCase(Trim(Range(sLeftRange).Text)) And
Trim(Range(sRange).Text) Like Not "Page" ThenRange(sLeftRange).Interior.ColorIndex = iColour
End If
changed to this, but still same problem....
Code:If Trim(Range(sLeftRange).Text) <> UCase(Trim(Range(sLeftRange).Text)) And Not Trim(Range(sLeftRange).Text) Like "Page" Then
Range(sLeftRange).Interior.ColorIndex = iColour
End If
this is confusing
http://www.sunny-beach.net/manual/249.htm
Hi crmpicco,
Yes, your syntax is wrong, try this
Note that while 'like' can be used as shown above for an exact match, the 'like' atatement is usually used with a wild-card character to find similar words E.G. "*Page" will give "Front Page", "Last Page",...etc. OR, "Page*" will give "Page one", Page two", etc.Code:Sub LikeItOrNot()
Dim sRange
sRange = "A1"
If Not Trim(Range(sRange).Text) Like "Page" Then
MsgBox "Not Page"
Else
MsgBox "Page"
End If
End Sub
HTH,
John
nice 1:
Code:If Trim(Range(sLeftRange).Text) <> UCase(Trim(Range(sLeftRange).Text)) And Not Trim(Range(sLeftRange).Text) Like "*Page*" Then
Range(sLeftRange).Interior.ColorIndex = iColour
End If
Not a prob, glad to be able to help :)