Dò tìm số tiền xuất hóa đơn từng hợp đồng (1 người xem)

[mai07]

Em gửi kèm file.
Em muốn mổi khi em nhập dữ liệu bên Sheet Phiếu Xuất hóa đơn thì số tiền tự động cập nhật trong Sheet Bảng Xuất Hóa đơn.

 

[SA_DQ]

Có thể mình chửa thấu hiểu í bạn, hãy xem macro sự kiện sau

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Columns("C:C")) Is Nothing Then
   Dim Sh As Worksheet, Rng As Range, sRng As Range
   
   Set Sh = Sheets("HoaDon")
   Set Rng = Sh.Range(Sh.[A4], Sh.[a65500].End(xlUp))
   Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
   If Not sRng Is Nothing Then
      With sRng.Offset(, 5)
         .Value = .Value + Target.Offset(, -1).Value
      End With
   End If
 End If
End Sub

Tại 'PhieuHD' mình nhập vô [A40] trị 37 (STT); Bên fải liền kề nhập số 1 & tiếp theo tại [C40] nhập 335 thì bên trang tính bên kia sẽ xuất hiện con số 1 ở cột 'F';

(Nếu ta lặp lại chu trình này ở dòng kế tiếp, chúng ta sẽ nhận được tại cột 'F' nêu trên con số 2)

Bạn cho í kiến rõ hơn nếu chưa đúng í nha

 

[mai07]

Em cảm ơn anh. Em cứ mò mẫm mãi.



Em đã hiểu ý đoạn code của anh. Đoạn code này để tính tổng số tiền các hóa đơn cho từng hợp đồng.

Ý em là :
Lần 1 nhập số tiền 30 trong sheet Phiếu Hóa đơn thì sheet Hóa đơn tự điền số tiền 30 vào cột lần xuất hóa đơn 1.
Lần 2, tương tự, nhập 60 trong sheet Phiếu Hóa đơn thì sheet Hóa đơn tự cập nhật số tiền 60 vào lần xuất hóa đơn 2.
Mà em làm sai gì ấy, máy báo Run time Error 1004.

 

[SA_DQ]

À mà mình chưa nói với bạn là mình viết code trên E2K3 đó nhe

Bạn sửa lại macro như sau:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Columns("C:C")) Is Nothing Then
    On Error Resume Next 
     If Target.Value = "" Then Exit Sub
      Dim Sh As Worksheet, Rng As Range, sRng As Range
    
   Set Sh = Sheets("HoaDon")
   Set Rng = Sh.Range(Sh.[A4], Sh.[a65500].End(xlUp))
   Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
   If Not sRng Is Nothing Then
1      Set Rng = Sh.Cells(sRng.Row, "J").End(xlToLeft).Offset(, 1)
     If Rng.Column < 7 Then Set Rng = Sh.Cells(sRng.Row, "G")
2      Rng.Value = Target.Offset(, -1).Value
   End If
 End If
End Sub

 

[mai07]

Đoạn code anh viết em làm như sau:
Right click vào Sheet Phieu Hoa don-View Code-Paste-Close
Em không hiểu code anh viết trên E2K3 là thế nào. Tuy nhiên, đoạn code này đúng như yêu cầu rồi.