(forget my last post. It could not be understood, because tags I wrote were replaced )
nice approach.

It just seems the

leads to a display that looks to me like

What do I do wrong?

(have added a line, that replaces just as ,
but that should not have caused the misbehaviour)

Gunnar

if i product a table on excel, e.g. a table of months and days for excel, how do i turn that information into html and make the whole html code appear in one cell.. thanx.. i really need to know how to do this thanx.

I have a cell comment. the comment is formated with some bolds and paracgraph/breaklin(exel formatting).

can you please help me to do two thinks:

1. copy the formated text to a adiacent cell(i found only to copy text – after copy the text looses the “bold formatting”)
2. transform excel bold and breakline into html tags.

thanx a lot.

Sub ShowCommentsNextCell()
‘based on code posted by Dave Peterson 2003-05-16
Application.ScreenUpdating = False

Dim commrange As Range
Dim mycell As Range
Dim curwks As Worksheet

Set curwks = ActiveSheet

On Error Resume Next
Set commrange = curwks.Cells _
.SpecialCells(xlCellTypeComments)
On Error GoTo 0

If commrange Is Nothing Then
MsgBox “no comments found”
Exit Sub
End If

For Each mycell In commrange
If mycell.Offset(0, 1).Value = “” Then
mycell.Offset(0, 1).Value = mycell.Comment.Text
End If
Next mycell

Application.ScreenUpdating = True

End Sub

this code copy the text but i loose formating and i need to transform bold and “line break” to html tags.

sry for my english

This seems to work for multi-line stuff.

This looks really helpful for me. Only problem I have with this is that the should create a new line within the cell. I don’t really understand your code, so don’t know how to change it.

Have you been able to do so by now?

Kind Regards,

Wannes

Is it possible to paste this code on a single cell in excel? when I try to paste the code I got something like this:
a hello world
b this is a div tag

I need to display this code in a single cell.

> Replace the ‘s with Chr(30), special-paste this as
> “Unicode” into a cell.

Should read as:
Replace the newlines as Chr(30), then special-paste this
as “Unicode” into a cell.

You wrote:

> I haven’t quite got the line break part worked out here.

Never have I! We’ll let’s just say I’m getting a bit anti-microsoft.

What I tried is as follows:

Replace the ‘s with Chr(30), special-paste this as “Unicode”
into a cell.

Then run the following macro (executes on ActiveCell):
Sub ReplaceChr30asNewLines()
For n = 1 To Len(ActiveCell.Text)
If (Mid(ActiveCell.Text, n, 1) = Chr(30)) Then
‘ This simply refuses to work when > 255
ActiveCell.Characters(n, 1).Text = Chr(10)
End If
Next
End Sub

The above works if the cell has less than 255 char’s.

It’s the old “Microsoft sacked the guy who wrote the code and
nobody here can fix it in 5 years” problem!

Brr…Microsoft!