Giúp em sửa đoạn code báo lỗi sai (1 người xem)

[thanhdo89]

Nhờ các anh chị tải file về xong sửa giúp em đoạn code ở trong file
với đoạn code trên em tải về 1 file khác thì chạy, có file thì lại không chạy được, mặc dù cấu hình dòng cột, các file giống nhau, định dạng giống nhau
em cám ơn ạ.

 

[HieuCD]

Nhờ các anh chị tải file về xong sửa giúp em đoạn code ở trong file
với đoạn code trên em tải về 1 file khác thì chạy, có file thì lại không chạy được, mặc dù cấu hình dòng cột, các file giống nhau, định dạng giống nhau
em cám ơn ạ.

Chỉ chỉnh chổ ghi chú, kẻ khung tự làm

If InStr(sh.Cells(I, 3).Value, ",") Then
  sh.Cells(I, 3).Value = CDec(Replace(Replace(sh.Cells(I, 3).Value, ",", "."), " ", ""))     'Doan này em không biet lôi nhu the nao mong anh chi sua giup em
End If