Tạo nút copy dữ liệu từ sheet sang sheet (1 người xem)

[thuongsykxps]

Em có file này mong moi người giúp đở.
Tại sheet VT khi em bấm nút "Xuất" sẽ xuất giá sang sheet giá theo vật tư tương ứng
Mong mọi người giúp đở em cảm ơn nhiều.

 

[concogia]

Em có file này mong moi người giúp đở.
Tại sheet VT khi em bấm nút "Xuất" sẽ xuất giá sang sheet giá theo vật tư tương ứng
Mong mọi người giúp đở em cảm ơn nhiều.

Bài này còn nhiều vấn đề để nói lắm, thí dụ, bấm xong thì chọn sheet nào ? Chuyển dữ liệu xong có xóa dữ liệu ở sheet "VT" không ???....Tạm thời dùng code này, có gì nói tiếp

Public Sub XuatGia()
    Dim Vung, Da, Mac, Cll, Tach
    Set Vung = Sheets("Gia").Range(Sheets("Gia").[B2], Sheets("Gia").[B10000].End(xlUp))
        For Each Cll In Vung
            Tach = Split(Cll, ",")
            Da = Right(Tach(0), Len(Tach(0)) - InStrRev(Tach(0), " "))
            Mac = Val(Right(Tach(1), Len(Tach(1)) - InStrRev(Tach(1), " ")))
                If Da = [B2] And Mac = [D2] Then
                    Cll.Offset(, 1) = [B5]: Cll.Offset(, 2) = [C5]
                End If
        Next Cll
End Sub

Híc

 

[thanhlanh]

Tạo một module rồi chép code này vào:

Sub nhapgia()
    Dim VT, NC, bt, tim As Range
    VT = [b5]: NC = [C5]
    bt = Range("B2") & ", Mac " & Range("D2")
    Worksheets("gia").Select
    Set tim = Columns("B:B").Find(bt, , , xlPart)
    If Not tim Is Nothing Then
        Range(tim.Address).Offset(, 1) = VT
        Range(tim.Address).Offset(, 2) = NC
    End If
End Sub