set font size by cell value

[bak]

I'm trying to set a macro to change a font size for every cell in range("A-A"). If the value in that cell starts with: "chapter" then change the font size to 20.

 

[doofusboy]

Have you tried using conditional formatting?

 

[VoG]

Try

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) Like "chapter*" Then Range("A" & i).Font.size = 20
Next i
End Sub

 

[bak]

That code doesn't anything at all

 

[VoG]

It did for me

Excel Workbook
	A
1	z
2	x
3	c
4	chapter 1
5	chapter 2
Sheet1

 

[John Davis]

I'm trying to set a macro to change a font size for every cell in range("A-A"). If the value in that cell starts with: "chapter" then change the font size to 20.

How about

Sub bak()
Dim a As Range
Dim c As Range
Dim lr As Long

lr = Cells(Rows.Count, 1).End(xlUp).Row

Set a = Range("A1:A" & lr)

For Each c In a

If Left(c, 7) = "chapter" Then c.Font.Size = 20

Next c

End Sub

 

[sswcharlie]

Hi CoG

I am trying to slightly change your code.

In the line setting type size I want to also include italics and underline. Have tried several combinations (using code generated by recorder) to add to the code after:

............20,Font.Italic = True etc
but not working. Do I use a . or a comma, or something different for the second and third format items.

Also how do I add another argurment. eg we have "chapter' now, but I need "chapter1" and "chapter2" etc, each has a different setting. eg Size 16 Bold and Size 12 Bold

Your comments would be appreciated.
Thanks

Charlie Harris