Sửa dùm em đọn code này với! (1 người xem)

[hungnh89]

Em mới tập tành môn VBA này, nên vẫn lơ tơ mơ lắm. Sáng nay vừa chế ra 1 đoạn code (file đính kèm) chỉ mới được 50% mong muốn. Nguyên nhân là do khi em chọn ô A3 (Sheet CPTB HM) và chọn tiếp các hạng mục 30,33,34 thì VBA báo lỗi. Các anh/chị trong diễn đàn nếu đọc qua bài này thì xin sửa dùm em đoạn code này với ạ.
Trân trọng cảm ơn!

 

[GiangThieuSon]

Em mới tập tành môn VBA này, nên vẫn lơ tơ mơ lắm. Sáng nay vừa chế ra 1 đoạn code (file đính kèm) chỉ mới được 50% mong muốn. Nguyên nhân là do khi em chọn ô A3 (Sheet CPTB HM) và chọn tiếp các hạng mục 30,33,34 thì VBA báo lỗi. Các anh/chị trong diễn đàn nếu đọc qua bài này thì xin sửa dùm em đoạn code này với ạ.
Trân trọng cảm ơn!

Sửa lại dòng này

Arr = Sheet11.Range("A8:J8" & Sheet11.[B65500].End(3).Row).Value

 

[hungnh89]

Hi, mình làm đươc rồi. Bạn có thể giải thích qua dùm mình tại sao lại là [B65500] không? Thank kiu