Code này bình thường em vẫn dùng được ở một số máy, một số máy khác không dùng được. Các bác xem giúp em với ạ

[bach7202]

Các máy khác báo lỗi ở dòng và các dòng dưới tương tự. Em gửi thêm cả 1 test case cho các bác xem giúp em ạ
ActiveWorkbook.Sheets(2).Sort.SortFields.Add2 Key:=Range( _
"F1:F" & LR2), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal

 

[HUONGHCKT]

Các máy khác báo lỗi ở dòng và các dòng dưới tương tự. Em gửi thêm cả 1 test case cho các bác xem giúp em ạ
ActiveWorkbook.Sheets(2).Sort.SortFields.Add2 Key:=Range( _
"F1:F" & LR2), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal

Tôi đã xem code của bạn viết đúng là cả 1 rừng code, đọc mà hoa cả mắt.
Không dám mạo muội sửa lại, nên viết code mới.
Không biết chạy trên máy của bạn và máy khác có sao không chứ chạy trên máy tôi thì êm.
Hãy click vào nút "Run Code" để xem điều gì sẽ diễn ra. Kiểm tra lại kết quả. tôi chưa test kỹ.

 

[bach7202]

Tôi đã xem code của bạn viết đúng là cả 1 rừng code, đọc mà hoa cả mắt.
Không dám mạo muội sửa lại, nên viết code mới.
Không biết chạy trên máy của bạn và máy khác có sao không chứ chạy trên máy tôi thì êm.
Hãy click vào nút "Run Code" để xem điều gì sẽ diễn ra. Kiểm tra lại kết quả. tôi chưa test kỹ.

dạ đúng là một rừng code ạ. Em học năm 3 ngành IT nên mày mò code này cho trung tâm tiếng anh. Code trên chạy cũng bình thường và em dùng khá lâu rồi nhưng khi chuyển qua một số máy khác thì nó báo lỗi code 438. Bác có biết tại sao nó không chạy không ạ

Bài đã được tự động gộp: 5/3/23

Code của bác chạy mượt trên máy em ạ. Em sẽ test các máy khác để feedback cho bác sau ạ. Tiện đây nếu bác có góp ý gì về cách code của em thì em xin để cải thiện trong tương lai ạ. Em mới sinh viên nên code còn nhiều chỗ chưa hợp lí ạ