Giúp em code copy (update dữ liệu) từ file này sang file khác đang ở trạng thái mở (1 người xem)

[quoc nhat]

Em đã nghiên cứu nhiều code copy (lấy dữ liệu) từ file này sang file khác nhưng chưa áp dụng được nên đưa lên nhờ các thầy và anh chị giúp đỡ.
Em có 2 File đang mở. VD ở đây là File đầu và File đích( tên file thay đổi theo tháng)
Em muốn copy dữ liệu từ File đầu gồm các cột đánh dấu màu vàng sang các cột có tên tương ứng ở File đích.
Nếu ở File đầu: số lượng = 0 thì không lấy hàng đó.
Kính mong được sự quan tâm giúp đỡ.
EM cảm ơn nhiều

 

[dhn46]

Bạn thử với code trên range sau

Sub Copy()
    Dim Wb As Workbook, i As Long, eR As Long
    Application.ScreenUpdating = False
    For Each Wb In Application.Workbooks
        If UCase(Wb.Name) = "DAU.XLS" Then
            With Wb.Sheets("Ngtru")
                For i = 7 To .[B65536].End(3).Row
                    If .Cells(i, 5) > 0 Then
                        eR = Sheet3.Range("B65536").End(3).Row + 1
                        .Cells(i, 2).Resize(, 3).Copy
                        Cells(eR, 2).PasteSpecial (xlPasteValues)
                        .Cells(i, 11).Resize(, 2).Copy
                        Cells(eR, 6).PasteSpecial (xlPasteValues)
                    End If
                Next
            End With
        End If
    Next
    Application.ScreenUpdating = True
End Sub

 

[quoc nhat]

bạn thử với code trên range sau

sub copy()
    dim wb as workbook, i as long, er as long
    application.screenupdating = false
    for each wb in application.workbooks
        if ucase(wb.name) = "dau.xls" then
            with wb.sheets("ngtru")
                for i = 7 to .[b65536].end(3).row
                    if .cells(i, 5) > 0 then
                        er = sheet3.range("b65536").end(3).row + 1
                        .cells(i, 2).resize(, 3).copy
                        cells(er, 2).pastespecial (xlpastevalues)
                        .cells(i, 11).resize(, 2).copy
                        cells(er, 6).pastespecial (xlpastevalues)
                    end if
                next
            end with
        end if
    next
    application.screenupdating = true
end sub

Anh dhn46 ơi
Ở đây tên workbook "dau" có thể là tên khác thì mình làm như thế nào hả anh
Giúp em với

 

[Ba Tê]

Anh dhn46 ơi
Ở đây tên workbook "dau" có thể là tên khác thì mình làm như thế nào hả anh
Giúp em với

Thử với cái này xem, muốn file dau.xls là tên khác thì sửa trong ô G1.
Nếu file đầu.xls chưa mở lên sẽ có thông báo.
Dùng mảng chắc sẽ nhanh hơn một chút.

 

[banhtun]

Mình muốn copy code trong file excel A ghép vào code của file excel B để sử dụng cùng trên 1 sheet trên file excel B thì làm như nào ? Mình không hiểu về ngôn ngữ lập trình mong các bạn trên diễn đàn chỉ giúp với. Nếu có thể cho mình xin 1 file ghép nhiều code với các mục đính sử dụng khác nhau với. cảm ơn các anh, chị, các bạn trong diễn đàn.

 

[quoc nhat]

Thử với cái này xem, muốn file dau.xls là tên khác thì sửa trong ô G1.
Nếu file đầu.xls chưa mở lên sẽ có thông báo.
Dùng mảng chắc sẽ nhanh hơn một chút.

Không biết nói gì hơn. Cảm ơn anh nhiều lắm

 

[quoc nhat]

Thử với cái này xem, muốn file dau.xls là tên khác thì sửa trong ô G1.
Nếu file đầu.xls chưa mở lên sẽ có thông báo.
Dùng mảng chắc sẽ nhanh hơn một chút.

Anh ơi em gặp rắc rối khi thay đổi tên File muốn copy vào File đích.
Vậy code phải thay đổi thế nào để lấy thẳng dữ liệu khi File nguồn đó đang mở không anh mà không cần phải nhập tên file đó vào cột H1 ở File đích hả anh
Giúp em với
EM cảm ơn

 

[quoc nhat]

Anh ơi em gặp rắc rối khi thay đổi tên File muốn copy vào File đích.
Vậy code phải thay đổi thế nào để lấy thẳng dữ liệu khi File nguồn đó đang mở không anh mà không cần phải nhập tên file đó vào cột H1 ở File đích hả anh
Giúp em với
EM cảm ơn

em có tìm được đoạn code mở file trên diển đàn và ghép vào code của anh Ba Tê thấy vẫn chạy. Nhờ các anh chị xem giùm có nên chỉnh sửa chổ nào không?
em cảm ơn!