Nhờ mọi người sửa code giúp mình

[tu205489039]

Sub paste()
Dim i As Integer
Dim j As Integer
Dim bbb As String
Application.ScreenUpdating = False
Sheets("C").Range("A1") = InputBox("Vui lòng nhâp tuân làm báo cáo", "Select week")
For i = 1 To 53
If Sheets("C").Range("A1") = i Then
    For j = 1 To 2
        Sheets("data").Range("H" & j).Copy
        Sheets("data").Range("F1").PasteSpecial paste:=xlPasteValues
            If Sheets("Stock Detail").Range("C5") = "False" Then
                bbb = MsgBox("Error: Total báo cáo khác Total 1400", vbOKOnly, "Thông báo Error")
                    End If
            If Sheets("Stock Detail").Range("C5") = "True" Then
                Sheets("Stock Detail").Range("R7:AD7").Copy
                Sheets(Sheets("Data").Range("I" & j)).Range("D" & i + 5).PasteSpecial paste:=xlPasteValues
                    End If
    Next j
End If
Next i
Application.ScreenUpdating = True
End Sub

Nhờ mọi người xem giúp mình, khi chạy code thì báo lỗi dòng

Sheets(Sheets("Data").Range("I" & j)).Range("D" & i + 5).PasteSpecial paste:=xlPasteValues

Mình mới tập tành viết code, mong mọi người chỉ điểm giúp, mình cảm ơn!

 

[snow25]

Sub paste()
Dim i As Integer
Dim j As Integer
Dim bbb As String
Application.ScreenUpdating = False
Sheets("C").Range("A1") = InputBox("Vui lòng nhâp tuân làm báo cáo", "Select week")
For i = 1 To 53
If Sheets("C").Range("A1") = i Then
    For j = 1 To 2
        Sheets("data").Range("H" & j).Copy
        Sheets("data").Range("F1").PasteSpecial paste:=xlPasteValues
            If Sheets("Stock Detail").Range("C5") = "False" Then
                bbb = MsgBox("Error: Total báo cáo khác Total 1400", vbOKOnly, "Thông báo Error")
                    End If
            If Sheets("Stock Detail").Range("C5") = "True" Then
                Sheets("Stock Detail").Range("R7:AD7").Copy
                Sheets(Sheets("Data").Range("I" & j)).Range("D" & i + 5).PasteSpecial paste:=xlPasteValues
                    End If
    Next j
End If
Next i
Application.ScreenUpdating = True
End Sub

Nhờ mọi người xem giúp mình, khi chạy code thì báo lỗi dòng

Sheets(Sheets("Data").Range("I" & j)).Range("D" & i + 5).PasteSpecial paste:=xlPasteValues

Mình mới tập tành viết code, mong mọi người chỉ điểm giúp, mình cảm ơn!

Câu lệnh này báo lỗi vì.
câu này :Sheets("Data").Range("I" & j) nó không biết nhận là cái gì.
Bạn sửa thành vậy xem. Sheets("Data").Range("I" & j).value
Nhưng vẫn báo lỗi khi không có tên sheets đó nhé.