Update số dư bằng code (1 người xem)

[ninhmoon]

Dear All!
Tại sheet Socai131 Em muốn lấy giá trị số phát sinh trong kỳ bên nợ Tại G13 và bên có tại H13.
Theo điều kiện đối tượng tại sheet CT131 tại X3;Z3;Y3 và em đang dùng code để chuyển điều kiện sang bên sheet Socai131
Nhưng mà hiện tại nó nhảy không đúng theo yêu cầu. Tức là có sự trùng lặp theo điều.
Em hiện tại không biết cách sửa code như thế nào cho đúng.
Mọi người xem và cho em một chút gợi ý.
Thanks!
Mọi người xem hộ em đoạn code bên dưới thiếu hay sai điều kiện gì ad?

[GPECODE=vb]
Sub Updatesocai131() 'cung~ dung` phuong thuc' Find
Dim ws As Worksheet, tendoituong As String, Rng As Range, sRng As Range
Dim ngay As Variant


Set ws = Sheet5 'sheet SoCai331
tendoituong = Range("SCT_tendoituong").Value
Set Rng = ws.Range("A12:A65000")
Set sRng = Rng.Find(tendoituong, , xlValues, xlWhole)

ngay = ThisWorkbook.Sheets("CT131").Range("D65000").End(xlUp).Value 'OK

'neu tim` thay' ten Doi tuong tai. sheet List TK331
If Not sRng Is Nothing Then
ws.Range("C" & sRng.Row) = ngay
' ws.Range("G" & sRng.Row) = Range("SCT_SoPSbenco").Value
ws.Range("G" & sRng.Row) = Range("SCT_SoPSNo").Value
ws.Range("H" & sRng.Row) = Range("SCT_SoPSbenco").Value

Range("A12:A65000").Interior.Color = xlNone
ws.Range("A" & sRng.Row).Interior.Color = vbYellow
End If

Set ws = Nothing
End Sub





[/GPECODE]

File đính kèm

 

[VetMini]

Bạn đã từing được khuyên không nên dùng tiếng ngoại trong xã giao, và bạn có nhìn nhận rồi.
Quả nhiên người mình có câu "ngựa quen đường cũ"
Nếu bạn không hiểu thành ngữ Việt thì đây: "A leopard can't change its spots"

 

[ninhmoon]

Bạn đã từing được khuyên không nên dùng tiếng ngoại trong xã giao, và bạn có nhìn nhận rồi.
Quả nhiên người mình có câu "ngựa quen đường cũ"
Nếu bạn không hiểu thành ngữ Việt thì đây: "A leopard can't change its spots"

Cảm ơn bác VetMini.
Bác xem hộ e cái File. hihi