Nhờ giúp code VB so sánh giữa 2 file excel (1 người xem)

[thutran0801]

Nhờ giúp code VB

Chào mọi người, t có 3 file dữ liệu như sau 1 file input 1 file output và 1 file code file code là file trung gian để copy dữ liệu từ file in sang file out giữa 2 file này có 1 dòng tên là "Code" t muốn hỏi là có cách nào so sách Code giữa 2 bảng ko? Nếu đúng thì cho phép copy từ file in sang out nếu sai thì xuất hiện thông báo ko cho copy

File của mẫu của mình

 

[HieuCD]

chạy thử code

Sub Button2_Click()
Dim wbsource As Workbook, wbcopy As Workbook, sourcepath, despath As String
Dim lr, k As Integer
Dim arr1(), arr2(), arr3()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
sourcepath = Cells(1, 2): despath = Cells(2, 2)
Set wbsource = Workbooks.Open(sourcepath)
Set wbcopy = Workbooks.Open(despath)
If Range("G1") = wbsource.Sheets("BangDiem").Range("J1") Then
    With wbsource.Sheets("BangDiem")
        lr = .Range("A65000").End(3).Row
        ReDim arr1(1 To lr, 1 To 1), arr2(1 To lr, 1 To 1), arr3(1 To lr, 1 To 1)
        For i = 1 To lr
            If .Cells(i, 1) = "Toan" Or .Cells(i, 1) = "Van" Or .Cells(i, 1) = "Anh" Then
                k = k + 1
                arr1(k, 1) = .Cells(i, 1)
                arr2(k, 1) = .Cells(i, 2)
                arr3(k, 1) = .Cells(i, 4)
            End If
        Next
    End With
    With wbcopy.ActiveSheet
        .Range("A2").Resize(k, 1) = arr1
        .Range("F2").Resize(k, 1) = arr2
        .Range("G2").Resize(k, 1) = arr3
    End With
Else
    MsgBox "Code khong phu hop, khong copy diem"
    wbsource.Close False
    wbcopy.Close False
End If
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

 

[thutran0801]

Cám ơn bạn đã giúp nhưng sao "Code" đúng sai gì nó cũng báo lỗi hết vậy???

 

[thutran0801]

chạy thử code

If Range("G1") = wbsource.Sheets("BangDiem").Range("J1") Then

Tks bạn, tìm ra vấn đề rồi là do G1 và J1 sai vị trí, sửa lại như này!

If Range("J1") = wbsource.Sheets("BangDiem").Range("G1") Then