Bullet Points

  • Thread starter Thread starter Terry Bennett
  • Start date Start date
T

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.
 
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.
 
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)
 
Thanks Gav - that's what I'm doing at present.

Gav123 said:
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.
Click to expand...
 
Thanks Chip

Chip Pearson said:
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)
Click to expand...
 
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
 
Thanks Martin

MartinW said:
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
Click to expand...
 
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
 
Easier to use Arial font.

Hold Alt key and type 0149 on numpad keys.

Will get a bullet point.


Gord Dibben MS Excel MVP
 
Easier to use Arial font.

Hold Alt key and type 0149 on numpad keys.

Will get a bullet point.
Click to expand...

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
 
Back
Top