Copying Range of Cells

[mufsoman]

I know this must be a very basic question, but nevertheless, I'm stilll stuck. Within a macro, I need to copy data in a range of cells into a location in another tab. I used the following, but it did not work. Looking for recommended solutions. Thanks

Worksheets("Mfg_Cost_Detail").Range("A211:S211").Value = Worksheets("Data_Entry").Range("B52:T52")

 

[cstimart]

I know this must be a very basic question, but nevertheless, I'm stilll stuck. Within a macro, I need to copy data in a range of cells into a location in another tab. I used the following, but it did not work. Looking for recommended solutions. Thanks

Worksheets("Mfg_Cost_Detail").Range("A211:S211").Value = Worksheets("Data_Entry").Range("B52:T52")

Worksheets("Mfg_Cost_Detail").Range("A211:S211").Copy Destination:=Worksheets("Data_Entry").Range("B52:T52")

 

[mufsoman]

Yes, this did work, however, I needed to switch the order of the cell ranges so it copied the right direction. Thanks for the quick reply cstimart !!!!

 

[mufsoman]

OK, one more question.......how do I get it to copy "value only" vs. copying format also? Thanks

 

[cstimart]

Yes, this did work, however, I needed to switch the order of the cell ranges so it copied the right direction. Thanks for the quick reply cstimart !!!!

So you want to utilize TRANSPOSE?

 

[mufsoman]

No need for Transpose, but how do I copy just value vs value and formating?

 

[cstimart]

Sheets(""Mfg_Cost_Detail").Range("A211:S211").Copy
Sheets("Data_Entry").Range("B52").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, _
     Operation:=xlNone, SkipBlanks:=False, Transpose:=False[FONT=monospace]
[/FONT]