Tạo nút cập nhật dữ liệu từ 1 bảng excel đang đóng sang 1 bảng đang mở?

Chia sẻ bởi:hands

★★★★★

‹ Nhờ giúp đỡ lọc dữ liệu theo... Lấy dữ liệu từ 1 file Excel... ›

Quảng cáo

Xin chào các anh chị em trong diễn đàn

mình có 2 file excel, 1 file là file data( chứa dữ liệu xuất dữ liệu từ phần mềm kế toán) và 1 file mình tạo để in mẫu biểu( file này chứa các dữ liệu đã chọn lọc từ file data vào 1 sheet dulieu). mình muốn tạo 1 nút bấm mà khi mình xuất dữ liệu đè lên file data thì mình mở file IN Mau Bieu và bấm update thì phần dữ liệu cần lấy tự động cập nhật vào sheet DuLieu để mình sử dụng.
file data là chứa dữ liệu em xuất từ phần mềm kế toán ra, còn ở file IN MAU BIEU kia thì e có 1 bảng chỉ chọn lọc 1 số dữ liệu. công thức bình thường ở IN MAU BIEU sẽ là: ví dụ ở ô A3 công thức sẽ là: =sheet1C$2$ chẳng hạn, bình thường là công thức này tự nhảy kể cả copy file DATA sang folder khác nhưng mang lên cơ quan em thì nó chẳng chịu nhẩy. offcice cơ quan em là bản 2010, em ở nhà dùng bản 2013. em định tạo 1 nút bấm là update chẳng hạn để phòng trường hợp không tự nhẩy số liệu thì ấn nút đó nó tự lấy dữ liệu vào ấy ạ.

xin nhờ anh chị em giúp đỗ tạo nút và tạo mã code hộ mình với. mình mù mờ về VBA. Xin cảm ơn.

@giophieudu87 bạn để chung 2 tập tin trên trong cùng thư mục,sau đó chạy đoạn code sau trong tập "IN MAU BIEU.xlsm" nhé:

Option Explicit
Sub Macro1()
    '
    ' Macro1 Macro
    '
    Dim shtDuLieu As Worksheet, sPath As String
    Const wbLink As String = "[DATA.XLS]sheet1"
    Set shtDuLieu = ThisWorkbook.Worksheets("DU LIEU")
    sPath = ThisWorkbook.Path & ""
    With shtDuLieu
        .Range("A3").Value = "='" & sPath & wbLink & "'!R2C15&"" ""&'" & sPath & wbLink & "'!R2C14"
        .Range("B3").Value = "='" & sPath & wbLink & "'!R2C25"
        .Range("C3").Value = "=MID('" & sPath & wbLink & "'!R2C27,7,2)&""/""&MID('" & _
                                       sPath & wbLink & "'!R2C27,5,2)&""/""&MID('" & _
                                       sPath & wbLink & "'!R2C27,1,4)"
        .Range("E3").Value = "='" & sPath & wbLink & "'!R2C16"
        .Range("F3").Value = "=TEXT('" & sPath & wbLink & "'!R2C29,""###,###"")"
        .Range("H3").Value = "='" & sPath & wbLink & "'!R2C33"
    End With
End Sub

www.giaiphapexcel.com/diendan/threads/t%E1%BA%A1o-n%C3%BAt-c%E1%BA%ADp-nh%E1%BA%ADt-d%E1%BB%AF-li%E1%BB%87u-t%E1%BB%AB-1-b%E1%BA%A3ng-excel-%C4%91ang-%C4%91%C3%B3ng-sang-1-b%E1%BA%A3ng-%C4%91ang-m%E1%BB%9F.139511/