Hiển thị thông báo khi không tìm thấy hình (1 người xem)

[lmtuyen]

Chào Anh/Chị
Mình có viết lại code chèn hình trên diễn đàn phù hợp với yêu cầu của mình, giờ mình đang bí ở chỗ, "nếu ờ sheet "Hình" đánh vào code motor ở ô A1, mà trong file hình mình chưa có thì mình muốn nó hiển thị 1 dòng thông báo đại khái, "chưa có dữ liệu".

Mong Anh/Chị giúp đỡ.

Thanks,

 

[lmtuyen]

Hic, các Pro ơi giúp với, đang bí với yêu cầu trên

 

[phucbugis]

Chào Anh/Chị
Mình có viết lại code chèn hình trên diễn đàn phù hợp với yêu cầu của mình, giờ mình đang bí ở chỗ, "nếu ờ sheet "Hình" đánh vào code motor ở ô A1, mà trong file hình mình chưa có thì mình muốn nó hiển thị 1 dòng thông báo đại khái, "chưa có dữ liệu".
Mong Anh/Chị giúp đỡ.
Thanks,

bạn tải file đính kèm về xem sao nhé !

 

[lmtuyen]

Thanks Anh phucbugis, code chạy Ok

 

[lmtuyen]

Anh phucbugis, xem giúp file đình kèm, Mình thêm đoạn "gancongthuc" và "copy_1" khi chạy thì báo lỗi, treo máy luôn.

 

[phucbugis]

Anh phucbugis, xem giúp file đình kèm, Mình thêm đoạn "gancongthuc" và "copy_1" khi chạy thì báo lỗi, treo máy luôn.

- lỗi bạn gặp phải là bị vòng lặp vô tận do đặt bên ngoài điều kiện của Target.
- khi dùng sự kiện Worksheet_Change thì hay xảy ra lỗi đó và thường dùng đoạn code sau để cài, nhưng trong file của bạn thì chưa cần:

Application.EnableEvents = False
'code
Application.EnableEvents = True

'-------------
- bạn tải file về kiểm tra tiếp nhé !
- mình sắp xếp lại code: sự kiện Worksheet_Change, Sub gancongthuc và Sub copy_1

 

[lmtuyen]

Thanks Anh nhiều, code chạy ok, học được thêm nhiều thứ. Mình còn viết nhiều file nhỏ nửa để hộ trợ công việc cho các bạn đồng nghiệp khác đỡ vất vả. chắc còn hỏi Anh nhiều, mong Anh giúp đỡ

 

[lmtuyen]

Thanks Anh nhiều, code chạy ok, học được thêm nhiều thứ. Mình còn viết nhiều file nhỏ nửa để hộ trợ công việc cho các bạn đồng nghiệp khác đỡ vất vả. chắc còn hỏi Anh nhiều, mong Anh giúp đỡ