nhờ mọi người sửa đoạn code này giúp mình

[tu205489039]

Nhờ mọi người kiểm tra giúp mình code này với ạ. Khi chạy đến vòng lặp j thì nó chỉ copy và paste mà không chạy if...then. Không biết mình làm sai chổ nào. Mong mọi người chỉ giáo.

Sub paste()
Dim i As Integer
Dim j As Integer
Dim bbb As String
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 10
        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("Data").Range("I" & j).PasteSpecial paste:=xlPasteValues
                    End If
    Next j
End If
Next i
End Sub

 

[leonguyenz]

Nhờ mọi người kiểm tra giúp mình code này với ạ. Khi chạy đến vòng lặp j thì nó chỉ copy và paste mà không chạy if...then. Không biết mình làm sai chổ nào. Mong mọi người chỉ giáo.

Sub paste()
Dim i As Integer
Dim j As Integer
Dim bbb As String
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 10
        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("Data").Range("I" & j).PasteSpecial paste:=xlPasteValues
                    End If
    Next j
End If
Next i
End Sub

If Sheets("Stock Detail").Range("C5") = "false" Then
Xem lại lệnh này và lệnh IF thứ 2, bạn nên để giá trị C5 là .Value, và giá trị đó có thể là giá trị logic (TRUE, FALSE), nhưng chưa chắc là chuỗi (String) như "false", "true".

 

[tu205489039]

If Sheets("Stock Detail").Range("C5") = "false" Then
Xem lại lệnh này và lệnh IF thứ 2, bạn nên để giá trị C5 là .Value, và giá trị đó có thể là giá trị logic (TRUE, FALSE), nhưng chưa chắc là chuỗi (String) như "false", "true".

Ôi mình thấy rồi, ở C5 mình viết hoa chữ cái đầu tiên "False" khác "false"
Mình cảm ơn bạn nhiều nhé

 

[leonguyenz]

Ôi mình thấy rồi, ở C5 mình viết hoa chữ cái đầu tiên "False" khác "false"
Mình cảm ơn bạn nhiều nhé

Ôi, có khác gì nhau đâu, bạn thử bỏ dấu nháy xem sao.
Cơ mà C5 là gì thì bạn cứ đưa điều kiện đó nhé.

 

[tu205489039]

Bạn có thể cho mình hỏi thêm 1 chút nữa được không.

Sheets(Sheets("S").Range("I1")).Range ("D" & i + 5)

ví dụ: ở sheet S ô I1 mình có giá trị là aaa, mình phải sửa đoạn code ở trên lại như thê nào để có giá trị tương đương sheets("aaa").range("D" & i + 5)
mình cảm ơn