Problem Retaining Font Color in macro when Copying String

[alf50]

I am having a Problem Retaining Font Color in macro when Copying String from one cell to another cell in a Macro.

Code: Select all   Expand viewCollapse view

Cell = Sheet.getCellByPosition(Y+22,X+14)
Crd = Cell.String
Cell = Sheet.getCellByPosition(J+3,I+15)
Cell.string = Crd

The text in the first cell is red, but the text read into variable Crd (a defined String) comes out Black in the second cell.
What is the issue with the "Crd" variable not retaining the Color Characteristic?

[JohnSUN-Pensioner]

If you copy string (only string, not text, not style, not format) why do you wait source font color?

Try to download this book and read chapters 5.23.1 Copy Spreadsheet Cells With The Clipboard and 5.23.2 Copy Spreadsheet Cells Without The Clipboard

Edit: PDF version of the text John_Sun recommends AndrewMacro.pdf - his link is to an older format. [RoryOF, Moderator]

Edit: Update I always encountered the problem of copying code from an PDF file - page numbers got inside, like 106 in this example Code: Select all   Expand viewCollapse view Else For i= 0 to laatsterow - int(mid(oViewCursor.cell.cellname,2,2)) iFotH = iFotH + oViewCursor.texttable.rows.getbyindex(Rindex+ i ).height Next i 106 End If Therefore, I usually refer to the text version of this book.

[Zizi64]

Apply same cell style what the source cell was applied for. (Get the cell style name from the source cell and Set same cell style for the target cell.)
Use the styles instead of the direct formatting properties. When you use the direct formatting properties, then you must get and set all of the individual properties one by one:
Get text color/set text color;
get background color/set background color;
get font type/set font type;
get font size/set font size;
get border/set border; ...etc...etc...

It is available with only one+one steps when you use the Cell styles (get style/set style)