xem giúp em code bị lổi phần nào sao chạy không ra kết quả.

[VU_BAO]

em có 2 sheet nhu file đính kèm. sheet lọc & data.

vấn đề đặt ra là em muốn diều chỉnh số liệu ở sheet data ( từ sheet loc ). anh chi xem giúp em.

cảm ơn anh chị.

 

[siwtom]

em có 2 sheet nhu file đính kèm. sheet lọc & data.

vấn đề đặt ra là em muốn diều chỉnh số liệu ở sheet data ( từ sheet loc ). anh chi xem giúp em.

cảm ơn anh chị.

Cột A trong sheet data có công thức mà bạn.
Bạn sửa

Set MH1 = Sheets("DATA").[A5:A31].Find(.[G4].Value, , , [B][COLOR=#ff0000]1[/COLOR][/B])

thành

Set MH1 = Sheets("DATA").[A5:A31].Find(.[G4].Value, , [B][COLOR=#0000ff]xlValues[/COLOR][/B], [B][COLOR=#ff0000]xlWhole[/COLOR][/B])

Tôi thay 1 bằng xlWhole. Dùng số code nó "tối" lắm bạn ạ. Chỗ xanh xanh là tôi thêm vào.

 

[VU_BAO]

cảm ơn bạn nhiều nha. minh cung mới tập tành còn nhiều hạn chế lắm.