Giúp làm hóa đơn

[vanminhhpp]

giúp tôi làm một hóa đơn bán hàng tự cập nhật và sheet tổng hợp bán hàng với

 

[viehoai]

giúp tôi làm một hóa đơn bán hàng tự cập nhật và sheet tổng hợp bán hàng với

Ở box này không biết có phạm qui không nữa, thôi có sai bạn tranh thủ xem code này đúng ý bạn không vậy
[GPECODE=vb]
Sub GHIBANGTONGHOP()
Dim Rng As Range
Application.ScreenUpdating = False
Set Rng = Sheet1.Range("B7:E" & Sheet1.[B65500].End(3).Row)
Rng.Copy
With Sheet2.[c6500].End(3).Offset(1)
.Offset(, -1).Resize(Rng.Rows.Count).Value = Sheet1.Range("E27").Value
.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
Application.ScreenUpdating = True
End Sub[/GPECODE]

 

[vanminhhpp]

cảm ơn viehoai nhé. tôi muốn thêm vào trong đó lệnh in ra máy in 2 tờ hóa đơn có cùng nội dung. sau khi in xong thì số hóa đơn tự nhảy số thì viết như thế nào?

 

[viehoai]

cảm ơn viehoai nhé. tôi muốn thêm vào trong đó lệnh in ra máy in 2 tờ hóa đơn có cùng nội dung. sau khi in xong thì số hóa đơn tự nhảy số thì viết như thế nào?

Không hiểu ý bạn, trong file hóa đơn bạn có số đâu mà thay đổi, còn in 2 hóa đơn cùng nội dung là sao? nghĩa in copy thành 2 bản?

 

[vanminhhpp]

Như thế này bạn, bạn xem xử lý giúp mình vơi.

 

[vanminhhpp]

Không hiểu ý bạn, trong file hóa đơn bạn có số đâu mà thay đổi, còn in 2 hóa đơn cùng nội dung là sao? nghĩa in copy thành 2 bản?

như thế này bạn ơi. Tôi sẽ tạo một SỐ HÓA ĐƠN sau đó ô SỐ HÓA ĐƠN sẽ gán giá trị là 00001 chẳng hạn. khi ra lệnh in thì hóa đơn thì SỐ HÓA ĐƠN sẽ tự động nhẩy số.

 

[viehoai]

như thế này bạn ơi. Tôi sẽ tạo một SỐ HÓA ĐƠN sau đó ô SỐ HÓA ĐƠN sẽ gán giá trị là 00001 chẳng hạn. khi ra lệnh in thì hóa đơn thì SỐ HÓA ĐƠN sẽ tự động nhẩy số.

Theo như file excel bạn đưa thì code trên thêm đoạn code
[GPECODE=vb]
With Sheet1
.PrintOut , , 2
.Range("E3").Value = .Range("E3").Value + 1
End With[/GPECODE]