PDA

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 :)