tạo giúp em nút lệnh chuyển

[hongtuanh]

em có 2 file A và B, em mún tạo 1 nút lệnh ,khi kích vào nút lệnh thi bên file b sẻ lần lượt lưu các dử liệu có bên file a, cảm ơn các bro giúp đỡ

 

[vuslong]

em có 2 file A và B, em mún tạo 1 nút lệnh ,khi kích vào nút lệnh thi ben file b sẻ lần lượt lưu cac dử liệu có ben file a, thank các bro

Câu văn của bạn chỉ có một dòng mà đọc nghe muốn bệnh: tôi có thể hiểu "file, thank..." là từ tiếng Anh, "mún" là tiếng gì? hai chữ "ben" và chữ "thi" thiếu dấu, chữ "sẻ" và chữ "dử" sai chính tả. Nếu bạn là người Việt, cố gắng viết đúng tiếng Việt bạn nhé.

 

[nghiaphuc]

em có 2 file A và B, em mún tạo 1 nút lệnh ,khi kích vào nút lệnh thi bên file b sẻ lần lượt lưu các dử liệu có bên file a, cảm ơn các bro giúp đỡ

Bạn sử dụng code như sau cho file a.xls nhé (lưu ý: 2 file a.xls, b.xls phải được đặt trong cùng thư mục)

Private Sub CommandButton1_Click()
    Dim Nm As String
    On Error Resume Next
    Nm = Workbooks("b.xls").Name
    If Nm = "" Then Workbooks.Open ThisWorkbook.Path & "\b.xls"
    Range([D8], [E65536].End(xlUp)).Copy Workbooks("b.xls").Sheets("Sheet1").[D8]
End Sub

Private Sub CommandButton2_Click()
    If [J5] = "" Or [K5] = "" Then
        MsgBox "Chua nhap du du lieu. Hay nhap lai!"
    Else
        [J5:K5].Copy [D65536].End(xlUp).Offset(1)
    End If
End Sub

 

[hongtuanh]

cảm ơn bro đã giúp đỡ

bro giúp lun dùm em ve khoản này, bên file a khi em kich nút kết chuyển thì số liệu từ e8 và f8 bên file a sẽ chuyển sang file b ,và các cột khác ko chuyển,nút lệnh của bro,rất hay nhưng khi tại dòng e8 và f8 là công thức thì bên file b sẻ ko hiểu và hiện số 0,rất mong bro giúp em luôn khoản này,khi ben file a cot e8 va f8 la công thức thi khi ben chuyển bên file b vẫn kết chuyển đươc số liệu cảm ơn bro

 

[nghiaphuc]

bro giúp lun dùm em ve khoản này, bên file a khi em kich nút kết chuyển thì số liệu từ e8 và f8 bên file a sẽ chuyển sang file b ,và các cột khác ko chuyển,nút lệnh của bro,rất hay nhưng khi tại dòng e8 và f8 là công thức thì bên file b sẻ ko hiểu và hiện số 0,rất mong bro giúp em luôn khoản này,khi ben file a cot e8 va f8 la công thức thi khi ben chuyển bên file b vẫn kết chuyển đươc số liệu cảm ơn bro

Bạn thay câu lệnh

Range([D8], [E65536].End(xlUp)).Copy Workbooks("b.xls").Sheets("Sheet1").[D8]

bởi câu lệnh sau là được:

With [D7].CurrentRegion
    Workbooks("b.xls").Sheets("Sheet1").Range(.Address).Value = .Value
End With

(câu lệnh này mình học được từ ndu96081631, bạn vào đây cảm ơn anh ấy nhé )
Mà này, bạn có đọc ý kiến của vuslong không đấy? Nếu bạn vẫn không sửa thì chắc là sẽ không có ai trả lời bạn nữa đâu đấy nhé.
Thân!