Sửa dùm em code cho sổ quỹ

[NH_DK]

A/C chị sửa dùm em code cho nút Tạo sổ của Sổ quỹ. Em đã kiểm tra rồi mà vẫn chưa phát hiện được sai?
A/C vui lòng xem và sửa cho em nhé!

Tải file ở đây

 

[ChanhTQ@]

Đâu, bạn sửa lại dòng lệnh

    If SNguon.Range("F" & i) = SDich.Range("E4").Text Then

thành

   [B] If SNguon.Range("F" & i) = CStr(SDich.Range("E4").Text) Then[/B]

xem sao!​

 

[MinhNguyệt]

A/C chị sửa dùm em code cho nút Tạo sổ cũa Sổ quỹ. Em đã kiểm tra rồi mà vẫn chưa phát hiện được sai?
A/C vui lòng xem và sửa cho em nhé!

Tải file ở đây

Do trong Sheet DATA bạn định dạng hai cột TK là dạng Text nên sửa thế này

.....
Dim tk As String
Set tk = SDich.Range("E4")
......
If SNguon.Range("F" & i) = tk Then
.......
ElseIf SNguon.Range("G" & i) = tk Then
.......

Thân

P/S : Lưu ý khi định dạng cáctài khoản phải thống nhất, nếu không sẽ không trích lọc được