Copy qua sheet khác dùng vba (1 người xem)

[khanh.kbc]

Mình mới mò mẫn cuốn VBA cho người mới bắt đầu chắc còn lâu lắm mới làm được, nhưng vì nhu cầu công việc nên mình cần file này, bạn nào có thể, mong giúp mình giải quyết vấn đề này với:
Nút IN khi ấn vào đó sẽ:
- in ra 1 bảng hóa đơn A5, đồng thời tại ô B2 tăng thêm 1 số.
- tất cả các dữ liệu (tô vàng) sẽ copy qua sheet thongke theo thứ tự hóa đơn từ 1 đến 1000.
- Sau khi copy các dữ liệu bên sheet hoadon sẽ xóa hết, trong khi sheet thongke thì còn
Chân thành cảm ơn các bạn!

 

[Let'GâuGâu]

Mình mới mò mẫn cuốn VBA cho người mới bắt đầu chắc còn lâu lắm mới làm được, nhưng vì nhu cầu công việc nên mình cần file này, bạn nào có thể, mong giúp mình giải quyết vấn đề này với:
Nút IN khi ấn vào đó sẽ:
- in ra 1 bảng hóa đơn A5, đồng thời tại ô B2 tăng thêm 1 số.
- tất cả các dữ liệu (tô vàng) sẽ copy qua sheet thongke theo thứ tự hóa đơn từ 1 đến 1000.
- Sau khi copy các dữ liệu bên sheet hoadon sẽ xóa hết, trong khi sheet thongke thì còn
Chân thành cảm ơn các bạn!

thử vậy xem đúng ý ko nha

Sub inhoadon()

With Sheet1.[a2000].End(3)
    .Offset(1).Value = [b2].Value 'so
    .Offset(1, 1).Value = [b1].Value 'ngay
    .Offset(1, 2).Value = [c6].Value 'k/hang
    .Offset(1, 3).Value = [c7].Value 'ma hoso
    .Offset(1, 4).Value = [c8].Value 'bsi
    .Offset(1, 6).Value = [g200].End(3).Value
End With
[b2] = [b2] + 1
Union([b1], [c6:c8], [a11:e30]).ClearContents

End Sub

 

[khanh.kbc]

thử vậy xem đúng ý ko nha

Sub inhoadon()

With Sheet1.[a2000].End(3)
    .Offset(1).Value = [b2].Value 'so
    .Offset(1, 1).Value = [b1].Value 'ngay
    .Offset(1, 2).Value = [c6].Value 'k/hang
    .Offset(1, 3).Value = [c7].Value 'ma hoso
    .Offset(1, 4).Value = [c8].Value 'bsi
    .Offset(1, 6).Value = [g200].End(3).Value
End With
[b2] = [b2] + 1
Union([b1], [c6:c8], [a11:e30]).ClearContents

End Sub

Vô cùng cám ơn bạn, nếu có time mong bạn giúp mình thêm phần này nhé:
- Nút IN khi ấn vào ngoài các chức năng trên cuối cùng sẽ in ra phần hóa đơn đồng thời save lại!
- Phần sheet thống kê có cách nào bảo mật không bạn, vì khi mình protech sheet thì nó không copy, mình dùng cái này để quản lý nhân viên nên rất cần.
Một lần nữa cảm ơn pro rất nhiều!

 

[nguyet an]

Mình mới tham gia GPE, mới tập tành viết code, cũng thử "múa rìu" ...........xem sao.