View Full Version : [SOLVED:] VBA Like statement
crmpicco
06-01-2005, 06:16 AM
Is my syntax wrong here?
Trim(Range(sRange).Text) Like Not "Page" Then
crmpicco
06-01-2005, 06:18 AM
sorry, heres my whole code. what am i missing?
If Trim(Range(sLeftRange).Text) <> UCase(Trim(Range(sLeftRange).Text)) And
Trim(Range(sRange).Text) Like Not "Page" Then
Range(sLeftRange).Interior.ColorIndex = iColour
End If
crmpicco
06-01-2005, 06:34 AM
changed to this, but still same problem....
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
crmpicco
06-01-2005, 06:35 AM
this is confusing
http://www.sunny-beach.net/manual/249.htm
johnske
06-01-2005, 07:01 AM
Hi crmpicco,
Yes, your syntax is wrong, try this
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
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.
HTH,
John
crmpicco
06-01-2005, 07:12 AM
nice 1:
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
johnske
06-01-2005, 02:05 PM
Not a prob, glad to be able to help :)
Powered by vBulletin® Version 4.2.5 Copyright © 2024 vBulletin Solutions Inc. All rights reserved.