copy 2 bản Excel (1 người xem)

[chuotcoi]

Mình mới vào trang web này thấy hay quá, mình có vấn đề cần hỏi các huynh, xin chỉ giáo.
Xếp mình muốn: có hai bản excel một bảng DATA1 chứa tên, địa chỉ nhân viên. bảng DATA2 còn lại thì chứa tên và chức vụ nhân viện đó ( chỉ liệt kê các nhân viên có chức vụ thôi, tực là chỉ một số người). Mình muốn nều trong bảng DATA2 nhân viên nào có chức vụ thì cập nhật thêm cho bản DATA1 phần chức vụ, còn không có thì thôi.

 

[TranThanhPhong]

Chào bạn,

Bạn thêm vào DATA1 cột chức vụ sau đó dùng Vlookup tham chiếu vào DATA2 để lấy thông tin chức vụ với điều kiện tham chiếu là Tên nhân viên (Vì điều kiện là tên do vậy phải đảm bảo là cột Họ tên nhân viên ở DATA1 và DATA2 nhập vào phải chính xác.

Ngoài ra cần lồng thêm hàm ISNA để kiểm tra sự tồn tại của Tên trong bảng DATA2 nếu có mới trả về chức vụ còn không thì thôi.

Bạn làm theo cách trên nếu không được thì gửi file thông tin lên đây mình làm giúp cho.

Good luck,
TP.

 

[chuotcoi]

cảm ơn bạn nhiều lắm để mình xem sao?

 

[SA_DQ]

Bạn xem ví dụ sau:
Ở đây file DATA2 có tên là ChucVu;
Còn DATA1 có tên là DSHS;
2 macro thi hành nằm ở sheet đầu (mà trong đó macro chạy trước trong SheetName) sẽ chuyển thông số cho macro thứ 2 cập nhật trong workbook DSHS

Option Explicit[b]

Private Sub Worksheet_Change(ByVal Target As Range)[/b]
 Dim MaNV, MaCVu
 
 If Not Intersect(Target, Range("H2:H120")) Is Nothing Then
    MaCVu = Target.Value:           MaNV = Target.Offset(0, -6).Value
 End If
 OpenFile MaNV, MaCVu[b]
End Sub
[COLOR="Blue"]'       *       *      *       *      *     *    *[/COLOR]
Sub OpenFile(Ma_NV, Ma_CVu)[/b]
    Dim Rng As Range, Zw As Long
    
    ChDir "D:\CFC\Excel"
    Workbooks.Open Filename:="D:\CFC\Excel\DSHS.xls"
    Sheets("CNV").Select:           Zw = 1
    Application.ScreenUpdating = False
    Do
        Zw = Zw + 1
        Set Rng = Range("B" & Zw)
        With Rng
            If .Value = Ma_NV Then
                .Offset(0, 6).Value = Ma_CVu:           Exit Do
            End If
        End With
    Loop
    Set Rng = Nothing
    Windows("ChucVu.xls").Activate
     Application.ScreenUpdating = True
[b]End Sub[/b]

(Bạn chú í xả nén vô thư mục nào thì đổi đường dẫn cho đúng!)