Copy only cell text, format and width

[S P P]

Copy only cell text, format and width

copy Plan 1 to Plan 2
range B11 to H2
range B13 to F2
range B15 to I2
range B17: P2000 to B4

 

[vcoolio]

Hello SPP,

If you also need the validation lists copied over, then this should help:-

Sub CopyAll()

Application.ScreenUpdating = False

        With Plan1
                .[B11].Copy
                        Plan2.[H2].PasteSpecial -4104
                .[B13].Copy
                        Plan2.[F2].PasteSpecial -4104
                .[B15].Copy
                        Plan2.[I2].PasteSpecial -4104
                .Range("B17:P2000").Copy
                        Plan2.[B4].PasteSpecial -4104
        End With

Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

I hope that this helps.

Cheerio,
vcoolio.

 

[S P P]

vcoolio

Good Morning!

I need you to copy without the validation lists, only the text that is in the cells

 

[vcoolio]

Hello SPP,

Perhaps this then:-

Sub CopyAll()

Application.ScreenUpdating = False

        With Plan1
                .[B11].Copy
                        Plan2.[H2].PasteSpecial -4163
                        Plan2.[H2].PasteSpecial -4122
                .[B13].Copy
                        Plan2.[F2].PasteSpecial -4163
                        Plan2.[F2].PasteSpecial -4122
                .[B15].Copy
                        Plan2.[I2].PasteSpecial -4163
                        Plan2.[I2].PasteSpecial -4122
                .Range("B17:P2000").Copy
                        Plan2.[B4].PasteSpecial -4163
                        Plan2.[B4].PasteSpecial -4122
        End With

Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

Cheerio.
vcoolio.

 

[S P P]

vcoolio

Worked perfectly

Thank you very much helped a lot

Copy Without the cell color you like

 

[vcoolio]

You're welcome SPP. I'm glad to have been able to assist you.

If you don't want the interior cell colors copied over to Plan2 then add this line of code:-

Plan2.Range("B4:P2000").Interior.ColorIndex = xlNone

directly after "End With".

Cheerio,
vcoolio.

 

[S P P]

vcoolio
Thank you for your help