Lỗi code copy dữ liệu từ workbook con sang workbook tổng hợp (1 người xem)

[minhtungph]

- Mình đã tìm hiểu nhiều topic nhưng không thấy topic nào thỏa yêu cầu
- ở đây mình có 1 fileMain và 1 subfile, ở file Main khi bấm cập nhật thì nó sẽ hiện hộp thoại chọn file cần copy, các thứ nếu làm chung workbook thì ok nhưng copy từ workbook khác thì bị lỗi ở code

Range("C" & i + 1 & ":G" & EndRowSelectFile).Copy Destination:= _
                Workbooks(1).Sheets("Tcap").Range("C" & EndRowMainFile & ":G" & EndRowMainFile + EndRowSelectFile - i - 1)
            Range("L" & i + 1 & ":L" & EndRowSelectFile).Copy Workbooks(1).Range("J" & EndRowMainFile)

- theo lý thuyết thì nó đúng nhưng không hiểu sao lại bị lỗi ở đó, mong các bạn giúp đỡ

 

[giaiphap]

Bạn sửa chổ màu đỏ thử xem

Sub Rectangle1_Click()
    Dim openfiles, EndRowSelectFile As Long, EndRowMainFile As Long, a As Workbook, b As Workbook
    Dim SoCuoi As Long, i As Long, DongDauFileChon As Long
    openfiles = Application.GetOpenFilename _
      (FileFilter:="Microsoft Excel Files (*.xls*),*.xls*", _
      MultiSelect:=False, Title:="Open Files")
    
    EndRowMainFile = Range("C65000").End(xlUp).Row + 1
    SoCuoi = Range("C65000").End(xlUp).Value
    Set a = ActiveWorkbook
    Set b = Workbooks.Open(openfiles)
    EndRowSelectFile = Range("D65000").End(xlUp).Row
    For i = EndRowSelectFile To 1 Step -1
        If Range("C" & i).Value = SoCuoi Then
            Range("C" & i + 1 & ":G" & EndRowSelectFile).Copy Destination:= _
                [COLOR=#ff0000][B]ThisWorkbook[/B][/COLOR].Sheets([COLOR=#ff0000][B]"Tcap "[/B][/COLOR]).Range("C" & EndRowMainFile & ":G" & EndRowMainFile + EndRowSelectFile - i - 1)
            Range("L" & i + 1 & ":L" & EndRowSelectFile).Copy [COLOR=#0000ff][B]Workbooks(1).Range[/B][/COLOR]("J" & EndRowMainFile)
            Close
            Exit Sub
            MsgBox "Cap Nhat Xong Nhe Chi NHUNG"
        End If
    Next i


End Sub

Chổ màu xanh bạn xem lại đúng chưa?