Giúp mình hàm copy dữ liệu từ sheet này sang sheet khác với các điều kiện (1 người xem)

[rexh]

Sự việc như sau:

Sheet 1 bao gồm các cột:

[TABLE="width: 808"]
[TR]
[TD]No
[/TD]
[TD]Name
[/TD]
[TD]DOB
[/TD]
[TD]ID No.
[/TD]
[TD]Cell Phone
[/TD]
[TD]Interview date
[/TD]
[TD]Training
[/TD]
[TD]on-board
[/TD]
[/TR]
[/TABLE]


Sheet 2 bao gồm các cột:
[TABLE="width: 812"]
[TR]
[TD]No.
[/TD]
[TD]Name
[/TD]
[TD]Current Code
[/TD]
[TD]ID Work
[/TD]
[TD]DOB
[/TD]
[TD]ID No.
[/TD]
[TD]Signing
[/TD]
[TD]Bank Account
[/TD]
[/TR]
[/TABLE]

Mình muốn khi nhập dữ liệu ở sheet 1 thì sheet 2 tự động được Copy các cột "Name" , "DOB", "ID No." Tuy nhiên, chỉ những người được đánh dấu "X" ở cột "On-board" trong sheet 1 thì mới được nhập thông tin vào sheet 2.
Các bạn xem file đính kèm.
Các bạn giúp mình với. Cám ơn trước

 

[concogia]

Sự việc như sau:

Sheet 1 bao gồm các cột:

[TABLE="width: 808"]
[TR]
[TD]No
[/TD]
[TD]Name
[/TD]
[TD]DOB
[/TD]
[TD]ID No.
[/TD]
[TD]Cell Phone
[/TD]
[TD]Interview date
[/TD]
[TD]Training
[/TD]
[TD]on-board
[/TD]
[/TR]
[/TABLE]


Sheet 2 bao gồm các cột:
[TABLE="width: 812"]
[TR]
[TD]No.
[/TD]
[TD]Name
[/TD]
[TD]Current Code
[/TD]
[TD]ID Work
[/TD]
[TD]DOB
[/TD]
[TD]ID No.
[/TD]
[TD]Signing
[/TD]
[TD]Bank Account
[/TD]
[/TR]
[/TABLE]

Mình muốn khi nhập dữ liệu ở sheet 1 thì sheet 2 tự động được Copy các cột "Name" , "DOB", "ID No." Tuy nhiên, chỉ những người được đánh dấu "X" ở cột "On-board" trong sheet 1 thì mới được nhập thông tin vào sheet 2.
Các bạn xem file đính kèm.
Các bạn giúp mình với. Cám ơn trước

Xóa code trong file của bạn đi
Right Click vào sheet On-board ==> View Code ==> chép cái này vào ==> thêm, bớt, sửa dữ liệu ở sheet Candidate , chọn sheet On-board xem kết quả

Private Sub Worksheet_Activate()
[A1:H10000].Clear
    With Sheets("Candidate").Range(Sheets("Candidate").[A1], Sheets("Candidate").[A50000].End(xlUp)).Resize(, 8)
        .AutoFilter 8, "x"
            Sheets("Candidate").Columns("H:H").EntireColumn.Hidden = True
        .SpecialCells(12).Copy [A1]
        .AutoFilter
            Sheets("Candidate").Columns("H:H").EntireColumn.Hidden = False
    End With
        Range([B2], [B10000].End(xlUp)).Offset(, -1) = [row(A:A)]
End Sub

Thân

 

[rexh]

Bạn ơi bạn có thể giúp mình đừng copy tất cả các cột của sheet candidate qua sheet onboard được không.
Tại dữ liệu 2 bên có khác nhau một chút. Mình chỉ muốn copy những cột Name, DOB, ID No thôi.
Vì bên sheet onboard còn có các dữ liệu khác mình sẽ nhập bằng tay vào.
Mình gửi lại file mẫu bạn xem giúp mình nha
Chân thành cám ơn bạn

 

[Ba Tê]

Bạn ơi bạn có thể giúp mình đừng copy tất cả các cột của sheet candidate qua sheet onboard được không.
Tại dữ liệu 2 bên có khác nhau một chút. Mình chỉ muốn copy những cột Name, DOB, ID No thôi.
Vì bên sheet onboard còn có các dữ liệu khác mình sẽ nhập bằng tay vào.
Mình gửi lại file mẫu bạn xem giúp mình nha
Chân thành cám ơn bạn

Khi nào muốn thì ấn nút, ấn hoài sẽ "Cóp" thêm hoài.

 

[rexh]

Oh vậy là cứ mỗi lần bấm nút cái nó Cop hết qua....vậy phải xóa hết cái cũ mới bấm cái nút ....hơi khó nhỉ

 

[rexh]

Có bạn nào có cách khác bạn ở trên không giúp mình với

 

[SA_DQ]

Có thể tự động bằng macro sự kiện tại cột 'H', như dưới đây

Có bạn nào có cách khác bạn ở trên không giúp mình với

Option Explicit 
Const MaxRows As Long = 999 
Private Sub Worksheet_Change(ByVal Target As Range) 
 If Not Intersect(Target, Range("H2:H" & MaxRows)) Is Nothing Then 
    With ThisWorkbook.Worksheets("On-board").Cells(MaxRows, "B").End(xlUp).Offset(1) 
        .Value = Target.Offset(, -6).Value                  '<=| Name' 
        'DOB & ID No.:' 
        .Offset(, 3).Resize(, 2).Value = Target.Offset(, -5).Resize(, 2).Value 
    End With 
 End If 
End Sub

Tuỳ dữ liệu của trang tính nguồn mà tăng trước hằng số lên thích ứng

 

[rexh]

Mình chưa hiểu lắm bạn ơi. Bạn nói rõ hơn một chút được không