VBA điền giá trị vào cột có điều kiện (1 người xem)

[MeThuongNho]

Dear Anh/ Chị,
Sheet KHDS của em có ô B2: nhập số 1,2,3... tuỳ yêu cầu nhập.
Dữ liệu data từ A7:Z2500. có cột D: số SX. có cột Y số COPY.
Mong muốn : những ô của cột Y bị trống khi Run CODE: sẽ điền giá trị từ B2 vào (nếu cột D tương ứng mà trống thì không điền vào cột Y).
Mong mọi người chỉ giúp
Cám ơn Anh/ Chị

 

[darknightno007]

Dear Anh/ Chị,
Sheet KHDS của em có ô B2: nhập số 1,2,3... tuỳ yêu cầu nhập.
Dữ liệu data từ A7:Z2500. có cột D: số SX. có cột Y số COPY.
Mong muốn : những ô của cột Y bị trống khi Run CODE: sẽ điền giá trị từ B2 vào (nếu cột D tương ứng mà trống thì không điền vào cột Y).
Mong mọi người chỉ giúp
Cám ơn Anh/ Chị

Bạn thấy ok chưa

 

[ndu96081631]

Bạn thấy ok chưa

Chỉ 1 dòng code thôi cũng đủ

  Range("D7", Range("D60000").End(xlUp)).SpecialCells(2).Offset(, 21).SpecialCells(4).Value = Range("B2").Value

Thuật toán đại khái là thế! Mọi vấn đề khác liên quan đến bẫy lỗi các bạn tự hoàn thiện

 

[darknightno007]

Chỉ 1 dòng code thôi cũng đủ

  Range("D7", Range("D60000").End(xlUp)).SpecialCells(2).Offset(, 21).SpecialCells(4).Value = Range("B2").Value

Thuật toán đại khái là thế! Mọi vấn đề khác liên quan đến bẫy lỗi các bạn tự hoàn thiện

Code anh NDU hay thật