Hi everybody,

I have a problum that I selected a range on Excel worksheet, and inserted
another range on the same worksheet, now I wanna copy the selected range's
style to the inserted one, I use

insertedRange.Style = selectedRange.Style;

or

insertedRange.Cells.Style = selectedRange.Cells.Style;

both of the two works not correctly, what is the mistake?


--
If you enter this world knowing you are loved and leave this world knowing
the same, then everything that happens in between can be dealt with.

Not used .Style before, but upon doing some research:

..Style is an Object, so at the least you would need:
Set insertedRange.Style = selectedRange.Style
However, if you read the Help, you see .Style is read-only.

If you look at the example in Excel VBA Help it show:
<Quote
Worksheets("Sheet1").Range("A1").Style.Name = "Normal"
</Quote
But this errors which #450, indicating it is read-only.

However, if you record a macro of a style change you get something like
Worksheets("Sheet1").Range("A1").Style = "Normal"

Confused ??

What is the value of
Debug.Print insertedRange.Style.Name, selectedRange.Style.Name

And what do you mean by "works not correctly" ?

NickHK

"ZeroCool127" wrote in message
...
Hi everybody,

I have a problum that I selected a range on Excel worksheet, and inserted
another range on the same worksheet, now I wanna copy the selected range's
style to the inserted one, I use

insertedRange.Style = selectedRange.Style;

or

insertedRange.Cells.Style = selectedRange.Cells.Style;

both of the two works not correctly, what is the mistake?


--
If you enter this world knowing you are loved and leave this world knowing
the same, then everything that happens in between can be dealt with.

I don't know what is wrong eith your code but I thought of two options :

1) If you want an exact copy of the range you need the following

Range("MyRange").Copy
[navigate to the new position]
ActiveSheet.Paste
Application.CutCopyMode = False

2) If you don't want the contents but only want the formatting add the next
line to the end of the previous code

Selection.ClearContents

HTH

"ZeroCool127" wrote:

Hi everybody,

I have a problum that I selected a range on Excel worksheet, and inserted
another range on the same worksheet, now I wanna copy the selected range's
style to the inserted one, I use

insertedRange.Style = selectedRange.Style;

or

insertedRange.Cells.Style = selectedRange.Cells.Style;

both of the two works not correctly, what is the mistake?


--
If you enter this world knowing you are loved and leave this world knowing
the same, then everything that happens in between can be dealt with.

Or if the target range already exists copy/paste only the formatting

Range("MyRange").Select
Selection.Copy
Range("MyTarget").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

"ZeroCool127" wrote:

Hi everybody,

I have a problum that I selected a range on Excel worksheet, and inserted
another range on the same worksheet, now I wanna copy the selected range's
style to the inserted one, I use

insertedRange.Style = selectedRange.Style;

or

insertedRange.Cells.Style = selectedRange.Cells.Style;

both of the two works not correctly, what is the mistake?


--
If you enter this world knowing you are loved and leave this world knowing
the same, then everything that happens in between can be dealt with.

Is this code in .Net or something ?
Because if it is supposed to be VBA, you do not want the ";" at the end of
the lines.

NickHK

"ZeroCool127" wrote in message
...
Hi everybody,

I have a problum that I selected a range on Excel worksheet, and inserted
another range on the same worksheet, now I wanna copy the selected range's
style to the inserted one, I use

insertedRange.Style = selectedRange.Style;

or

insertedRange.Cells.Style = selectedRange.Cells.Style;

both of the two works not correctly, what is the mistake?


--
If you enter this world knowing you are loved and leave this world knowing
the same, then everything that happens in between can be dealt with.