Nhờ các Anh/Chị xem giúp em Marco Sổ Cái (1 người xem)

[immanuel]

Các Anh/Chị xem giúp em, em có sổ cái khi lên cân đối phát sinh và nhật ký chứng từ nó tự nhảy lên sổ cái. Marco nhảy lên sổ cái là chính xác cho các chi tiết của từng tài khoản. Nhưng khi lên tổng hợp thì lại không chính xác do bù trừ của tài khoản.
Em lấy ví dụ cụ thể như sau:
TK112: Tổng phát sinh Có: 196.940.669.022 nhưng khi gõ sổ cái chi lên phát sinh Có: 104.592.454.022 lý do em tìm được là do bù trừ các nghiệp vụ, mặc dù em gõ chi tiết của từng tài khoản 11211,11222... là đúng nhưng khi cộng lên gõ tk 112 tổng lại không chính xác.
Em liệt kê bị sai của các nghiệp vụ sau: Sheet NKC dòng 1892 bôi đỏ: Nợ TK11224/Có TK11223: 625.950.000 đồng
Sheet NKC dòng 2828 bôi đỏ: Nợ TK11224/Có TK11223: 4.601.960.000 đồng
Em không muốn bù trừ nghiệp vụ này, muốn khi gõ 112: Hiện nên bên có là cộng thêm 2 bút toán này. Và tương tự sổ cái này nó lấy phát sinh nợ chứ không bù trừ.

Em gửi code của Sổ cái: Mong các anh chỉ sửa giúp em, code sai ở chỗ nào.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
If Not Intersect(Target, [E5:E6]) Is Nothing Then

Application.ScreenUpdating = False
Dim iR As Long, endR As Long, sR As Long, sSHTK As String
Dim ArrData(), ArrSocai(), MKH As String
With Sheets("NKC")
endR = .Cells(65000, 2).End(xlUp).Row
ArrData = .Range("A4:J"

 

[immanuel]

Nhờ các cao thủ tiền bối, xử lý giúp em vấn đền code số cái này với ah. Em xin cám ơn.

 

[dovanhoc84]

Các Anh/Chị xem giúp em, em có sổ cái khi lên cân đối phát sinh và nhật ký chứng từ nó tự nhảy lên sổ cái. Marco nhảy lên sổ cái là chính xác cho các chi tiết của từng tài khoản. Nhưng khi lên tổng hợp thì lại không chính xác do bù trừ của tài khoản.
Em lấy ví dụ cụ thể như sau:
TK112: Tổng phát sinh Có: 196.940.669.022 nhưng khi gõ sổ cái chi lên phát sinh Có: 104.592.454.022 lý do em tìm được là do bù trừ các nghiệp vụ, mặc dù em gõ chi tiết của từng tài khoản 11211,11222... là đúng nhưng khi cộng lên gõ tk 112 tổng lại không chính xác.
Em liệt kê bị sai của các nghiệp vụ sau: Sheet NKC dòng 1892 bôi đỏ: Nợ TK11224/Có TK11223: 625.950.000 đồng
Sheet NKC dòng 2828 bôi đỏ: Nợ TK11224/Có TK11223: 4.601.960.000 đồng
Em không muốn bù trừ nghiệp vụ này, muốn khi gõ 112: Hiện nên bên có là cộng thêm 2 bút toán này. Và tương tự sổ cái này nó lấy phát sinh nợ chứ không bù trừ.

Em gửi code của Sổ cái: Mong các anh chỉ sửa giúp em, code sai ở chỗ nào.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
If Not Intersect(Target, [E5:E6]) Is Nothing Then

Application.ScreenUpdating = False
Dim iR As Long, endR As Long, sR As Long, sSHTK As String
Dim ArrData(), ArrSocai(), MKH As String
With Sheets("NKC")
endR = .Cells(65000, 2).End(xlUp).Row
ArrData = .Range("A4:J"

Có phải ai cũng làm việc như bạn đâu mà bạn lấy ví dụ kiểu này. Nếu là tôi thì tôi sẽ trích xuất 1 phần nhỏ của file ra gửi lên cho mọi người xem. chứ bắt mọi người tưởng tượng ra cái sổ cái, tưởng tượng ra cách thức làm việc cảu cái sổ cái của bạn...

 

[sealand]

Code của ban chỉ thiếu:

End With
End Sub

và xoá đi dòng

ArrData = .Range("A4:J"
(Vì ai mà biết bạn định chạy đến J mấy)

Như vậy là chạy được, còn chạy như thế nào thì chỉ bạn biết (Kể cả cái dòng bôi đỏ ở đâu ấy)

 

[doveandrose]

ủa bài từ năm nào rồi lôi lên chi vậy ?