Excel Macro move cell contents including Underline/Bold

[RWazoo]

Using a macro, I'm copying the contents of one cell to another cell. The contents of the cell being copied may have underlining or bold characters. When the micro copies the contents of the cell, the result is that the underlined and bold characters are lost (become Regular).

 

[My Aswer Is This]

A script like this works for me:

Sub Copy_Range()
'Modified 10/14/2020 3:17:10 PM  EST
Application.ScreenUpdating = False
Range("A1").Copy Range("B4")
Application.ScreenUpdating = True
End Sub

 

[RWazoo]

Sheets("Input").Cells(5, 1) = Sheets("Results").Cells(R, 1)

If the cell contents of: Sheets("Results").Cells(R,1) is: Bold Underline
the above statement is returning: Bold Underline to: Cells(5,1)
I would like data to be the same format: Bold Underline

 

[Fluff]

Try

Sheets("Results").Cells(R, 1).Copy Sheets("Input").Cells(5, 1)

 

[RWazoo]

That did it! Thank you very much!

 

[Fluff]

Glad we could help & thanks for the feedback.

 

[My Aswer Is This]

My script worked exactly like Fluff script. But in your original post you did not provide specific details.
I figured you would know how to modify my script to your needs.
Glad things are working for you.