Nhờ tạo code chèn nhiều cột có điều kiện (1 người xem)

[tanbinh2002]

Xin kính chào các Anh/Chị!
Tôi có một khó khăn khi chèn nhiều cột có điều kiện (yêu cầu có nêu trong file)
Tôi đang tập tành VBA, cũng copy paste một số code để xài, tuy nhiên đến phần này thì không biết nữa, nhờ các Anh/Chị tạo giúp tôi code này.
Cám ơn rất nhiều.

 

[tanbinh2002]

Kính gởi các Anh/Chị!
Trước mắt tôi cần chèn thêm cột theo điều kiện, còn việc copy tôi sẽ nghiên cứu thêm
Tôi có viết code chèn cho điều kiện "TO", tuy nhiên cột chọn để chèn thì tôi viết cốt định chưa biết viết theo điều kiện .
Đúng ra là như sau:
1. Khi tôi click vào form muốn chèn chương trình TO thì câu lệch là dò tìm trên dòng 2 nếu thỏa điều kiện thì chèn thêm 4 cột phía sau cột có chứa TO, (cụ thể ô E2 như trong bảng) hoặc chèn phía trước cột có chứa NM NN (cụ thể ô J2, các ô này thay đổ do bị chèn thêm cột). tương tự như các trường hợp khác.
2. Do tôi muốn chèn chương trình của sản phẩm nào thì phải chèn vào khu vực của sản phẩm đó nên câu lệnh của tôi viết không đúng yêu cầu.

Nhờ các anh chị hướng dẫn thêm
Cám ơn nhiều

 

[tanbinh2002]

Kính gởi các bạn!
Sau thời gian tìm tìm, kiếm kiếm, cắt dán tùm lum, cuối cùng với kiến thức về VBA cùi bắp của mình, tôi cũng làm được như ý mình rồi.
Anh chị nào chuyên nghiệp có vô tình ghé mục này thì đừng cười tôi nhá, nếu được thì vui lòng cho ý kiến hay hướng dẫn các câu lệnh cho gọn hơn giúp.
Còn anh chị nào có nhu cầu như tôi mà chưa có giải pháp nào tốt hơn thì có thể lấy dùm tạm.
Cám ơn.

 

[Let'GâuGâu]

Kính gởi các bạn!
Sau thời gian tìm tìm, kiếm kiếm, cắt dán tùm lum, cuối cùng với kiến thức về VBA cùi bắp của mình, tôi cũng làm được như ý mình rồi.
Anh chị nào chuyên nghiệp có vô tình ghé mục này thì đừng cười tôi nhá, nếu được thì vui lòng cho ý kiến hay hướng dẫn các câu lệnh cho gọn hơn giúp.
Còn anh chị nào có nhu cầu như tôi mà chưa có giải pháp nào tốt hơn thì có thể lấy dùm tạm.
Cám ơn.

chỉ có 2 cái này bạn tham khảo cho vui
- đây là box hàm và cthức mà bạn hỏi về code nên chắc ko có câu trả lời.......hihihihih
- khi viết code thì tránh select
ví dụ

With Sheet8.Range("e3:dz4").Select
    Selection.ClearContents
End With
thì "quất" zậy luông
Sheet8.Range("e3:dz4").ClearContents