Bullet Points

[Terry Bennett]

Is there any way of creating bullet points (as in Word) within cells in
Excel?

Sometimes I find it useful to separate comments within a cell and wonder
whether there is a way of doing this other than simply typing the '-' key
manually at the commencement of each new point.

Thanks.

 

[Gav123]

Hi Terry,

I don't think you can have bullet points, maybe you do this already but you
might find it easier to seperate your comments by using ALT+ENTER (which
starts a new line in the cell) and then "-" for each comment.

Regards,

Gav.

 

[Chip Pearson]

I think you would have to do it with code. Select the range and then run
this code.

Sub MakeBulletList()
Dim Rng As Range
For Each Rng In Selection.Cells
If Rng.HasFormula = False Then
If Rng.IndentLevel = 0 Then
Application.EnableEvents = False
Rng.Formula = "=CHAR(7)&"" " & Rng.Text & """ "
Application.EnableEvents = True
Rng.IndentLevel = 1
End If
End If
Next Rng
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)

 

[Terry Bennett]

Thanks Gav - that's what I'm doing at present.

Hi Terry,

I don't think you can have bullet points, maybe you do this already but
you
might find it easier to seperate your comments by using ALT+ENTER (which
starts a new line in the cell) and then "-" for each comment.

Regards,

Gav.

 

[Terry Bennett]

Thanks Chip

I think you would have to do it with code. Select the range and then run
this code.

Sub MakeBulletList()
Dim Rng As Range
For Each Rng In Selection.Cells
If Rng.HasFormula = False Then
If Rng.IndentLevel = 0 Then
Application.EnableEvents = False
Rng.Formula = "=CHAR(7)&"" " & Rng.Text & """ "
Application.EnableEvents = True
Rng.IndentLevel = 1
End If
End If
Next Rng
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)

 

[MartinW]

Hi Terry,

Not that this addresses your actual question, but if you use
Alt+0149 instead of - you will get a bullet instead of a dash

(to use unicode hold down Alt key type the numbers on the Number
Pad then let go the Alt key)

HTH
Martin

 

[Terry Bennett]

Thanks Martin

Hi Terry,

Not that this addresses your actual question, but if you use
Alt+0149 instead of - you will get a bullet instead of a dash

(to use unicode hold down Alt key type the numbers on the Number
Pad then let go the Alt key)

HTH
Martin

 

[Doug McGarry]

Simply write you list in Word and copy and paste it into excel.

Or copy your list to Word, make it bulleted, and copy it back.

Regards

Doug

 

[Gord Dibben]

Easier to use Arial font.

Hold Alt key and type 0149 on numpad keys.

Will get a bullet point.


Gord Dibben MS Excel MVP

 

[alanglloyd]

Easier to use Arial font.

Hold Alt key and type 0149 on numpad keys.

Will get a bullet point.

That's OK for later fonts (Verdana, Lucida, etc) but with Arial it
looks more like a pin-prck than a bullet-point.OTOH Webdings lower-
case L looks like a cannon-hole.

Alan Lloyd