Code kết chuyển dữ liệu (1 người xem)

[yome]

Anh/chị viết dùm em code tính tổng các tài khoản và cập nhật sang sheet khác (kết chuyển các tài khoản).
Cám ơn anh/chị nhiều!

 

[tongquangtuyen]

kết chuyển

Bạm xem file đínhkèm nha ! mình nghĩ chỉ dùng sumif là oK rồi khỏi cần phải viết nút bấm kết chuyển làm gì !!nhưng cũng tạo nút bấm cho bạn rồi

 

[SA_DQ]

Tham khảo thêm, xin mời

Option Explicit
Dim SoTien As Double, Jj As Long
Dim Sh As Worksheet

Sub KetChuyen()
 Dim RngC As Range, sRng As Range, RngB As Range
 Const Chu As String = "632 6422 6421 5111"
 Dim eRw As Long, Jj As Long, SoTien As Double
 Dim MyAdd As String
 
 Set Sh = Sheet2:             eRw = [B65500].End(xlUp).Row
 Sheet1.Select
 Set RngB = Sh.Range(Sh.[B5], Sh.[B65500].End(xlUp))
 Set RngC = RngB.Offset(, 1)
 
 For Jj = 8 To eRw
   SoTien = 0
   If InStr(Chu, CStr(Cells(Jj, "B").Value)) > 0 Then
      Set sRng = RngC.Find(Cells(Jj, "B").Value, , xlFormulas, xlWhole)
      If Not sRng Is Nothing Then
         MyAdd = sRng.Address
         Do
            SoTien = SoTien + sRng.Offset(, 1).Value
            Set sRng = RngC.FindNext(sRng)
         Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
      End If
      Cells(Jj, "D").Value = SoTien
   ElseIf InStr(Chu, Cells(Jj, "C").Value) > 0 Then
      Set sRng = RngB.Find(Cells(Jj, "c").Value)
      If Not sRng Is Nothing Then
         MyAdd = sRng.Address
         Do
            SoTien = SoTien + sRng.Offset(, 2).Value
            Set sRng = RngB.FindNext(sRng)
         Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
      End If
      Cells(Jj, "D").Value = SoTien
   End If
 Next Jj
End Sub

 

[vanvan9697]

Anh (Chị) Có thể giúp em update Sub này trong trường hợp lựa chọn
+ Kết chuyển theo tháng, năm, quý
+Xóa bút toán kết chuyển cũ chuyển thành bút toán kết chuyển mới
+Hoặc bù trừ với bút toán kết chuyển cũ được không ạ !
Em cảm ơn anh( Chị) ạ !

 

[Ba Tê]

Anh (Chị) Có thể giúp em update Sub này trong trường hợp lựa chọn
+ Kết chuyển theo tháng, năm, quý
+Xóa bút toán kết chuyển cũ chuyển thành bút toán kết chuyển mới
+Hoặc bù trừ với bút toán kết chuyển cũ được không ạ !
Em cảm ơn anh( Chị) ạ !

1/ Bạn phải có file với biểu mẫu giống thật để biết cột nào nào là ngày tháng năm, cột nào là cái gì. Kết chuyển theo Tháng, Năm, Quý thì điều kiện nằm ở đâu để biết bạn muốn tháng nào, năm nào, quý nào?
2/ Xóa bút toán kết chuyển cũ chuyển thành bút toán kết chuyển mới: dễ.
3/ Bù trừ cái cũ là sao, bạn phải giải thích cho người khác (ngoài ngành nghề) của bạn hiểu nữa chứ, nếu không thì chỉ có những thành viên làm cùng công việc với bạn mới hiểu bạn muốn gì, người khác thì thua.
4/ Vân vân...

 

[vanvan9697]

Dạ em xin phép được gửi dữ liệu và ghi chú vấn đề cần hỏi. Anh Ba tê giúp em với ạ !. Em cảm ơn anh ạ

 

[Ba Tê]

Dạ em xin phép được gửi dữ liệu và ghi chú vấn đề cần hỏi. Anh Ba tê giúp em với ạ !. Em cảm ơn anh ạ

Vẫn chưa hiểu mấy dòng giải thích, chỉ hiểu và làm được như vầy, bạn xem có giống kết quả bạn muốn không?

 

[vanvan9697]

Vẫn chưa hiểu mấy dòng giải thích, chỉ hiểu và làm được như vầy, bạn xem có giống kết quả bạn muốn không?

Dạ em cảm ơn anh @Ba Tê ạ !. Cái này là chưa cộng theo tháng anh nhỉ ?