Tại sao đoạn Code này lại báo lỗi #1004 ạ: ( phần bài tập 4049 - quan ly thu chi)
Sub chuyenDL()
Dim DC As Long
DC = Sheets("Data_ThuChi").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Data_ThuChi").Range("a:" & DC + 1).Value = _
Sheets("Form").Range("C6").Value
Sheets("Data_ThuChi").Range("b:" & DC + 1).Value = _
Sheets("Form").Range("C8").Value
Sheets("Data_ThuChi").Range("c:" & DC + 1).Value = _
Sheets("Form").Range("E8").Value
Sheets("data_thuchi").Range("d:" & DC + 1).Value = _
Sheets("Form").Range("C10").Value
Sheets("data_thuchi").Range("e:" & DC + 1).Value = _
Sheets("Form").Range("C12").Value
End Sub
Bạn viết code cho đối tượng Range chưa đúng. Dấu hai chấm chỉ sử dụng khi dùng cho 1 vùng ô chứ không phải 1 ô.
Sheets("Data_ThuChi").Range("a:" & DC + 1).Value
Phải sửa thành
Sheets("Data_ThuChi").Range("a" & DC + 1).Value