Thêm dòng trên sheet danh mục hóa đơn

[youkosuk]

Chào các bạn !

Mình có cái file khi cần thu tiền khách hàng thì mình viết hóa đơn và in hóa đơn ra để thu tiền khách hàng. Mình muốn mỗi lần in hóa đơn thì nó tự động thêm một dòng trên sheet DMHOADON (STT, NGÀY HÓA ĐƠN, NỘI DUNG, SỐ TIỀN VNĐ, SỐ TIỀN USD).

Nhờ các bạn giúp mình cái phần này, mình không biết phải làm như thế nào ?

Cám ơn các bạn nhiều.

 

[ThuNghi]

Chào các bạn !

Mình có cái file khi cần thu tiền khách hàng thì mình viết hóa đơn và in hóa đơn ra để thu tiền khách hàng. Mình muốn mỗi lần in hóa đơn thì nó tự động thêm một dòng trên sheet DMHOADON (STT, NGÀY HÓA ĐƠN, NỘI DUNG, SỐ TIỀN VNĐ, SỐ TIỀN USD).

Nhờ các bạn giúp mình cái phần này, mình không biết phải làm như thế nào ?

Cám ơn các bạn nhiều.

Làm thêm 1 nút cập nhật được không? Mình sẽ cập nhật rồi in. Chớ khi in mà cập nhật, nếu mình in lại thì cập nhật nữa à. Số hóa đơn thì lây đâu ra.
OK, tôi sẽ làm cho bạn.

 

[youkosuk]

Làm thêm 1 nút cập nhật được không? Mình sẽ cập nhật rồi in. Chớ khi in mà cập nhật, nếu mình in lại thì cập nhật nữa à. Số hóa đơn thì lây đâu ra.
OK, tôi sẽ làm cho bạn.

ok, 2 nút tách biệt nhau cũn được, một nút in và một nút cập nhật.

 

[youkosuk]

Làm thêm 1 nút cập nhật được không? Mình sẽ cập nhật rồi in. Chớ khi in mà cập nhật, nếu mình in lại thì cập nhật nữa à. Số hóa đơn thì lây đâu ra.
OK, tôi sẽ làm cho bạn.

Àh, mình quên thêm cái mục số hóa đơn. Mình điều chỉnh và thêm mục hóa đơn rùi đó.

Số hóa đơn là mình tự gõ vào chứ không có sẳn.

Giúp mình nha.

Thanks

 

[ThuNghi]

Àh, mình quên thêm cái mục số hóa đơn. Mình điều chỉnh và thêm mục hóa đơn rùi đó.

Số hóa đơn là mình tự gõ vào chứ không có sẳn.

Giúp mình nha.

Thanks

Bạn gắn code sau vào, nội dung chưa biết nên lấy tên KH, còn số tiền USD thí lấy tổng số VND/ tỉ giá.

Sub capnhat()
Dim endr As Long
With Sheets("DMHOADON")
  endr = .Cells(65000, 1).End(xlUp).Row + 1
  If .Range("A" & endr) = 0 Then 'sott'
    .Range("A" & endr).Value = 1
  Else
    .Range("A" & endr).Value = .Range("A" & endr - 1).Value + 1
  End If
    .Range("B" & endr).Value = Sheet1.Range("H3").Value 'Ngay HD'
    .Range("C" & endr).Value = Sheet1.Range("H2").Value 'So hoa don'
    .Range("D" & endr).Value = Sheet1.Range("D6").Value & " - " & Sheet1.Range("D7").Value 'Noi dung'
    .Range("E" & endr).Value = Sheet1.Range("H24").Value / Sheet1.Range("G11").Value 'VND'
    .Range("F" & endr).Value = Sheet1.Range("H24").Value 'VND'
End With
MsgBox "Finish"
End Sub

 

[youkosuk]

Bạn gắn code sau vào, nội dung chưa biết nên lấy tên KH, còn số tiền USD thí lấy tổng số VND/ tỉ giá.

Sub capnhat()
Dim endr As Long
With Sheets("DMHOADON")
  endr = .Cells(65000, 1).End(xlUp).Row + 1
  If .Range("A" & endr) = 0 Then 'sott'
    .Range("A" & endr).Value = 1
  Else
    .Range("A" & endr).Value = .Range("A" & endr - 1).Value + 1
  End If
    .Range("B" & endr).Value = Sheet1.Range("H3").Value 'Ngay HD'
    .Range("C" & endr).Value = Sheet1.Range("H2").Value 'So hoa don'
    .Range("D" & endr).Value = Sheet1.Range("D6").Value & " - " & Sheet1.Range("D7").Value 'Noi dung'
    .Range("E" & endr).Value = Sheet1.Range("H24").Value / Sheet1.Range("G11").Value 'VND'
    .Range("F" & endr).Value = Sheet1.Range("H24").Value 'VND'
End With
MsgBox "Finish"
End Sub

Bạn ơi, sao cột STT nó không nhảy lên là 2,3,4....mà nó cứu ghi là 1,1.1,.....,1

 

[ThuNghi]

Bạn ơi, sao cột STT nó không nhảy lên là 2,3,4....mà nó cứu ghi là 1,1.1,.....,1

Xin lỗi, sửa lại câu
If .Range("A" & endr) = 0 Then
thành
If .Range("A" & endr-1) = 0 Then

 

[youkosuk]

Xin lỗi, sửa lại câu
If .Range("A" & endr) = 0 Then
thành
If .Range("A" & endr-1) = 0 Then

Báo lỗi chổ này (màu vang):

.Range("A" & endr).Value = .Range("A" & endr - 1).Value + 1

 

[thivantan]

Báo lỗi chổ này (màu vang):

.Range("A" & endr).Value = .Range("A" & endr - 1).Value + 1

Bạn thay đoạn:

If .Range("A" & endr) = 0 Then 'sott'
    .Range("A" & endr).Value = 1
  Else
    .Range("A" & endr).Value = .Range("A" & endr - 1).Value + 1
  End If

Bằng:

 .Range("A3:A" & endr).Value = Evaluate("ROW(R:R)")

Chúc vui.