Copy dữ giữa 2 sheet thông qua marco

[bblove]

Chào các bác, mình đã tạo 1 file sample excel như sau

sheet 1: Dành cho nhân viên nhập 1 số thông tin khi di buiness trip
vidu tên, hotel ... ẽtc
Sau khi user input xong het thì sẽ nhấn nút Process. Khi đó sẽ hiện 1 man hình hỏi ủe YEs/ NO
Neu YEs, thỉ
sẽ copy toàn bộ thông tin nhân viên nhạp từ sheet 1 vào đây sheet 2
in ra mấy in và xóa dữ liệu trên sheet 1

Neu No thi trỡ lai như cũ.

Mong các bác giúp đỡ mình, xin hậu tạ

 

[sealand]

Bạn nên sửa sheet Applicant thành Hóa đơn hoàn chỉnh, khi nhấn nút OK thì sẽ in ngay Hóa đơn này và lưu các giá trị vào sheet Budget Control rồi reset trang Applicant thì hợp lý hơn. Bạn sửa lại đi rồi làm tiếp cho tiện. Ô Details of schedule (Place to visit, flight schedule, etc.) thì chèn cho nó vài dòng khỏi lo chuyện Alt+Enter.
Riêng vụ "Hậu tạ" thì sắp sinh nhật rồi, lo gì không có cơ hội.

 

[bblove]

cám ơn bác đã góp y cho em
hiện tại mong bác giúp em cai nha. em đã sữa thay đổi 1 số it chi tiết rõ ràng hơn.

Thông tin trong sheet Applicant mà user dien vào là chữ đỏ, highlight vàng. sẽ đươc copy qua sheet budget theo thứ tự.

sau khu user nhập xong, thì sẽ bấm nút process, man hình yêu cầu hiện ra yes hay no. nếu chon yes, thi se in ra máy và copy dữ lieu wa cot budget và xoa dữ liệu đã nhập vừa rồi

 

[Pozsi]

Em xin trả lời bài đầu tiên như sau!!!
Mong nhận được ý kiến đóng góp quý báo từ mọi người.
Về phần "Hậu tạ" thì em xin "Thôi", cảm ơn đã đóng góp. hi hihi

 

[bblove]

Em xin trả lời bài đầu tiên như sau!!!
Mong nhận được ý kiến đóng góp quý báo từ mọi người.
Về phần "Hậu tạ" thì em xin "Thôi", cảm ơn đã đóng góp. hi hihi

Em cam on bac da giúp em
bac pozzi, em thay doi them 1 so dòng vào, cái nó hết chạy luon rồi bác oi, mong bác giup em
Vớ lại, em muon Sheet application print ra truoc khi clear content thi sao ha bac'.

 

[Pozsi]

Chào bác, em đã cố gắng làm được như vầy nhưng do em không có máy In ngay tại đây nên không chắc kết quả được như ý. Nếu bác thử lại không được thì xin cho em biết tình trạng lỗi ở dòng nào được không ạ!
Và cuối cùng xin cảm ơn bác đã góp ý ạ!
T/b: Em mới có 21T à bác ơi! Gọi bằng "Bác" chắc em tổn thọ quá! hi hi Cảm ơn bác đã quan tâm.

 

[bblove]

Chào bác, em đã cố gắng làm được như vầy nhưng do em không có máy In ngay tại đây nên không chắc kết quả được như ý. Nếu bác thử lại không được thì xin cho em biết tình trạng lỗi ở dòng nào được không ạ!
Và cuối cùng xin cảm ơn bác đã góp ý ạ!
T/b: Em mới có 21T à bác ơi! Gọi bằng "Bác" chắc em tổn thọ quá! hi hi Cảm ơn bác đã quan tâm.

bac oi, gap lỗi phần print roi .
Em cung moi 20 thoi, bac goi em bang bac thi em cũng tổn thọ luôn hehe

 

[quochuy86]

to: bblove
theo mình đoạn code print nên sửa như sau:
"Sheet2.Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True"
Hình như do bạn chưa select sheets nào cả nên nó báo lỗi thì phải.
Mình cũng đã test thấy print được rồi.
Thân

 

[Dek]

Nếu bạn chưa thành thạo về VBA lắm thì viết đoạn code hơi khó, để thực hiện điều này nên dùng macro, tạo các nút lệnh sau đó chọn tool/macro/recodr ...rồi thực hiện các thao tác theo trình tự ý muốn ( như Chọn lệnh printer, Copy, pate ...), mỗi thao tác macro sẽ ghi nhớ lại. sau khi hoàn tất các thao tác phải chọn stop recording. chúc thành công !