This line of code bellow will copy the value of the selected cell to next
cell i.e. value of A1 to B1 retaining the formatting of B1
Selection.Offset(0, 1).Value = Selection.Value
hope this helps
Thanks
Regards,
Vivek Agrawal
Contact No. +91--154-077
Skype ID - vivek.agrawal83
GoogleMoon
you can also try this
select the cells in which you want to apply your formatting...
run this code below
===
Sub ApplyMyFormat()
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor =
You can use paste Special-> values in you macro
Regards,
Upendra Singh
+91-9910227325, +91-9310760597
-
There are 10 kinds of people: Those who understand binary and those who
don't.
Hi
write a code like
Range("b1").Interior.ColorIndex = 0
I hope this help you
Jayavelu
On 7/6/09, tushar patki wrote:
> Dear All,
>
> I have written a code which will copy cell contents from one cell to
> another. Along with the cell contents, also formatting of the cell is
> copied. I am
