Copy format without copy & paste

[Gunnar Johansson]

Hi,
I have merged cells , let's say in sheet1:
Reference A10 has MergeArea "A10:A14"

I want to have the same format on a similar merged area in sheet2: "B10:B14"

Now the procedure is a copy - paste solution, but I doesn't like that.

How can I "transfere" the format?

Thanks for any help!

 

[Gunnar Johansson]

Maybe I should tell the format to transfere is in the visual way (frame,
background, font etc.

It should NOT transfere number format, date format, percent etc.

/Regards

 

[Jim May]

How bout using the Format-Painter (Icon) method?

 

[Gunnar Johansson]

It has to be in VBA.
/Regards

How bout using the Format-Painter (Icon) method?

 

[David McRitchie]

And recording a macro works or not?
copy and paste, special to do the formatting

Sub Macro1()
Range("A10:A14").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A10").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub

Sub Macro1()
Sheets("sheet1").Range("A10:A14").Copy
Sheets("Sheet2").Range("b10").PasteSpecial Paste:=xlFormats, _
Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub

 

[Gunnar Johansson]

Hi David,

Thank you for your effort! I'm sorry if I described unclearly. I have a
procedure in a sheet module now, using copy-paste like you've written down
for me now. There is a lot of rows divided on several different areas, so
there is a lot of code now and I feel I'm loosing control and speed.
Therefore, I wondered if there is an other way than copy-paste in the
Sub/procedure/

Hope this will clarify,

Regards