Nhờ các anh chị chỉ giúp lỗi của code chép dữ liệu (1 người xem)

[thaibinh_excel]

Chào mọi người,

Mình có một code sau dùng để chép dữ liệu từ nhiều range khác nhau của 1 sheet này sang sheet khác. Từ trước đến giờ mình xài Excel 2007 thì code này vẫn chạy ổn, nhưng hôm nay mình chuyển sang Excel 2010 thì code này lại bị lỗi. Khi chạy code chép dữ liệu nó vẫn báo là

 

[ChanhTQ@]

Lần sau nên vầy:

Code của bạn như vầy, dễ nhìn hơn:

Sub MonthlyHCUpdates_Click()
 Application.ScreenUpdating = False
 Application.EnableEvents = False
 Application.Calculation = xlCalculationManual

 Workbooks.Open ("D:\BIZ-SEV\Promoter Management\Headcount\1307. Headcount (Jul).xlsx")
 Windows("1307. Headcount (Jul).xlsx").Activate
 Sheets("HC.South Dtls").Select
 Range("AA10:AB200").Select
 Selection.ClearContents

 Sheets("HC.North Dtls").Select
 Range("AA10:AB200").Select
 Selection.ClearContents
'South'
 Windows("1307. Headcount (Jul).xlsm").Activate
 Sheets("HC.South Dtls").Select
 Range("C10:E200").Select
 Selection.Copy                               '<=| '

Windows("1307. Headcount (Jul).xlsx").Activate
Sheets("HC.South Dtls").Select
Range("C10:E200").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:= xlNone, SkipBlanks:=False, Transpose:=False

Windows("1307. Headcount (Jul).xlsm").Activate
Sheets("HC.South Dtls").Select
Range("L10:M200").Select
Selection.Copy

Windows("1307. Headcount (Jul).xlsx").Activate
Sheets("HC.South Dtls").Select
Range("L10:M200").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:= xlNone, SkipBlanks:=False, Transpose:=False

Windows("1307. Headcount (Jul).xlsm").Activate
Sheets("HC.South Dtls").Select
Range("Q10:R200").Select
Selection.Copy

Windows("1307. Headcount (Jul).xlsx").Activate
Sheets("HC.South Dtls").Select
Range("Q10:R200").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:= xlNone, SkipBlanks:=False, Transpose:=False

Windows("1307. Headcount (Jul).xlsm").Activate
Sheets("HC.South Dtls").Select
Range("V10:W200").Select
Selection.Copy

Windows("1307. Headcount (Jul).xlsx").Activate
Sheets("HC.South Dtls").Select
Range("V10:W200").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:= xlNone, SkipBlanks:=False, Transpose:=False

Windows("1307. Headcount (Jul).xlsm").Activate
Sheets("HC.South Dtls").Select
Range("AA10:AB200").Select
Selection.Copy

Windows("1307. Headcount (Jul).xlsx").Activate
Sheets("HC.South Dtls").Select
Range("AA10:AB200").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:= xlNone, SkipBlanks:=False, Transpose:=False
'North'
Windows("1307. Headcount (Jul).xlsm").Activate
Sheets("HC.North Dtls").Select
Range("C10:E200").Select
Selection.Copy

Windows("1307. Headcount (Jul).xlsx").Activate
Sheets("HC.North Dtls").Select
Range("C10:E200").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:= xlNone, SkipBlanks:=False, Transpose:=False

Windows("1307. Headcount (Jul).xlsm").Activate
Sheets("HC.North Dtls").Select
Range("L10:M200").Select
Selection.Copy

Windows("1307. Headcount (Jul).xlsx").Activate
Sheets("HC.North Dtls").Select
Range("L10:M200").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:= _
       xlNone, SkipBlanks:=False, Transpose:=False

Windows("1307. Headcount (Jul).xlsm").Activate
Sheets("HC.North Dtls").Select
Range("Q10:R200").Select
Selection.Copy

Windows("1307. Headcount (Jul).xlsx").Activate
Sheets("HC.North Dtls").Select
Range("Q10:R200").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:= xlNone, SkipBlanks:=False, Transpose:=False

Windows("1307. Headcount (Jul).xlsm").Activate
Sheets("HC.North Dtls").Select
Range("V10:W200").Select
Selection.Copy

Windows("1307. Headcount (Jul).xlsx").Activate
Sheets("HC.North Dtls").Select
Range("V10:W200").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:= xlNone, SkipBlanks:=False, Transpose:=False

Windows("1307. Headcount (Jul).xlsm").Activate
Sheets("HC.North Dtls").Select
Range("AA10:AB200").Select
Selection.Copy

Windows("1307. Headcount (Jul).xlsx").Activate
Sheets("HC.North Dtls").Select
Range("AA10:AB200").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:= xlNone, SkipBlanks:=False, Transpose:=False

Windows("1307. Headcount (Jul).xlsx").Activate
Sheets("HC.South Dtls").Select
Range("B10").Select
ActiveWorkbook.Close True
MsgBox ("Updates Successfully!")

ThisWorkbook.Save
Sheets("HC.South Dtls").Select
Range("B10").Select

Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub