File macro bị lỗi k chạy được !!! (1 người xem)

[vuvietquang90]

Chào các bác,

Em có file macro này đang bị lỗi không chạy đc, em cũng không phải là người rành lắm nên không biết chỉnh sửa thế nào để nó hoạt động lại

Các bác sửa giúp em với

Thanks

 

[Hoang2013]

Bạn chạy macro này thay vì cái bạn đang có;

Sẽ thấy báo lỗi tại dòng 8

Sub TaoSC()
 On Error GoTo LoiCT

    Application.ScreenUpdating = False
2    Sheet1.Range("E6:F" & [f6].End(xlDown).Row).Copy
    Sheet1.Range("e6").PasteSpecial xlPasteValues
4    Sheet1.Range("G6:G" & [g6].End(xlDown).Row).ClearContents
    Sheet1.Name = Sheet1.Range("B3")
6    Range(Range("D6"), Range("D128095").End(xlUp)).Replace What:="237.0000.", Replacement:=""
    Range(Range("a128095"), Range("a128095").End(xlUp).Offset(1)).EntireRow.Delete
8    ThisWorkbook.SaveAs (ThisWorkbook.Path & "\" & Sheet1.Range("B3") & " SC 2015.xlsb")
    Application.ScreenUpdating = True
eRR_:           Exit Sub
LoiCT:
    MsgBox Error, , Erl
    Resume eRR_
End Sub

& lỗi này bạn phải tự khắc phục thôi!