Xin GPE code để copy chèn dữ liệu sang sheet khác (1 người xem)

[hoaiphuong0209]

Xin GPE code để làm sao nhấn nút CHÈN DỮ LIỆU VÀ IN sẽ được kết quả trong sheet2 như file đính kèm, dữ liệu ở sheet1 vùng in đậm sẽ được copy và chèn vào dòng tiếp theo dòng số liệu đã có sẳng.
Xin cám ơn nhiều.

 

[nghiaphuc]

Xin GPE code để làm sao nhấn nút CHÈN DỮ LIỆU VÀ IN sẽ được kết quả trong sheet2 như file đính kèm, dữ liệu ở sheet1 vùng in đậm sẽ được copy và chèn vào dòng tiếp theo dòng số liệu đã có sẳng.
Xin cám ơn nhiều.

Bạn sử dụng code sau nhé:
[GPECODE=vb]Private Sub CommandButton1_Click()
Dim Rng As Range
Set Rng = Sheet2.[B2]
Do While Rng.Value <> ""
With Rng
Sheet1.[B1] = Rng: Sheet1.[B2] = Rng.Offset(, 2): Sheet1.[B3] = Rng.Offset(, 4)
Sheet1.[D1] = Rng.Offset(, 1): Sheet1.[D2] = Rng.Offset(, 3): Sheet1.[D3] = Rng.Offset(, 5)
Sheet1.[A13].PrintOut Preview:=True
End With
Set Rng = Rng.Offset(1)
Loop
End Sub[/GPECODE]
Nếu muốn in ra luôn thì bỏ chỗ Preview:=True đi.

 

[hoaiphuong0209]

Cảm ơn bác Nghiaphuc. ý mình ở đây là mỗi lần nhấn nút CHÈN DỮ KIỆU VÀ IN thì các dữ liệu in đậm ở sheet1 tự động chèn thêm dòng tiếp theo ở sheet2 chứ không cố định có 2 dòng ( cứ mỗi lần nhấn là chèn thêm 1 dòng ở sheet2 và in thông tin ở sheet1)

 

[bmtcity2009]

bạn xem cái này được ko nhé!
nhớ kích hoạt cho macro chạy.
có file đầu mình chưa kích hoạt in, bạn tại file thứ 2 về xem.