Xin giúp đỡ viết VBA tự động cập nhật dữ liệu từ file download

[ruacon612]

Em xin chào mọi người,

Mỗi ngày em được gửi file đã lọc sẵn Tracking, xin mọi người giúp em viết vba để:

+ Copy dữ liệu đã lọc ( trong file là B280:J301)
+ Paste sang file Auto Template ở vị trí cuối bảng dữ liệu tại cột C (trong file là C15)

Em xin cảm ơn và chúc mọi người luôn khỏe mạnh.

 

[ruacon612]

Xin xem qua giúp em ạ.

 

[huuquy1196]

Option Explicit

Sub vFile()
Dim lr As Integer
Dim aFileDT As Workbook
Dim vOpenFile, Filename As String
Dim FileItem

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

vOpenFile = Application.GetOpenFilename("Excel File, *.xls; *.xlsx; *.xlsm", , , , True)
If TypeName(vOpenFile) = "Variant()" Then
    For Each FileItem In vOpenFile
      If UCase(Filename) <> UCase(ThisWorkbook.FullName) Then
        Filename = FileItem
        End If
           Next
End If

Windows(ThisWorkbook.Name).Activate
    Sheet1.Select
        With ActiveSheet
            lr = Cells(Rows.Count, "B").End(xlUp).Row
        End With
    ActiveSheet.Range("$B$3:$J$" & lr).SpecialCells(xlVisible).Copy


Set aFileDT = Workbooks.Open(Filename)
    With ActiveSheet
        lrAF = Cells(Rows.Count, "B").End(xlUp).Row
    End With
    Range("C" & lrAF + 1).Select
        ActiveSheet.Paste
            On Error Resume Next
    Workbooks(Filename).Close SaveChanges:=True
    
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    
End Sub

Bạn chạy thử xem sao. copy code này vào file Tracking nhé.