memo field written to excel

[Guest]

When i write the contents of a memo field to an Excel cell i get squares at
the end of each line, presumably from the enter button. I have tried putting
in a line

invAdd = Replace([invAdd], Chr(13) & Chr(10), "")
xlApp.ActiveSheet.Range("G3") = invAdd

but is still get squares. Any suggestions please

 

[John Nurick]

HI Judith,

Replacing Chr(13) & Chr(10) with nothing, a space or Chr(10) work for
me. Chr(10) gives you a line break in an Excel cell.

Try something like this (assuming you're in a form):

xlApp.ActiveSheet.Range("G3").Formula = _
Replace(Me.invAdd.Value, vbCrLf, vbLf)

When i write the contents of a memo field to an Excel cell i get squares at
the end of each line, presumably from the enter button. I have tried putting
in a line

invAdd = Replace([invAdd], Chr(13) & Chr(10), "")
xlApp.ActiveSheet.Range("G3") = invAdd

but is still get squares. Any suggestions please

 

[Guest]

Perfect, thanks

HI Judith,

Replacing Chr(13) & Chr(10) with nothing, a space or Chr(10) work for
me. Chr(10) gives you a line break in an Excel cell.

Try something like this (assuming you're in a form):

xlApp.ActiveSheet.Range("G3").Formula = _
Replace(Me.invAdd.Value, vbCrLf, vbLf)

When i write the contents of a memo field to an Excel cell i get squares at
the end of each line, presumably from the enter button. I have tried putting
in a line

invAdd = Replace([invAdd], Chr(13) & Chr(10), "")
xlApp.ActiveSheet.Range("G3") = invAdd

but is still get squares. Any suggestions please