Keep Source Formatting Problem

[Willow123]

Good Evening All,

So I'm having a problem copying text from one workbook to another and keeping the source formatting. Normally a person can use PasteSpecial or xlpaste:= and this can be accomplished. I think that my code that copies things and then pastes is the problem as it does not allow for the usual syntax? to work. Any thoughts would be greatly appreciated. I would like to keep my code as such (below) if possible.

sh2.Range("G11", sh2.Cells(Rows.Count, "G").End(xlUp)).Copy _
shxx.Cells(Rows.Count, 1).End(xlUp)(1, 9)' tried different variations of paste special or xlpaste:=... here to no avail
sh2.Range("I11", sh2.Cells(Rows.Count, "I").End(xlUp)).Copy _
shxx.Cells(Rows.Count, 1).End(xlUp)(1, 10)
' tried different variations of paste special or xlpaste:=... here to no avail​
sh2.Range("I1", sh2.Cells(Rows.Count, "I").End(xlUp)) _
.Replace What:=Chr(10), LookAt:=xlPart, Replacement:=" "

Thanks in advance.

 

[Yongle]

Your original code works for me
This copies from sh2 and pastes to shxx with source formatting retained

sh2.Range("G11", sh2.Cells(Rows.Count, "G").End(xlUp)).Copy shxx.Cells(Rows.Count, 1).End(xlUp)(1, 9)

Perhaps I misunderstand what you are trying to do
Here is a method to build what you want
- pasting everything before pasting values and column widths

    sh2.Range("G11", sh2.Cells(Rows.Count, "G").End(xlUp)).Copy
    With shxx.Cells(Rows.Count, 1).End(xlUp)(1, 9)
        .PasteSpecial (xlPasteAll)
        .PasteSpecial (xlPasteValues)
        .PasteSpecial (xlPasteColumnWidths)
    End With

 

[Willow123]

Thank you for replying Yongle. So, I must clarify a bit. So copy paste does work good but some of the text in the workbook Im copying out of has a Strikethrough font and once that is copied and pasted I have a code to delete it. I can't get it to carry over though and it is just normal looking text. Also, I can't delete in the other Workbook as its a record.

 

[Yongle]

Strikethrough carries through for me
- which version of Excel are you using?


Strikethrough does not work on forum, so I used underline to illustrate


SAMPLE TEXT (undererline = strikethrough)
"Cell being copied contains this text and the text in red has strikethrough but the text in blue does not"


Amend below to show what the paste text should be and how it should be formatted
"Cell being copied contains this text and the text in red has strikethrough but the text in blue does not"

 

[Fluff]

Is the strikethrough a result of conditional formatting?

 

[Willow123]

Hey sorry guys. Yongle that first bit did work, thank you for that. I had a subroutine manipulating the wrong data and I made it appear not to work.

 

[Yongle]

glad you are sorted