Giúp em lỗi về vòng lặp (1 người xem)

[chau1505]

Mong anh chị giúp em. Em mới học nên chưa nắm phần này lắm.
Nhờ anh chị sửa giúp e chổ if với ạ, e cần 2 điều kiện song hành, nhưng làm như thế nào để vừa Cells(i + 17, 73) = y và Cells(i + 17, 74) = z cùng xảy ra vậy anh chị. Em thử mà không được. Mong anh chị chỉ giáo, em xin cảm ơn

Sub depmacro()
Application.ScreenUpdating = False
Dim i, y, z As Integer
y = InputBox("Select date to report", "Select date")
z = InputBox("Select month to report", "Select month")
For i = 1 To 31
If Cells(i + 17, 73) = y And Cells(i + 17, 74) = z Then
        Sheets("xuly").Range("B3:BO3").Copy
        Sheets("DN").Select
        Cells(i + 4, 2).Select
        Selection.PasteSpecial Paste:=xlPasteValues
       
        Sheets("xuly").Range("B4:BO4").Copy
        Sheets("BD").Select
        Cells(i + 4, 2).Select
        Selection.PasteSpecial Paste:=xlPasteValues
End If
Next i
    MsgBox "xong"
Application.ScreenUpdating = True
End Sub

 

[chau1505]

Em xin lỗi mọi người, e biết chổ sai rồi, e xin đóng chủ đề này lại ạ.