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

[wevi]

Sự việc như sau:

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

No
Name
DOB
ID No.
Cell Phone
Interview date
Training
on-board


Sheet 2 bao gồm các cột:
No.
Name
Current Code
ID Work
DOB
ID No.
Signing
Bank Account

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

View more random threads:

• Theo dõi khám chữa bệnh
• Căn đều dữ liệu bảng khi thay đổi số lượng các ô
• THEO DÕI BÁN HÀNG
• Theo dõi Văn bản, sử dụng PivotTable để tổng hợp báo cáo và xuất danh sách theo nhu cầu.
• Viết đoạn code cho nút lệnh SAVE ?
• 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
• MIDI Sound - Soạn nhạc trong Excel - Bài hát "Gọi đò"
• VBA Copy file và đổi tên file từ thư mục này qua thư mục khác
• Dùng VBA liên kết Form với các Sheet
• Nhờ các bạn viết giúp code tạo nút NHẬP

[galuoi92]

Ðề: 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

ai giúp mình với

[trungvn2092]

Ðề:Chỉ có thể tự động bằng macro sự kiện tại cột 'H', bạn đồng í?

/(/ếu OK thì bạn copy toàn bộ nội dung dưới đây vô bộ nhớ trung gian:

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

& fải chuột lên thanh SheetName & chọn dòng cuối của cửa sổ vừa xuất hiện (CS VBE trong E2003)
Tiếp theo, bạn dán thứ copy được vô đó.

Bạn thử đánh hay nhập gì đó vô dòng nào tại cột 'H' để xem macro làm việc.

(Hướng dẫn bảo trì: Khi dữ liệu vừa vượt 900 dòng thì bạn tăng số 999 thêm 1 con số 9 nữa, để ngủ khỏe hơn trong tháng!)
(& những mong khỏi gở file lên!)

(húc thành công!

[hvcuong]

Ðề: 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

Bạn xem thế này đk ko ?
:muatumlum:

[myphamchatluong]

Ðề: 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

Bạn xem thế này đk ko ?

Sẽ rất bất tiện đó bạn! Vì trang tính đích sẽ xen kẻ dòng không chứa dữ liệu; & điều này là tối kỵ trong 1 CSDL (cơ sở dữ liệu)

Thân!

[thinhhp91]

Ðề: 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

Các a chị cho e hỏi sau khi chuyển dữ liệu từ sheet nay sang sheet khác nó ko sắp xếp theo đúng thứ tự thì làm cách nào ạ. Ko tính là đánh số theo cách thủ công là tự điền số

[aaronmax]

Ðề: 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

Thì bạn có thể có 2 lựa chọn:

Thủ công: Bạn qua trang tính đó mà sắp xếp lại bằng tay.

Có thể viết thêm vài dòng lệnh trong macro trên; Lúc này bạn cần đưa file giả lập của bạn lên, sẽ tiện & hữu dụng ngay cho bạn hơn!

Chờ tin từ bạn & chúc vui!