Data format copy

Hi experts,

I do have a following code for copying a value from another sheet..

{code}
Worksheets("Summary").Cells(nNextRow, "N") = .Cells(nRow, "D")
{code}

the above is copying proper the value of D...

Cells(nRow, "D") is date column. I need to extract mont-yy format data only...

for example if D = 27/8/2012 then i should extract in the format of Aug-2012 and asign that value to left side row...

how can i change above for my requirement..

thanks

Hi Steffen,

thank you so much for solution......

still one more question will that copy background colour too.. if not can you please suggest code to copy background value that 'D' cell..

thank you

Originally Posted by Steffen Thomsen

Then i would do it like this

Please Login or Register  to view this content.

Thank you steffen,

sorry..last one....please help

i have another piece code like this..

Worksheets("Summary").Cells(nNextRow, "N") = .Cells(nRow, "AB")

for this value i need some if logic. means. Actually this "AB" col will contain any value between 0 and 9.
now if AB value is 0 then I want to set value of "N" 'external', if any other number then i need to set N value as 'Internal'

any help will be appreciated ..thank you..

Thank you will give a try......thanks for your time..

i just added something in my last reply mean while you replied with latest reply...
after copying external or internal values i need to paint that N row with some colour like interior colur with some colour...
your suggestion please..

mean while sorry, my earlier reply posted twice...accidentally

Originally Posted by Steffen Thomsen

It's ok..

Please Login or Register  to view this content.

Try to piece together the macro, if you have any other questions then feel free to ask.

Thank you steffen..will include this code...

can we control alignment with macro after copying data. like we do with select cell --> Text alignement --> horizontal with Left indent and Vertical as 'Top',

though i can do it manually for every copied row, can we use macro to control these functions..

Super thank you...

I have placed some command button to execute above functionalites.....

so..is it possible to place command button to excel toobar instead of having it on excel page some where..

Hi

Worksheets("Summary").Cells(nNextRow, "H") = Format(.Cells(nRow, "AE"), "Mon-YY")

its fetching me like 12-Jun

but i need in this format Jun-12 like this...

Originally Posted by Steffen Thomsen

Try

Please Login or Register  to view this content.

No luck steffen, its still showing me same thing...

anyway i just treid simple example in A1 i put value of 7/28/2012 then in B1 i wrote a formuale =format ("A1","mm-yyyy") says error..