What is wrong with my VB codes? Please help!

[plainme]

I want to copy and paste the Range of A4:H2004 in the tab of DataA to the Range of (A1:H2001) in the tab of DataB. Please see my code below.

Thank you!

Sub CopyPasteNewDataToNewTab()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
Dim A As Range<o></o>
<o> </o>
Workbooks("2011Data.xls").Activate<o></o>
A = Workbooks("2011Data.xls").Sheets("DataA").Range("A4:H2004").Value<o></o>
Workbooks("2011Data").Sheets("DataB").Range("A1:H2001").Value = A<o></o>
<o> </o>
End Sub

 

[Tuelor]

Just have one range.value equal to the other, and ignore A.

D

 

[Smitty]

You can do it in one line:

Sheets("DataA").Range("A4:H2004").Copy Sheets("DataB").Range("A1")

HTH,

 

[plainme]

You can do it in one line:

Sheets("DataA").Range("A4:H2004").Copy Sheets("DataB").Range("A1")

HTH,

Thanks! It works.

Do you have any idea why the sorting code below does not work?


Range("A1:2001").Select
Selection.Sort Key1:=Range("K2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

 

[Michael M]

Your missing a letter here.
and remove Select.Selection text

Range("A1:A2001").Sort Key1:=Range("K2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

 

[plainme]

Your missing a letter here.
and remove Select.Selection text

Range("A1:A2001").Sort Key1:=Range("K2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Thanks. Still doesn't work.

 

[Michael M]

Maybe you should post the entire sub.
Are you getting an error or nothing happening at all ?
Have you tried stepping through the code line by line using F8 ?
Usually the sort key is the first cell in the selected range ??, why "K2" ??