Lỗi liên quan đến Worksheet_Change và Autofilter

[LEHOC]

Em có file dưới bị lỗi như trong mô tả trong sheet "Chitiet-STKH" liên, file em đính kèm bên dưới ạ, anh/chị nào chỉ giáo cho em với ạ.
EM cảm ơn!

Bài đã được tự động gộp: 10/7/19

Em có file dưới bị lỗi như trong mô tả trong sheet "Chitiet-STKH" liên, file em đính kèm bên dưới ạ, anh/chị nào chỉ giáo cho em với ạ.
EM cảm ơn!

Bác @leonguyenz chỉ giáo em với ạ.
Em cảm ơn!

 

[snow25]

Em có file dưới bị lỗi như trong mô tả trong sheet "Chitiet-STKH" liên, file em đính kèm bên dưới ạ, anh/chị nào chỉ giáo cho em với ạ.
EM cảm ơn!

Bài đã được tự động gộp: 10/7/19

Bác @leonguyenz chỉ giáo em với ạ.
Em cảm ơn!

Đã code VBA lại còn công thức nữa là sao ta.

 

[leonguyenz]

Em có file dưới bị lỗi như trong mô tả trong sheet "Chitiet-STKH" liên, file em đính kèm bên dưới ạ, anh/chị nào chỉ giáo cho em với ạ.
EM cảm ơn!

Bài đã được tự động gộp: 10/7/19

Bác @leonguyenz chỉ giáo em với ạ.
Em cảm ơn!

Sửa AutoFilter lại cột G,
Sửa công thức trong code, thêm giá trị 0 khi IF không thỏa mãn điều kiện.
Range("G10:G109").FormulaR1C1 = _
"=IF(LEN(RC3)>2,OFFSET(Tong!R5C8,MATCH('Chitiet-STKH'!RC[-4],Tong!R7C2:R81C2,0)+1,MATCH(R8C7,Tong!R5C9:R5C33,0)),0)"

Sheets("Chitiet-STKH").Range("G9:G" & LastRow).AutoFilter 1, "<>0", , , False

 

[LEHOC]

Đã code VBA lại còn công thức nữa là sao ta.

công thức ở chỗ nào bác? em mới tập tành vba nên chưa tối ưu được ạ. bác chỉ giáo em với
Em cảm ơn

 

[snow25]

công thức ở chỗ nào bác? em mới tập tành vba nên chưa tối ưu được ạ. bác chỉ giáo em với
Em cảm ơn

Công thức trong File đó.Bỏ hết đi file nó mới nhẹ và nhanh được.Dùng Vba để cho file nhẹ và nhanh mà.

 

[LEHOC]

Sửa AutoFilter lại cột G,
Sửa công thức trong code, thêm giá trị 0 khi IF không thỏa mãn điều kiện.
Range("G10:G109").FormulaR1C1 = _
"=IF(LEN(RC3)>2,OFFSET(Tong!R5C8,MATCH('Chitiet-STKH'!RC[-4],Tong!R7C2:R81C2,0)+1,MATCH(R8C7,Tong!R5C9:R5C33,0)),0)"

Sheets("Chitiet-STKH").Range("G9:G" & LastRow).AutoFilter 1, "<>0", , , False

Em sửa được rồi ạ. Cảm ơn anh..
À, anh xem hộ em mấy chỗ DoAlert bị lỗi font là như thế nào vậy anh?
Vẫn chuỗi ChrW đó nhưng có máy show được tiếng việt có dấu, có máy bị lỗi trong khi 2 máy đều chạy win 10 64bit và cài office 2016 x64.
Với máy bị lỗi font cũng dính thêm lỗi trong module import nếu chọn đến file là tiếng việt có dấu sẽ bị Exit Sub luôn và không có thông báo gì ạ, còn máy mà không lỗi font thì chạy bình thường.

 

[LEHOC]

Em sửa được rồi ạ. Cảm ơn anh..
À, anh xem hộ em mấy chỗ DoAlert bị lỗi font là như thế nào vậy anh?
Vẫn chuỗi ChrW đó nhưng có máy show được tiếng việt có dấu, có máy bị lỗi trong khi 2 máy đều chạy win 10 64bit và cài office 2016 x64.
Với máy bị lỗi font cũng dính thêm lỗi trong module import nếu chọn đến file là tiếng việt có dấu sẽ bị Exit Sub luôn và không có thông báo gì ạ, còn máy mà không lỗi font thì chạy bình thường.

Anh @leonguyenz ơi, em kiểm tra lại thì do thiếu font, em cập nhật đủ font nhưng vẫn bị lỗi không mở được file tiếng việt có dấu, còn thông báo thì hiển thị đầy đủ tiếng việt có dấu rồi ạ.

 

[leonguyenz]

Anh @leonguyenz ơi, em kiểm tra lại thì do thiếu font, em cập nhật đủ font nhưng vẫn bị lỗi không mở được file tiếng việt có dấu, còn thông báo thì hiển thị đầy đủ tiếng việt có dấu rồi ạ.

Bạn gửi cái hình báo lỗi lên mọi người xem mặt mũi nó ra sao mới biết được lỗi ở đâu chứ nhỉ?

 

[LEHOC]

Bạn gửi cái hình báo lỗi lên mọi người xem mặt mũi nó ra sao mới biết được lỗi ở đâu chứ nhỉ?

Nó lỗi là không chạy được sub import khi chọn tới file là tên tiếng việt có dấu và exit sub luôn ạ, thee em thì do Dir trả về ""