Xin giúp đỡ code trong excel (1 người xem)

[thutran0801]

Xin chào, mình lần đầu đăng bài mong nhận được sự giúp đỡ
Hiện tại mình có bài như thế này có 3 file excel 1 file input chứa dữ liệu chính 1 file output lấy dữ liệu từ file input qua nhờ 1 file nữa là file code, file code này sẽ có nơi cho phép mình nhập tên của các file in và out khi chạy code trên file code thì sẽ thực hiện hàm vlookup để lấy dữ liệu từ in sang out.
Mình có ý là như vậy không biết có ai giúp đc ko ạ!

 

[quanluu]

Xin chào, mình lần đầu đăng bài mong nhận được sự giúp đỡ
Hiện tại mình có bài như thế này có 3 file excel 1 file input chứa dữ liệu chính 1 file output lấy dữ liệu từ file input qua nhờ 1 file nữa là file code, file code này sẽ có nơi cho phép mình nhập tên của các file in và out khi chạy code trên file code thì sẽ thực hiện hàm vlookup để lấy dữ liệu từ in sang out.
Mình có ý là như vậy không biết có ai giúp đc ko ạ!

Sao 2 bài này giống nhau vậy???

http://www.giaiphapexcel.com/forum/showthread.php?117870-Nhờ-giúp-đỡ-code-vb!

 

[thutran0801]

Bài của e mình đó, mình nhờ hỏi dùm nhưng nó nói lám đc giờ lại ko làm đc..kêu mình lên đây tự nhờ ngưòi giúp

 

[quanluu]

Bài của e mình đó, mình nhờ hỏi dùm nhưng nó nói lám đc giờ lại ko làm đc..kêu mình lên đây tự nhờ ngưòi giúp

Vậy thì bạn coi code trong bài đó xem có đc ko?

 

[thutran0801]

Vâng mình có xem và nhờ làm thử nhưng ko đc bạn ơi, mìnhnh muốn kết hợp hàm vlookup vào xem làm dc ko..nhưng ko biết kết hop làm sao

 

[quanluu]

Vâng mình có xem và nhờ làm thử nhưng ko đc bạn ơi, mìnhnh muốn kết hợp hàm vlookup vào xem làm dc ko..nhưng ko biết kết hop làm sao

Như mình đã nói từ trc, lấy dữ liệu của bạn ko rõ ràng, giả sử lấy hết DL file input, nhưng file output lại có thêm mấy cột: Tên GV... những cột này thì lấy dữ liệu từ đâu? Chờ ng khác giúp bạn vậy.

 

[thutran0801]

Vì vấn đề đó nên mình định dùng hàm vlookup để lấy dữ liệu cho chính xác nhung ko biết cách dùng...dù sao cũng cám ơn bạn đã quan tâm.

 

[thutran0801]

Như mình đã nói từ trc, lấy dữ liệu của bạn ko rõ ràng, giả sử lấy hết DL file input, nhưng file output lại có thêm mấy cột: Tên GV... những cột này thì lấy dữ liệu từ đâu? Chờ ng khác giúp bạn vậy.

Chào bạn, xin lỗi lại làm phiền bạn

 

[quanluu]

Chào bạn, xin lỗi lại làm phiền bạn nhưng bạn có thể xem qua file này và hướng dẫn mình cách làm đc ko?
Đây là file dựa theo format của file gốc mình sửa lại đôi chút vì là file nội bộ nên ko đưa lên đây đc. Mong bạn giúp đỡ.

Bạn dùng code này

Sub copy()
Dim wbsource As Workbook, wbcopy As Workbook, sourcepath, despath As String
Dim lr, k As Integer
Dim arr1(), arr2(), arr3(), arr4()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
sourcepath = Cells(1, 2): despath = Cells(2, 2)
Set wbsource = Workbooks.Open(sourcepath)
With wbsource.ActiveSheet
    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), arr4(1 To lr, 1 To 1)
    For i = 23 To lr Step 13
            k = k + 1
            arr2(k, 1) = .Cells(i, 2)
            arr1(k, 1) = .Cells(i + 1, 2)
            arr3(k, 1) = .Cells(i, "Q")
            arr4(k, 1) = .Cells(i, "AC")
    Next
End With
wbsource.Close False
Set wbcopy = Workbooks.Open(despath)
With wbcopy.ActiveSheet
    .Range("D28").Resize(k, 1) = arr1
    .Range("E28").Resize(k, 1) = arr2
    .Range("v28").Resize(k, 1) = arr3
    .Range("x28").Resize(k, 1) = arr4
End With
wbcopy.Close True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

 

[thutran0801]

Bạn dùng code này

End Sub

Vâng...Cảm ơn bạn nhiều!!