Re: [ExcelVBA] VBA 'Like' using Cell Value

 

Hi Dave and David

Have changed the code and I am not using wildcard in P17.

When F8 thru, it skips the With Range("b"........../etc and message is Syntax error.

Any ideas ?

Thanks
Charlie

**************
Sub size()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
If LCase(Range("A" & i).Value) = (Range("p17").Value) Then
With Range("b" & i).Font.size = 20.Font.Italic = True
End With
End If
Next i
End Sub

From: David Grugeon
Sent: Sunday, July 24, 2011 11:43 PM
To: ExcelVBA@yahoogroups.com
Subject: RE: [ExcelVBA] VBA 'Like' using Cell Value

Are you sure you want to use "Like" If you just want to look up whatever is
in cell P17, then use "=" instead of "Like". Like would only be relevant if
P17 contains wildcards as well as text.

Best Regards
David Grugeon
Excel VBA Group Moderator

-----Original Message-----
From: ExcelVBA@yahoogroups.com [mailto:ExcelVBA@yahoogroups.com] On Behalf
Of railroads@slingshot.co.nz
Sent: Sunday, 24 July 2011 4:52 PM
To: ExcelVBA@yahoogroups.com
Subject: [ExcelVBA] VBA 'Like' using Cell Value

Hi

I want to replace this line of code that looks for "Chapter":

If LCase(Range("A" & i).Value) Like "chapter*" Then Range("b" & i).Font.size
= 20

This works well.

But I need the value in a cell to be looked for. Say cdell P17. Cell changes
value from time to time.

Have tried this code below but the code seems to miss the Like (Range("P17")
part and changes all rows to size = 20.

If LCase(Range("A" & i).Value) Like (Range("p17").Value) Then Range("b" &
i).Font.size = 20

Is there something not quite right?

Also I would like to add code re the font size to include Italics. Have
tried this below but the & seems to be the problem. How do I include
extra format codes.

.............Font.size = 20 & Font.Italic = True

Thanks

Charlie

------------------------------------

----------------------------------
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go
here: http://www.mousetrax.com/techtrax to enter the ezine, then search the
ARCHIVES for EXCEL VBA.

----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA

----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com

----------------------------------Yahoo! Groups Links

[Non-text portions of this message have been removed]

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (5)

Recent Activity:

• New Members 4

Visit Your Group

----------------------------------
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go here: http://www.mousetrax.com/techtrax to enter the ezine, then search the ARCHIVES for EXCEL VBA.

----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA

----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com

----------------------------------

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___